Discussion :

[brunet.seve]

Bonjour,

Je génère plusieurs fichiers word à partir d'une base de données excel en utilisant le publipostage.

Le fichier word d'origine contient une combobox qui est remplie par le code suivant :

Code :

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

1
2
3
Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Array("H. Servat", "S. Marignac")
End Sub

Mais sur le fichier word obtenu par publipostage, le combobox n'est plus remplis.

J'utilise la macro suivante pour générer des fichiers séparés par publipostage :

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
Sub Publipostage()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
    With oDoc.MailMerge
        'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
 
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        DocName = .DataSource.DataFields(4).Value
 
        Debug.Print DocName; i
    End With
    ' Sauvegarde du document publiposté
    With ActiveDocument
 
        .Protect wdAllowOnlyFormFields
        .SaveAs "c:\CERTIFICATS ORIGINAUX\" & DocName & ".doc"
        .Close
    End With
Next i
End Sub

J'aimerais savoir s'il est possible de remplir le combobox du fichier word obtenu lorsque je lance la macro du publiscopage.

Merci pour votre aide.

[jurassic pork]

hello,
quelle version de word utilises-tu ?
Il semblerait que tu utilises une Combobox ActiveX qui nécessite du code VBA pour la remplir. Le publipostage fait perdre les macros de ton document donc le remplissage de ta combobox.
Pourquoi n'utilises-tu pas la Combobox non activeX (cela dépend peut-être de la version de word, je suis sous word 2010 et j'en dispose ) :



Le remplissage de ce type de combobox peut se faire directement dans ses propriétés.

Ami calmant, J.P

[brunet.seve]

Merci pour ton aide.
J'utilise Word 2013.

Entre temps, j'ai essayé d'utiliser une Combobox non activeX.
Mais ce que j'ai oublié de préciser c'est que j'utilise aussi une image activeX qui change en fonction du contenu de la Combobox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Array("", "H. Servat", "S. Marignac")
End Sub
 
Private Sub ComboBox1_Change()
If ComboBox1.Value = "H. Servat" Then
       Image1.Picture = LoadPicture("C:\servat.jpg")
       ElseIf ComboBox1.Value = "S. Marignac" Then
                Image1.Picture = LoadPicture("C:\marignac.jpg")
       ElseIf ComboBox1.Value = "" Then
                Image1.Picture = LoadPicture("C:\vierge.jpg")
End If
End Sub

Du coup je ne sais pas comment je peux faire la même chose avec une Combobox non activeX.

[jurassic pork]

hello,
utilises-tu des champs de fusion dans le document de ton publipostage ou seulement les champs pour générer le nom des documents de sortie. Pourquoi utiliser alors un publipostage et pas un enregister sous de documents.
tes documents de sortie sont-ils en format word2003 (.doc) ? et le document d'entrée en quel format (.doc ? .docm ? .docx? ) ?
une chose qui fonctionne : enregistrer ton document d'entrée en modèle (.dotm) ouvrir un nouveau document à partir de ce modèle, lancer la macro (en changeant le format de sortie de .doc en .docm) , les fichiers de sorties ont les macros du modèle. Le problème c'est que ces fichiers sont "reliés" au modèle et il faut donc qu'il soit présent où l'on utilise un des fichiers de sortie.

Ami calmant, J.P

[brunet.seve]

Bonjour,
Merci de ton aide.

En fait, j'ai trouvé le code de la macro sur internet et je l'ai adapté à mon cas de figure. Mais je n'avais pas fait attention au départ, qu'elle enregistrait les fichiers de sortie en .doc. Je l'ai modifié par la suite pour avoir les fichiers en .docx. Mon fichier de départ est en .docm.

Par contre, j'utilise plusieurs champs de fusion et l'un d'entre eux me permet aussi de nommer mes fichiers. J'utilise le publipostage car ma base de données excel possède plus de 1000 lignes et avec seulement une dixaine de fichier d'entrée je génère plus de 1000 fichiers de sortie en seulement quelques minutes.

J'ai déjà essayé de modifier la macro pour enregistrer les fichiers de sortie en .docm, mais il y a un bug et je ne peut pas ouvrir les fichiers. Et j'ai toujours le même problème si mon fichier d'entré est en .dotm.

Voilà le message d'erreur que j'obtient lorsque je veux ouvrir un des fichiers de sortie :



Je rajoute le code de la macro et celui de la combobox, il y a peut-être un élément qui fait planter les fichiers de sortie :

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
50
51
52
53
54
Sub Publipostage()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
    With oDoc.MailMerge
        'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
 
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        DocName = .DataSource.DataFields(4).Value
 
        Debug.Print DocName; i
    End With
    ' Sauvegarde du document publiposté
    With ActiveDocument
 
        .Protect wdAllowOnlyFormFields
        .SaveAs "C:\CERTIFICATS\CERTIFICATS ORIGINAUX\" & DocName & ".docm"
        .Close
    End With
Next i
End Sub
 
Private Sub ComboBox1_Change()
If ComboBox1.Value = "H. Servat" Then
       Image1.Picture = LoadPicture("C:\CERTIFICATS\Base de données\servat.jpg")
       Else
            If ComboBox1.Value = "S. Marignac" Then
                Image1.Picture = LoadPicture("C:\CERTIFICATS\Base de données\marignac.jpg")
            End If
End If
End Sub
 
Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Array("H. Servat", "S. Marignac")
End Sub

Merci par avance pour ton aide

[Marc-L]

Bonjour,

l'erreur de conception provient de la ligne de code SaveAs ne spécifiant pas le format du fichier à enregistrer,
juste consulter l'aide VBA interne de cette méthode …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[brunet.seve]

Merci beaucoup!
J'ai enfin réussi. Voici le code final :

Code :

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

1
2
ChangeFileOpenDirectory "C:\CERTIFICATS\CERTIFICATS ORIGINAUX\"
 .SaveAs2 FileName:=DocName + ".docm", FileFormat:=wdFormatXMLDocumentMacroEnabled