Discussion :

[dany13]

Bonjour Bonjour!

bbil, j'ai sorti le "saveAs" comme tu m'as indiqué de ma boucle (bien que je n'etais pas convaincu de la chose!) et c'est pas bon, il me demande à chauqe passage dans la boucle d'enregistrer le document (une fenetre invite s'ouvre et propose de sauvegarder le fichier element par element...)

kiki29, je n'ai pas trouvé dans ce tuto (qui est bien fait et complet), ce que je cherche pour "fusionner" tous les fichiers word générés dans un seul et même fichier...

Existe-il une fonction, une possibilité pour que je puisse enregistrer au final tous mes fichiers word générés dans un seul et même fichier?

Merci par avance de votre aide

[Heureux-oli]

Salut,

Avec le mode que tu utilises, ce n'est pas réalisable.

Tu dois lancer un publipostage simple qui couvrira 5 enregistrements.

Créer un nouveau document à chaque fois va te générer autant de document que d'enregistrements.

Et le système avec de signet ne sera pas le bon, sauf si tu crées un modèle qui accepte 5 enregistrements, il faut alors 5 jeux de signets.
Si tu en veux six, il faut recommencer.

[dany13]

Bonjour à tous!!!

Juste pour vous informer que je m'en suis sortie!!!
Vous trouverez le code necessaire à la fusion de plusieurs doc word en un ici :
http://www.developpez.net/forums/d12...c-word-1-seul/

Bonne journée

[Heureux-oli]

Salut,

Mais je ne vois pas en quoi le code donne une solution au publipostage ?

[dany13]

Heureux-oli, j'ai en fait fais 2 fonctions...en effet la fonction que je mets dans le lien ci-dessous me sers à concatener en UN fichier word tous mes fichiers word réalisés avec l'aide des signets.

Voici ici ma fonction permettant de générer fichier word par fichier word :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
'==================================================================================
'PROCÉDURE UTILISÉE POUR GÉNÉRER BORDEREAUX JUSTIFICATIFS
'==================================================================================
 
Sub GenerationBordereau_Cliquer()
 
'Déclaration des variables
Dim wApp As Word.Application
Dim oDoc As Word.Document
Dim NbLigne As Integer
Dim sTransport As String
Dim TotalTrans, TotalFrais, TotalHeb, TotalRes, SSTotalTrainAutre As Double
 
'Récupération du nombre de lignes et de colonnes
Dim xlWb As Excel.Workbook
Dim xlSh As Excel.Worksheet
Dim iR As Integer
 
'Affectation des données aux variables
Set wApp = New Word.Application
 
Set xlSh = ActiveWorkbook.ActiveSheet
'Récupération du nombre de lignes et de colonnes
NbLigne = Application.WorksheetFunction.CountA(Columns(1)) - 2 + 6
 
For iR = 7 To NbLigne
    'Utilisation du fichier modèle suivant :
    'Set oDoc = wApp.Documents.Add(ThisWorkbook.Path & "\" & "monCourrier.doc")
    Set oDoc = wApp.Documents.Add("C:/RepModele/ModeleBordereau.doc")
 
    'Affectation des données Excel aux signets
    'Personne
    oDoc.Bookmarks("Nom").Range.Text = ActiveWorkbook.ActiveSheet.Range("A" & iR)
    oDoc.Bookmarks("Prenom").Range.Text = ActiveWorkbook.ActiveSheet.Range("B" & iR)
    oDoc.Bookmarks("Service").Range.Text = ActiveWorkbook.ActiveSheet.Range("E" & iR)
 
    'Mouvement
    oDoc.Bookmarks("NatureDep").Range.Text = ActiveWorkbook.ActiveSheet.Range("J" & iR) & " - " & ActiveWorkbook.ActiveSheet.Range("K" & iR)
    oDoc.Bookmarks("DateDep").Range.Text = ActiveWorkbook.ActiveSheet.Range("L" & iR)
 
    'Svgd fichier
    oDoc.SaveAs ("C:/MonRepTemp/" & Format(Date, "yyyy-mm-dd") & "_" & ActiveWorkbook.ActiveSheet.Range("A" & iR) & "_" & iR & ".doc")
    oDoc.Close
    Set oDoc = Nothing
Next iR
 
' Procedure permettant de concatener tous les fichiers word en 1
Call ConcatenerFichiersWrd
End Sub

Voila