Discussion :

[Cain84]

Bonjour à tous,
Je réalise un publipostage sous word. Une fois le publipostage terminé j'essaye de séparer le fichier créer en différents sous fichiers. J'ai besoin de séparer le "e;gros fichier"e; en différents petits fichiers (fichier1, fichier2 etc). Pour le moment j'ai un code qui marche mais qui ne me satisfait pas Le voici :

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
Sub SéparationCA()
Dim NomDeMonFichier()
r = ActiveDocument.Sections.Count
 
For i = 1 To r - 1
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=i, Name:="e;"e;
Selection.MoveRight Unit:=wdSentence, Count:=1, Extend:=wdExtend
ReDim Preserve NomDeMonFichier(i)
NomDeMonFichier(i) = Selection
Next i
For i = 1 To r - 1
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=i, Name:="e;"e;
Selection.MoveDown Unit:=wdParagraph, Count:8, Extend:=wdExtend
Selection.Copy
Documents.Add
Selection.PasteAndFormat (wdPasteDefault)
ChangeFileOpenDirectory "e;C:UsersAndrea.SIMEONDesktopVBABaseTest"e;
ActiveDocument.SaveAs FileName:="e;CA "e; & NomDeMonFichier(i) & "e;.doc"e;
s = DoEvents
ActiveDocument.Close
s = DoEvents
Next i
End Sub

J'aimerais savoir s'il est possible de réaliser une sélection mais jusqu'à un texte. Par exemple lorsque word rencontre le texte "e;A bientôt"e; la sélection se termine. Pour ca il faudrait remplacer la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.MoveDown Unit:=wdParagraph, Count:8, Extend:=wdExtend

Malheureusement je n'y parviens pas ! Si quelqu'un connait la solution je vous en serais reconnaissant !
PS : j'espère avoir été clair !

[Heureux-oli]

Salut,

Ne serait-ce pas plus simple de séparer ton fichier au moment du publipostage et pas après ?
Si tu le fais au moment du publipostage, tu peux donner un nom précis à chaque fichier.

http://heureuxoli.developpez.com/off...ostage/#LVII-G