Diviser un fichiers en plusieurs / saut de section VBA

Forum Microsoft Office Word

Modérateur : Argitxu

Diviser un fichiers en plusieurs / saut de section VBA

Publicité
 

voypat01
Posteur débutant
Posteur débutant
Messages : 2
Enregistré le : 09 oct. 2019, 01:56

Diviser un fichiers en plusieurs / saut de section VBA

Message non lu par voypat01 » 11 oct. 2019, 16:03

Bonjour,
J'ai trouvé cette macro rédigé par marina :
______________________________________________________________
Sub Couper_sections()
'macro écrite par m@rina
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
'Mettez le chemin complet et le nom du modèle
Documents.Add Template:="C:\Users\mon_nom\Documents\Modèles Office personnalisés\publitest.dotx"
Selection.Paste
DocNum = DocNum + 1
'Mettez ici le nom complet du dossier où vous souhaitez récupérer les documents
chemin = "C:\Mes documents\test\"
With ActiveDocument
.SaveAs FileName:=chemin & DocNum & ".docx"
.Close
End With
Next x

Set SousDoc = Nothing
Set R = Nothing
Application.ScreenUpdating = True

End Sub
_______________________________________________________

Pour appliquer la macro, je produit mon fichier gabarit pour le publipostage et je place la macro dans le fichier fusionné créé par l'outil de publipostage. Le résultat est génial, mis a part que chaque fichier individuel résultant de l'exécution de la macro répète la lettre resté sur mon fichier source pour le publipostage (gabarit). Donc j'ai mes lettres, mais il s'ajoute systématiquement une deuxième lettre (toujours la même), celle qui est affiché dans mon fichier source (gabarit).

Je ne comprends pas pourquoi ce 2e fichier revient toujours... c'est peut-être moi qui n'applique pas bien la macro... je suis un total noob en VBA...

Merci d'avance pour le coup de main ; )

Pat

Avatar du membre
m@rina
Administrateur
Administrateur
Messages : 1336
Enregistré le : 14 août 2009, 08:51
Contact :

Re: Diviser un fichiers en plusieurs / saut de section VBA

Message non lu par m@rina » 12 oct. 2019, 15:09

Bonjour,

Euh... désolée, mais je n'ai pas compris. Cette macro ne fait que découper un fichier composés de plusieurs sections en plusieurs fichiers qui reprennent chacun le texte de chaque section.
Donc, je ne comprends cette histoire de lettre...
Tu peux dire exactement comment tu procèdes ?
m@rina

voypat01
Posteur débutant
Posteur débutant
Messages : 2
Enregistré le : 09 oct. 2019, 01:56

Re: Diviser un fichiers en plusieurs / saut de section VBA

Message non lu par voypat01 » 15 oct. 2019, 17:31

Oui, dsl pour la mise en contexte plus que sommaire...

Je désire faire un publipostage et envoyer chaque lettre individualisée dans un @ qui contient la lettre en question, mais aussi d'autres informations.

J'ai donc trouvé votre macro qui permet de séparer le document fusionné par l’outil de publipostage en plusieurs fichiers individuels. J’applique la macro dans le fichier fusionné, la macro fonctionne bien et WORD exécute la création de multiples fichiers individualisés. Le problème, c’est que pour une raison qui m’échappe, il y a une répétition dans chaque fichier individuel d’une deuxième lettre. La lettre répétée est celle qui est sur mon document original de publipostage utilisé pour créer le fichier fusionné.

Répondre