Discussion :

[Yoooo]

Bonjour,
J'ai un souci de publipostage
Cette macro permet de récupérer les données Excel et de générer un document word pour chaque ligne du tableau d'excel
je souhaiterais pouvoir enregistrer en fonction d'un critère dans les données excel X lettres dans un fichier word et X lettres dans un autre fichier word.
Vous auriez des pistes

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
 
 
Sub donneeAvecExcel()
'Déclaration des variables
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlSh As Excel.Worksheet
Dim iR As Integer
Dim i As Integer, j As Integer
Dim oDoc As Document
 
 
 
'Affectation des données aux variables
Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Open("C:\Documents and Settings\Olivier\Mes documents\Mes sources de données\adresses.xlsx")
Set xlSh = xlWb.Worksheets(1)
'Récupération du nombre de lignes et de colonnes
iR = xlSh.UsedRange.Rows.Count
 
' Récupération des données de la feuille pour les injecter dans le document.
For i = 2 To iR
    Debug.Print xlSh.Cells(iR, 2); iR
        Set oDoc = Documents.Add("C:\Documents and Settings\Olivier\Application Data\Microsoft\Templates\pub.dotm")
        oDoc.Bookmarks(1).Range.Text = xlSh.Cells(i, 1)
        oDoc.Bookmarks(2).Range.Text = xlSh.Cells(i, 2)
        oDoc.Bookmarks(3).Range.Text = xlSh.Cells(i, 3)
        oDoc.SaveAs "c:\temp\" & xlSh.Cells(i, 2) & "-" & Format(Date, "yy-mm-dd") & ".docx"
        oDoc.Close
        Set oDoc = Nothing
Next i
 
xlWb.Close
xlApp.Quit
Set xlSh = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
 
End Sub

[clementmarcotte]

Bonjour,

Sans avoir testé, tu ajoutes une colonne "Fichier Word" dans ta feuille Excel et tu identifies ton fichier par 1 ou 2, a ou b etc. L'avantage c'est que tu n'est pas limité à deux choix.

Ensuite avec la requête qui va bien tu fais deux impressions distinctes, soit en lançant deux fois ta macro actuelle, soit en modifiant ta macro actuelle pour qu'elle traite deux objets documents distincts dans une seule passe.

Si tu n'as pas la possibilité d'ajouter une colonne dans ta feuille Excel, et que tu veux une passe unique avec deux documents, tu vas devoir bâtir ta requête en fonction de tes colonnes actuelles et de ce qui doit "séparer" les deux documents.

[Yoooo]

Je te remercie de ces pistes, je sais qu'il faut travailler le fichier pour les critères excel...
Mon principal problème c'est que le code de la macro génère un fichier Word par ligne, moi je souhaiterais pouvoir mettre tous les documents dans le meme fichier Word.

En fait comme un publipostage, mais en maîtrisant les données excel.

En fait le besoin c'est de pouvoir generer deux types de courrier différents, et de pouvoir insérer en cas de doublon un champ supplémentaires sur la lettre. Aujourd'hui la seul methode c'est de faire un publipostage par courrier, et un publipostage conditionnel pour l'histoire des doublons, du coup beaucoup de manip...

[Heureux-oli]

Salut,

Le code sert à avoir un document par ligne.

Ce que tu souhaites, c'est trier les données dans Word ?

il est plus facile de le faire en amont, on trie les données avant dans le base de données et on les traite ensuite.
Si on suit ta demande, comment va se comporter Word avec par exemple

A
A
B
A
A
B
B

[Yoooo]

Ce que je souhaite, c'est pas de trier les données Word,
C'est en premier lieu, pouvoir mettre x courriers dans 1 document Word,
la macro actuelle créé 1 courrier pour 1 document word.

[Heureux-oli]

Salut,

Dans ce cas, c'est un publipostage simple que tu dois faire.
Le code que tu utilises est fait pour générer un document par enregistrement, ce qui n'est pas prévu dans Word.

[Yoooo]

Je vous remercie pour vos conseils