Discussion :

[David_LeNovis]

Bonjour,

Je voulais durant mon publipostage, enregistrer chaque résultat dans des fichiers séparé. malheureusement le script que j'ai trouvé à l'emplacement :

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

ne fonctionne pas sur mon poste. Quelqu'un pourrait m'aider?

[patrice084]

Bonjour,

Je voulais durant mon publipostage, enregistrer chaque résultat dans des fichiers séparé. malheureusement le script que j'ai trouvé à l'emplacement :

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

ne fonctionne pas sur mon poste. Quelqu'un pourrait m'aider?

Je pense qu'il y a mauvaise interprétation. Le nouveau document ne veut pas dire un document par adresse mais un document qui contiendra l'ensemble du publipostage.

[David_LeNovis]

Merci de votre réponse.

Mais Est-il possible de constituer un fichier par document générer ? Car pour ma part j’en ai plus de 500 et je dois les conserver au format Word pour qu’il puisse être compléter ou modifier.

[Heureux-oli]

Salut,

Qu'est-ce qui ne fonctionne pas dans le code ?

[David_LeNovis]

Bonjour,

Quand il arrive sur execute, j'obtiens l'erreur :

Erreur d'execution 5631

Impossible de fusionner le document principal avec la source de données : les enregistrements etaient tous vide ou aucun enregistrementne correspondait à vos options de requetes

pourtant j'ai preparé mon publipostage et j'ai 447 enregistrements.

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 TestPublipost()
' 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(2).Value
        DocName = DocName & "-" & .DataSource.DataFields(3).Value
        Debug.Print DocName; i
    End With
    ' Sauvegarde du document publiposté
    With ActiveDocument
        .SaveAs "c:\temp\" & DocName & ".doc"
        .Close
    End With
Next i
End Sub

[Heureux-oli]

Salut,

Combien de champs as-tu dans ton fichier de données ?

[David_LeNovis]

Bonjour,

La source est un document Excel de 75 champs sur 500 lignes

[Heureux-oli]

Salut,

Dans le code, les champs 2 et 3 sont utilisés pour le nom du fichier.
S'ils sont vides pour certains enregistrements, c'est peut-être la source du problème.

[David_LeNovis]

Bonjour,

Merci pour votre retour.
J'ai déplace mes deux fichiers du bureau vers un répertoire commun, j'ai compléter dans la colonne "deux" tous les champs qui étaient vide et cela fonctionne maintenant très bien.


merci pour tout,