Bonjour je suouhaite écrire une lettre en copiant collant des informations provenant de mon document excel.

Aujourd'hui j'ai deux soucis :

Ligne 20 Variable objet ou variable de bloc With non définie

Ligne 23 objet non défini alors que je l'ai nomé dans ma feuille de calcul

Est ce que quelqu'un voit mes erreurs et pourrait me les expliquer... ?

En vous remerciant



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
Private Sub letterbut_cliquer()
Donnees_ChampWord
End Sub
 
 
Sub Donnees_ChampWord()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
 
    'ouvre session word
    Set WordApp = New Word.Application
 
    'word est masqué pendant l'opération
    WordApp.Visible = False
 
 
    'Fields(1) : premier champ du document Word
    'Insertion du contenu de la cellule A1 dans le champ.
   WordDoc.Fields(1).Result.Text = "M XXXX" & vbNewLine & "addresse" & vbNewLine & "74520 XXXX"
 
    'Si le champ est dans un entête, utilisez:
    WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields(1).Result.Text = image2
 
End Sub