Macro publipostage couper un fichier en plusieurs fichiers
Xnd99
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Xnd99 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Xnd99 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
A partir d'un publipostage (400 entrées qui génèrent un fichier de 6 à 8 pages), je souhaite créer autant de fichiers que d'entrées et les renommer par la même occasion.
J'ai trouvé deux macros qui répondent assez bien à ma demande, mon seul problème est que les X fichiers générés sont identiques. En effet, le publipostage reste dans les documents, ce qui veut dire que chaque fichier permet de consulter l'ensemble des entrées.
Désolé si je ne suis pas très clair. J'aimerai que les fichiers générés ne soit plus rattaché au fichier Excel servant de base.
Merci d'avance.
A partir d'un publipostage (400 entrées qui génèrent un fichier de 6 à 8 pages), je souhaite créer autant de fichiers que d'entrées et les renommer par la même occasion.
J'ai trouvé deux macros qui répondent assez bien à ma demande, mon seul problème est que les X fichiers générés sont identiques. En effet, le publipostage reste dans les documents, ce qui veut dire que chaque fichier permet de consulter l'ensemble des entrées.
Désolé si je ne suis pas très clair. J'aimerai que les fichiers générés ne soit plus rattaché au fichier Excel servant de base.
Sub Macro1()
'
' Macro1 Macro
''
'définit "nom" en fonction de la valeur du champ de la 2ème colonne du tableau excel
nom = ActiveDocument.MailMerge.DataSource.DataFields(2).Value
'idem pour "prénom" en fonction de la valeur de la colonne n°3
prénom = ActiveDocument.MailMerge.DataSource.DataFields(3).Value
'idem pour "prénom" en fonction de la valeur de la colonne n°6
consultation_du = ActiveDocument.MailMerge.DataSource.DataFields(6).Value
ChangeFileOpenDirectory "U:\TEST"
ActiveDocument.SaveAs FileName:=nom & " 2018.docx", FileFormat:=wdFormatXMLDocument
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
End Sub
Sub Lancer_plusieurs_fois()
'
' Lancer_plusieurs_fois Macro
''
Dim Compteur As Long
For Compteur = 1 To 40
Macro1
Next Compteur
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub
Merci d'avance.
A voir également:
- Publipostage word créer plusieurs documents
- Word 2013 - Télécharger - Traitement de texte
- Publipostage mail - Accueil - Word
- Créer un organigramme sur word - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
2 réponses
Bonjour
Il faut d'abord faire la fusion pour obtenir un fichier sans liens et ensuite lancer une macro que j'ai ici par exemple :
https://faqword.com/index.php/word/divers/552-comment-couper-un-gros-fichier-en-autant-de-petits-fichiers-quil-y-a-de-sauts-de-section
Maintenant, pour 400 fichiers, ça va prendre un certain temps. Tu pourras aller prendre un café ! :)
m@rina
Il faut d'abord faire la fusion pour obtenir un fichier sans liens et ensuite lancer une macro que j'ai ici par exemple :
https://faqword.com/index.php/word/divers/552-comment-couper-un-gros-fichier-en-autant-de-petits-fichiers-quil-y-a-de-sauts-de-section
Maintenant, pour 400 fichiers, ça va prendre un certain temps. Tu pourras aller prendre un café ! :)
m@rina