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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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