Discussion :

[abdelkarim_1987]

je veux imprimer le publipostage depuis excel, j'utiliser un code trouvé sur ce site mais j'ai une erreur au début de code erreur de compilation: type définie par l'utilisateur non défini

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 imprimer()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim docWord As word.Document
    Dim appWord As word.Application
    Dim NomBase As String
 
    NomBase = "C:\Users\AA0B554N\Desktop\Stage_Projets_f\Registre ILD AFC FCC V7 FCC Besançon.xls"
 
    Application.ScreenUpdating = False
    Set appWord = New word.Application
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("C:\Users\AA0B554N\Desktop\Stage_Projets_f\Fiche de pose DDD.docx")
 
    '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 [Registre PPI AFC apres visite$]"
        '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

[Lilou51]

Bonjour,

La référence à word a-t-elle été correctement ajoutée ?

[abdelkarim_1987]

je ne sais pas trop c'est quoi, pouvez vous me dire comment l'ajouter ??

[lelensois16]

En fait, vous utilisez des objets autrement dit propriétés et méthodes propres à Word. Ces objets sont regroupés dans une librairie.

Pour y accéder :
Dans Visual Basic Editor > Outils > Références > Microsoft Word 14 Object Library