Re : Comment ouvrir un fichier Word à partir d'une macro excel
Bonsoir,
désolé c'est encore moi
Vos explications sont très limpides, et grace à vous j'ai avancé
je n'ai plus le message d'erreur du début du post,
par contre la macro ouvre le fichier sans faire de mise à jour,
je vais donc essayer d'être aussi clair que vous.
je m'explique,
normalement lorsque je fais la manipulation en manuel (donc sans utiliser la macro)
- j'ouvre word
- je charge mon fichier word (courrier publipostage sur certain champs de données liées avec excel et avec le critère "C")
- au chargement du fichier j'ai le message, " l'ouverture de ce document exécutera la commande SQL suivante
SELECT*FROM C:\repertoire\repertoire\repertoire\monfichier.xls
Where((Faire________Courrier___C___Etiquette___E='C'))
des données provenant de votre base de données seront insérées dans le document. Voulez-vous continuer"
- Ici je répond OUI
mon courrier apparaît après un petit moment, si monfichier.xls n'est pas ouvert excel s'ouvre, et charge monfichier.xls, et mon courrier est mis à jour
- j'édite
- je ferme word sans sauvegarder mon courrier
alors qu'en mode exécution de la macro, le courrier se présente comme lorsque je répond NON à la question du mode manuel
" l'ouverture de ce document exécutera la commande SQL suivante
SELECT*FROM C:\repertoire\repertoire\repertoire\monfichier.xls
Where((Faire________Courrier___C___Etiquette___E='C'))
des données provenant de votre base de données seront insérées dans le document. Voulez-vous continuer"
j'ai fait le test
donc comme celà ne fonctionne pas comme je veux, j'ai tenter la chose suivante :
j'ai donc créer une macro "essai" en mode assistant (quand je pratique en mode normal) ce qui ma généré le code suivant :
Sub essai()
'
'
essai Macro
Documents.Open FileName:="""Devise Confirmation.doc""", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End sub
que j'ai tenté d'adapter à la ligne :
Set WdDoc = wdApp.Documents.Open("D:\Doc\DocWord.doc")
en :
Set WdDoc = wdApp.Documents.Open("C:\Documents and Settings\thyssen\Mes documents\word97\Devise Confirmation.Doc"), ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
mais Vba n'accepte pas ce code il n'aime pas la "," juste après
Set WdDoc = wdApp.Documents.Open("C:\Documents and Settings\thyssen\Mes documents\word97\Devise Confirmation.Doc")
décidement que c'est difficile d'être débutant de de vouloir faire comme les grands !
Sincères salutations