Bonjour,
J'ai un pb majeur (euh pour moi !)
Je souhaite faire une fusion d'un document word et lorsque je l'effectue, je perds l'en-tête et le pied de page.
Est ce que qq1 peux m'aider ?
Je fai sla fusion via le code suivant :
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
16
17
18
19
20
21
22
23
24
25 ub Fusionner() ' Macro enregistrée le 09/07/2007 par Nicolas BAUDRY ' nomfich = Word.ActiveDocument.Name With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord End With .Execute Pause:=False End With ChangeFileOpenDirectory "Dossiers Clients" Documents(nomfich).Activate Documents(nomfich).Close False End Sub
Partager