[XL-2010] Ecrire dans un champ Word

Bonjour à tous,

Je ne comprends pas pourquoi ma macro ne marche pas.

J'ai une erreur d'exécution 13, incompatibilité en ligne 16, je pense que c'est dans la façon de nommée mon champ mais je ne trouve pas comment le nommé autrement.

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
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
    'ouvre du document Word
    Set WordDoc = WordApp.Documents.Open("C:\Users\Documents\2- Projets\Délégation\Formulaire.doc")
    'word est masqué pendant l'opération
    WordApp.Visible = True
 
 
    'Fields(1) : premier champ du document Word
    'Insertion du contenu de la cellule A1 dans le champ.
    WordDoc.Fields("N").Result.Text = Range("A2").Value
    WordDoc.Fields("P").Result.Text = Range("B2").Value
    WordDoc.Fields("F").Result.Text = Range("C2").Value
    WordDoc.Fields("Date").Result.Text = Now
    WordDoc.Fields("V").Result.Text = Range("F2").Value
    WordDoc.Fields("PQD").Result.Text = Range("D2").Value
    WordDoc.Fields("Vcp").Result.Text = Range("G2").Value
    WordDoc.Fields("VHCT").Result.Text = Range("H2").Value
    WordDoc.Fields("VCP").Result.Text = Range("I2").Value
    WordDoc.Fields("ATDV").Result.Text = Range("J2").Value
    WordDoc.Fields("EC").Result.Text = Range("K2").Value
    WordDoc.Fields("ENC").Result.Text = Range("L2").Value
    WordDoc.Fields("AOB").Result.Text = Range("M2").Value
    WordDoc.Fields("IB").Result.Text = Range("N2").Value
    'Ferme le document word en sauvegardant les modifications
    WordDoc.Close True
    'ferme la session Word
    WordApp.Quit
End Sub