[WD-2000] Publipostage image - Ctrl A + F9

[ruliann]

Bonjour,

J'ai réalisé un publipostage avec Word, d'après une BDD sous excel, comprenant des images.

La BDD excel ressemble à:

ligne 1 = nom prénom photo
ligne 2 = Martin Pierre C:\\photo\\2010\\pierre.jpg
ligne 3 = Dupond Marie C:\\photo\\2010\\marie.jpg
....
jusqu'à la ligne 200.....


Mon problème: l'image contenue dans la ligne 2 (celle de Pierre), apparait sur mes 200 fiches. Je précise que pour lancer le publipostage, je passe par une macro trouvée sur un tuto du forum, car je souhaite enregistrer autant de fichiers word que j'ai de fiches. Cette macro a comme raccourci Ctrl+P.

Code :

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
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 = 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
                Debug.Print DocName; i
    End With
    ' Sauvegarde du document publiposté
    With ActiveDocument
        .SaveAs "C:\Documents and Settings\mesdoc\Bureau\2010\Résultat_Publipostage\" & DocName & ".doc"
        .Close
    End With
Next i
End Sub

Voici donc la procédure que je suis:

- j'ouvre mon doc Word de base
- je vérifie la synthaxe des champs
- je MAJ en faisant Ctrl+A puis F9 (un message en bas a gauche de la fenetrte Word me dit que tous les champs n'ont pa pu etre mis a jour)
- l'assistant du publipostage me propose de cliquer sur étape 56 fin de fusion, ce que je fais
- et enfin je lance la macro Ctrl + P

et là..qd je vais voir les fichiers Word enregistrés, ils contiennent tous la meme image de Pierre...


Bizzare car, quand je passe par une autre méthode qui consiste à lancer l'impression étape 6/6 de l'assistant Pubplipostage (au lieu de lancer la macro), j'obtiens un unique fichier Wrd avec toutes mes images nikel... sauf que... moi je voudrais plein de petits fichiers word.

[Heureux-oli]

Salut,

Les deux ne sont pas mixables.
Soit le code VBA, soit l'assistant publipostage.

Si c'est le VBA qui est utilisé, il faut mettre l'image à jour pour chaque fichier.

[ruliann]

Salut,

ah d'accord...les deux ne sont pas mixables?

donc soit je passe par le VBA, et j'ouvre un à un les fichiers word, puis je les mets à jour en faisant Ctrl A puis F9,

soit je passe par l'assistant publipostage et j'imprime toutes mes fiches ds un seul et même doc word, par contre après à moi d'enregistrer une page par fichier.

à moi de choisir la manip qui me rebute le moins quoi

[Heureux-oli]

Salut,

Tu peux toujours intégrer une mise à jour des champs avant de fermer le document.

Code :

1
2
3
4
5
6
 
    With ActiveDocument
        .Fields.Update
        .SaveAs "C:\Documents and Settings\mesdoc\Bureau\2010\Résultat_Publipostage\" & DocName & ".doc"
        .Close
    End With

[ruliann]

salut,

Ca revient a faire Ctrl+A et F9 non?

[Heureux-oli]

Salut,

Oui, mais pour chaque document créé.

[ruliann]

salut

ok

bon j'aurais découvert certains rouage du pubipostage avec vous... mais je trouve ça un peu usine à gaz qd même dans mon cas...

connaitriez vous un logiciel qui permette le traitement et a mise en page de base de données? genre Bento par exemple, je pense que j'aurais pu l'utiliser à la place de mon publipostage, vous connaissez?

[carden752]

Bonjour,

Tu peux très bien prévoir une macro VBA qui se lance à la fin de ta fusion classique et qui réalise cette extraction.
Je vois un truc du genre copier toutes les sections dans un nouveau document Word que tu enregistres avec le nom que tu veux, même celui d'un champ, il te suffit de le placer à un endroit précis et fixe dans ta lettre type que tu puisses facilement le sélectionner.


Pour intercepter la fin de fusion regarde du coté de l'évènement mailmergeaftermerge

Pour réaliser la copie d'une section, tu peux utiliser ce code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub copiesection()
Dim nom As String
Dim m As Document
Dim s As Section
Set m = ActiveDocument
For Each s In ActiveDocument.Sections
 nom = Selection.Words(1)
s.Range.Copy
Dim doc As Document
Set doc = Documents.Add
Selection.Paste
doc.Activate
Selection.GoToNext wdGoToSection
Selection.MoveUp unit:=wdLine, Extend:=wdExtend
Selection.Delete
 
m.Activate
Next s
End Sub

En espérant t'aiguiller un petit peu

[Heureux-oli]

Salut,

Ce code va bien, mais il est incomplet.
Pour chaque enregistrement, un document est créé et gardé ouvert.
Si on souhaite faire une sauvegarde, le nom doit être donné manuellement ou on utilise le nom générique donné par Word ce qui pose problème pour retrouver les documents.
Alors que dans le tuto, on récupère une ou plusieurs valeurs dans les enregistrements pour donner un nom cohérent au fichier crée.
Chaque fichier est fermé pour ne pas trop perdre de ressources sur la machine.
Je vois pas d'un bon oeil 100 fichiers ouverts en même temps si on n'a que 100 enregistrements.

[ruliann]

salut,

merci à ts les 2.

Je pense pouvoir indiquer "résolu" sur le post. Je touche du bois mais pour le moment je m'en sors avec le code du tuto.

N'empeche que je ne comprend pas pqoi des fois, les macros ne fonctionnent plus... et nécessitent que je copie/colle mon fichier excel et mon doc word de base, dans un autre répertoire afin de réanimer les macros.. Ca m'en a fait des trucs bizzares!

[carden752]

Bonjour,

Bien vu Heureux Oli, effectivement, mais ne sachant pas la forme du nom de la sauvegarde, j'avais exprès pas mentionné cela, cependant je voulais rajouter une ligne de commentaires disant de ne pas oublier d'effectuer la sauvegarde.