Bonjour à tous,
Je suis loin d'être un habitué des forums donc veuillez m'excuser si ce post existe déjà ou si je ne fais pas les choses comme il faudrait !
J'utilise une macro (trouvée sur internet et que j'ai copié ci-dessous) qui me permet de créer avec word plusieurs fichiers distincts à partir du fichier résultant de ma fusion en publipostage en se basant sur les sauts de section. Ma question est la suivante : est-il possible d’enregistrer chacun de ces fichiers en fonction du NOM et PRENOM de la personne, plutôt que d'avoir un "fichier_1" "fichier_2" etc... ?
Peut-être en se basant sur le fichier excel à l'origine du publipostage ou sur une partie du document word ?
Merci d'avance à tous ceux qui prendront la peine de me répondre ou de réfléchir à mon problème,
Samuel.
PS : ma bécane tourne sous excel et word 2007
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
26 Sub couper_sections() Application.Browser.Target = wdBrowseSection For i = 1 To ((ActiveDocument.Sections.Count) - 1) 'Selectionne et copie le texte de la section dans le presse-papier ActiveDocument.Bookmarks("\Section").Range.Copy 'Crée un nouveau document et colle le texte du presse-papier Documents.Add Selection.PasteAndFormat (wdFormatOriginalFormatting) ' Retire le saut de section qui a été copié Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ChangeFileOpenDirectory "C:\Users\..." DocNum = DocNum + 1 ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc" ActiveDocument.Close 'section suivante Application.Browser.Next Next i ActiveDocument.Close savechanges:=wdDoNotSaveChanges End Sub
Partager