Restitution des macro lors d'un publipostage

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jhofman

XLDnaute Occasionnel
Bonjour,


J'effectue un publibpostage entre un fichier excel et un modèle Word. dans ce dernier il y a des macro que je souhaite activer pour compléter le publipostage.

j'aurai aimé effectué le publipostage complet et arrivé à un fichier final complet. et cela ne marche pas. D'autre part le fichier obtenu par un publipostage "à la main" ne contient pas les macros du fichier initial.
Merci de votre aide.

Private Sub commandButtonPublipostage_Click()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Dim docWord As Word.Document
Dim appWord As Word.Application
Dim NomBase As String

NomBase = "D:\Classeur4C.xls"

Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("D:\QD4C.doc")

'fonctionnalité de publipostage pour le document spécifié
With docWord.MailMerge
'Ouvre la base de données
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Feuil1$]"
'Spécifie la fusion vers l'imprimante
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
'Prend en compte l'ensemble des enregistrements
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'Exécute l'opération de publipostage
'.Execute Pause:=False
End With

Application.ScreenUpdating = True

'Fermeture du document Word
docWord.Close False
appWord.Quit
End Sub
 
Re : Restitution des macro lors d'un publipostage

Bonsoir JHofman

Je ne sais pas si cela peut répondre à tes besoins, mais personnellement je crée une matrice Word avec la macro de fusion,enregistrement du fichier résultant , impression et fermeture du fichier. cette macro se déclenche automatiquement lors de l'ouverture du fichier matrice dans word.

Du coup dans Excel, je n'ai plus qu'à appeler une instance de Word comme tu l'as fait et à ouvrir le fichier matrice de word.

Dis nous si cela peut te convenir
 
Re : Restitution des macro lors d'un publipostage

je suis désolé de répondre si tard....

j'ai réussi en office 2007 à faire ce que je voulais.
publiposatge et exécution de macro word depuis excel.

en office 2000, le publiposatge ne se passe pas bien. auf à le faire à la main.
peut être patte d'ours que ta méthode pourrait m'aider mais je n'en comprends pas les termes. pourrais tu être plus explicite ? Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
640
Retour