bon j'avance en fait doucement (enfin je suis content de moi malgré tout
^^ ).
j'ai réussi à faire un copier coller vers mon fichier calc contenant
seulement les résultats (issu de mon premier fichier contenant les
réponses aux questions posées).
mais je ne parviens pas à faire un collage spécial. l'objectif est de
faire une transposition des données (mode colonne vers mode ligne) et là
je sèche...
voilà la macro que j'ai adapté après avoir recherché sur le net :
REM ***** BASIC *****
sub export_reponse
dim Feuille as object, Feuille2 as object
dim oRange as object
dim Args(0) as new com.sun.star.beans.PropertyValue
dim dispatcher as object
dim oDoc as object
dim args4(5) as new com.sun.star.beans.PropertyValue
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Feuille = ThisComponent.Sheets.getByName("Utilisateur")
oRange = Feuille.getCellRangeByName("B4:B79")
ThisComponent.CurrentController.Select(oRange)
' copier la zone actuellement sélectionnée
dispatcher.executeDispatch(ThisComponent.CurrentController.Frame,
".uno:Copy", "", 0, Array())
' ouvrir autre document
CheminSource = "T:\Projets\2008\Migration OOo\audit\"
Args(0).Name = "Hidden"
Args(0).Value = true
oDoc = StarDesktop.LoadComponentFromURL(convertToURL(CheminSource +
"Formatage_reponse.ods"), "_blank", 0 ,Args())
Feuille2 = oDoc.Sheets.getByName("donnees")
oRange = Feuille2.getCellRangeByName("A2")
oDoc.CurrentController.Select(oRange)
' coller dans la nouvelle zone
dispatcher.executeDispatch(oDoc.CurrentController.Frame, ".uno:Paste",
"", 0, array())
oDoc.Store
oDoc.Close(True)
End Sub
*Mes deux interrogations sont donc :
Comment faire un collage spécial en activant la fonction transposer vers
le fichier "formatage_reponse.ods"?
Comment faire pour que cette macro face le collage spécial dans la
première ligne vide ?*
Désolé d'abuser de vos compétences mais y a urgence :(
PS : je continue à chercher malgré tout :)
Sébastien
Sebastien Pons a écrit :
Super!
merci pour l'info, je me suis débrouillé pour faire ce que je voulais
dans base....
Me reste plus qu'à réussir à faire une macro qui va copier ma plage de
cellule (contenant les réponses) vers un autre fichier calc (à moins
qu'on puisse les intégrer directement dans la base de données que je
viens de créer....)
J'ai tenté un mode enregistrement de macro, la sélection et la copie
se font bien mais pour ensuite faire un collage spécial dans un autre
fichier.... là c'est le drame...
Existe t il une solution simple ou faut il que je me mette à la
programmation de macro? (en 3 jours je crains que ce soit compliqué :( )
En tout cas merci à tous pour vos réponses qui m'ont déjà permis de
bien avancer....
Jean Michel PIERRE a écrit :
Sebastien Pons a écrit :
Je vais aller voir de plus près ce dont tu parles, sait on jamais.
Je vous mets en pièce jointe ce que j'ai déjà réaliser comme
questionnaire sous calc (OK c'est pas super "sexy" mais c'est pas
vraiment l'objectif).
Avec des données dans un tableur OOo Calc, il y a la possibilité de
les récupérer directement dans OOo Base.
http://fr.openoffice.org/Documentation/How-to/indexht-base.html
J.M
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Ce message est protégé par les règles relatives au secret des
correspondances. Il est donc établi à destination exclusive de son
destinataire. Celui-ci peut donc contenir des informations
confidentielles. La divulgation de ces informations est à ce titre
rigoureusement interdite. Si vous avez reçu ce message par erreur,
merci de le renvoyer à l'expéditeur dont l'adresse e-mail figure
ci-dessus et de détruire le message ainsi que toute pièce jointe.
This message is protected by the secrecy of correspondence rules.
Therefore, this message is intended solely for the attention of the
addressee. This message may contain privileged or confidential
information, as such the disclosure of these informations is strictly
forbidden. If, by mistake, you have received this message, please
return this message to the addressser whose e-mail address is written
above and destroy this message and all files attached.
------------------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Ce message est protégé par les règles relatives au secret des correspondances.
Il est donc établi à destination exclusive de son destinataire. Celui-ci peut
donc contenir des informations confidentielles. La divulgation de ces
informations est à ce titre rigoureusement interdite. Si vous avez reçu ce
message par erreur, merci de le renvoyer à l'expéditeur dont l'adresse e-mail
figure ci-dessus et de détruire le message ainsi que toute pièce jointe.
This message is protected by the secrecy of correspondence rules. Therefore,
this message is intended solely for the attention of the addressee. This
message may contain privileged or confidential information, as such the
disclosure of these informations is strictly forbidden. If, by mistake, you
have received this message, please return this message to the addressser whose
e-mail address is written above and destroy this message and all files attached.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
