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 : 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 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
Partager