Discussion :

[doudou8mc]

Bonjour ,

j'esaie d'automatiser un publipostage entre excel et word, mais en execurant ma macro le message suivant apparait:"erreur de compilation.Type définit par l'utilisateur non définit".

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
 Dim docWord As Word.document
    Dim appWord As Word.Application
    Dim NomBase As String
 
    NomBase = "C:\dossier\FSS - NOUVELLE GAMME - COMM- COTISATIONS.xls"
 
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("C:\Proposition FSS\Proposition FSS NG.doc")
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.mailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
          Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM [Signalétique$]"
        'Spécifie la fusion vers l'imprimante
        .Destination = wdSendToPrinter
        .suppressBlankLines = True
            'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .firstRecord = wdDefaultFirstRecord
                .lastRecord = wdDefaultLastRecord
            End With
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
    Application.ScreenUpdating = True
 
    'Fermeture du document Word
    docWord.Close False
    appWord.Quit
 
'
End Sub

Je ne comprends pas mon erreur. Quelqu'un peit il m'éclaicir .

Merci

[diude54]

Essai comme ça:

Code :

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

1
2
Dim MonBeauWord As Object
Set MonBeauWord = New Word.Application

http://silkyroad.developpez.com/Exce...tageWordExcel/

[Access Newbie]

Bonjour,

La référence à WORD est-elle présente ? (dans vba, outils / références)

[doudou8mc]

rebonjour,

oui la référence y est , et le nouveau problème c'est qu'il ne prend pas en compte les changements. Si je change le nom du client , pas de mis à jours sur word.
De plus il affiche message "erreur d'execution 5273".Qd j'appui sur débogage il souligne cette partie du code :

Code :

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

1
2
3
4
5
6
With docWord.mailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
          Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM [Mimi$]"

merci