Séparation par section-publipostage Word-problème de macro
Résolum@rina Messages postés 23882 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Afin de séparer mes documents issus d'un publipostage, j'ai appliqué la Macro suivante ci-dessous.
Le problème est que lorsque j'exécute la Macro, dans chacun des fichiers individuels crée, je retrouve l'ensemble du publipostage (avec même un doublon de l'un d'entre eux).
Quelqu'un a-t-il une solution à me proposer?
J'ai beau chercher je ne troue pas de réponse...
Sub Couper_sections()
' MacroDB Macro
' Séparation publipostages Word
Application.ScreenUpdating = False
Dim SousDoc As Document
Dim chemin As String
Dim R As Range
Dim x, DocNum
For x = 1 To ActiveDocument.Sections.Count - 1
Set R = ActiveDocument.Sections(x).Range: R.End = R.End - 1
R.Copy
Documents.Add Template:="W:\RESSOURCES HUMAINES\RH\0-DOSSIERS AGENTS\2024-04-19) Contrats groupés.docx"
Selection.Paste
DocNum = DocNum + 1
chemin = "W:\RESSOURCES HUMAINES\RH\0-DOSSIERS AGENTS\"
With ActiveDocument
.SaveAs FileName:=chemin & DocNum & ".docx"
.Close
End With
Next x
Set SousDoc = Nothing
Set R = Nothing
Application.ScreenUpdating = True
End Sub
Merci par avance à tous de votre aide!
- Séparation par section-publipostage Word-problème de macro
- Word 2013 - Télécharger - Traitement de texte
- Publipostage mail - Accueil - Word
- Tableau word - Guide
- Impossible de supprimer une page word - Guide
- Espace insécable word - Guide
1 réponse
Bonjour
C'est quoi ça :
Documents.Add Template:="W:\RESSOURCES HUMAINES\RH\0-DOSSIERS AGENTS\2024-04-19) Contrats groupés.docx"
Pourtant, c'était bien écrit dans la macro, mais tu as retiré les infos. Il y avait écrit :
'Mettez le chemin complet et le nom du modèle
et je ne pense pas que ce document soit un modèle.
m@rina