Discussion :

[CCE13]

Bonjour,

Je souhaiterais lancer une macro dans un "document à fusionner" juste avant de lancer la fusion dans WORD

La macro se trouve dans le modèle (.dot) de mon document à fusionner

Pouvez vous svp m'expliquer comment coder cela ?

PS.
1-J'ai juste un enregistrement dans mon fichier DATA.
2-Le lancement de la fusion se fait via un logiciel (que je ne maitrise pas !)

Merci

Céline

[Heureux-oli]

Salut,

L'application word possède bien un évènement MailMergeBeforeMerge

Il faut avant tout initier la gestion des évènements dans Word.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public WithEvents wApp As Word.Application

Ensuite, il affecter à ce nouvel "wApp" objet l'application Word.
On peut le faire quand on veut et comme on veut, en général sur l'évènement document Document_Open()

Ensuite, on gère les évènement et dans ton cas, c'est avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub wApp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean)
 
End Sub

[CCE13]

Bonjour

Merci pour votre réponse.

Voici ce que j'ai fais :

1- Dans le modèle (.dot) de mon document à fusionner j'ai créé un module de classe, dans lequel j'ai mis le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Public WithEvents FApp As Word.Application
Private Sub FApp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean)
    Dim Réponse As Integer
    Réponse = MsgBox("Vous allez commencer la fusion : " & Doc.Name & "Voulez-vous continuez ?", vbYesNo, "MailMergeBeforeMerge Event")
If Réponse = vbNo Then
        Cancel = True
        MsgBox "Vous avez annuler la fusion  " & Doc.Name & "."
End If
If Réponse = vbYes Then
        Cancel = False
        MsgBox "YVous allez fusionner  " & Doc.Name & "."
End If
End Sub

2- puis ensuite toujours dans le modèle (.dot) de mon document à fusionner j'ai mis dans la partie ThisDocument le code suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim X As New Classe1
 
Private Sub Document_open()
    Set X.FApp = Word.Application
End Sub

Sauf que lorsque j'appuie sur le bouton Fusionner vers un nouveau document mon événement ne se lance pas.
J'ai l'impression que l'événement de s'exécute pas !

Encore merci.

Céline

[carden752]

Bonjour,

Tu as autorisé l'exécution des macros sur tes ordinateurs clients.
Partie Sécurité des Macros de l'onglet Developpeur ou Bouton Office -> Options Word -> Centre de Gestion de la confidentialité -> Paramètres du centre de gestion de la confidentialité - > Paramètres des Macros.

Penses notamment à approuver le modèle d'objet du projet VBA.