[VBA Excel+Word] modification du résultat du publipostage

**Xiombarg2911** · 07/05/2008, 17h12

Bonjour,

Je vais essayer d'etre clair (en fait c pas compliqué^^)
Je pars d'excel. En VBA j'ai un bouton qui réalise les choses suivantes :
1. tri d'une bases de donnée sur Feuil1
2. Ajout d'un X a la fin de chaque ligne répondant au critère de tri
3. Copie des lignes obtenues vers Feuil2
4. Publipostage de ces lignes vers Word

A ce moment de la procédure j'ai 3 fichiers ouverts : mon fichier excel, mon fichier word de modèle d'étiquettes, et mon fichier word de résultat de publipostage.

J'aimerai, toujours en partant de mon bouton dans mon formulaire sous excel, réaliser une recherche et un remplacement de texte dans le document word résultat de publipostage.

Le document word résultat de publipostage s'apelle toujours "Lettres types1" mais je n'arrive pas à le sélectionner puisqu'a ce moment de la procédure il n'est pas sauvegardé ; on ne peut donc pas le sélectionner dans un répertoire. C'est également le document visible sur mon écran, mais ActiveDocument semble ne pas fonctionner.

Je vous passe mon code de fusion :

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
Set wdApp = New Word.Application
    With wdApp
        .Visible = True
        .Documents.Open "C:\Documents and Settings\Administrateur\Bureau\modèleetiquette.doc"
        .ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\Administrateur\Bureau\Anciens élus(2).xlsm", sQLStatement:="SELECT * FROM [Feuil3$]"
        .ActiveDocument.MailMerge.Destination = wdSendToNewDocument
        .ActiveDocument.MailMerge.Execute
    'With wdApp
    With ActiveDocument.Selection.Find
        .Text = "  "
        .Replacement.Text = " "
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With ActiveDocument.Selection.Find
        .Text = ", ^p"
        .Replacement.Text = "^p"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End With
End If
End Sub