OVH Cloud OVH Cloud

Expert VBA WORD

1 réponse
Avatar
Phil
Bonjour,

Débutant dans la programme VBA sur word, je recherche quelqu'un qui puisse
m'expliquer pourquoi word n'exécute pas
mes lignes de codes si dessous lors de l'ouverture du fichier
"MaîtreFusion_Courrier".

Private Sub Document_Open()
Dim mmTemp As MailMerge
Set mmTemp = ActiveDocument.MailMerge

If mmTemp.State = wdMainAndDataSource Then
mmTemp.Destination = wdSendToNewDocument
mmTemp.Execute
Documents("MaîtreFusion_Courrier.doc").Close
SaveChanges:=wdDoNotSaveChanges
End If
End Sub

Merci d'avance...

1 réponse

Avatar
Anacoluthe
Bonjour !

'Phil' nous a écrit ...
Débutant dans la programme VBA sur word, je recherche quelqu'un qui puisse
m'expliquer pourquoi word n'exécute pas
mes lignes de codes si dessous lors de l'ouverture du fichier
"MaîtreFusion_Courrier".
Private Sub Document_Open()
Dim mmTemp As MailMerge
Set mmTemp = ActiveDocument.MailMerge

If mmTemp.State = wdMainAndDataSource Then
mmTemp.Destination = wdSendToNewDocument
mmTemp.Execute
Documents("MaîtreFusion_Courrier.doc").Close
SaveChanges:=wdDoNotSaveChanges
End If
End Sub


Si le code émet une erreur c'est votre ligne
Documents("MaîtreFusion_Courrier.doc").Close
SaveChanges:=wdDoNotSaveChanges
qui est coupée : supprimez le retour à la ligne

ou utilisez (espace)_(retour ligne) en fin de ligne pour
que le compilateur suive à la ligne suivante :
Documents("MaîtreFusion_Courrier.doc").Close _
SaveChanges:=wdDoNotSaveChanges

Si le code n'émet aucune erreur (votre ligne n'est donc
pas coupée comme vous l'écrivez ici) c'est que votre
document principal n'est pas lié à une source : la condition
de ce code est fausse et donc il ne se passe strictement rien!

ok ?

Anacoluthe
« Les erreurs sont les portes de la découverte. »
- James JOYCE