Discussion :

[Mrfreeze117]

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

[Mrfreeze117]

Je suis passé comme ça mais j'aurai préféré nommer les champ

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    WordDoc.Fields(1).Result.Text = Range("A2").Value
    WordDoc.Fields(2).Result.Text = Range("B2").Value
    WordDoc.Fields(3).Result.Text = Range("C2").Value
    WordDoc.Fields(4).Result.Text = Date
    WordDoc.Fields(5).Result.Text = Range("F2").Value
    WordDoc.Fields(6).Result.Text = Range("D2").Value
    WordDoc.Fields(7).Result.Text = Range("G2").Value
    WordDoc.Fields(8).Result.Text = Range("H2").Value
    WordDoc.Fields(9).Result.Text = Range("I2").Value
    WordDoc.Fields(10).Result.Text = Range("J2").Value
    WordDoc.Fields(11).Result.Text = Range("K2").Value
    WordDoc.Fields(12).Result.Text = Range("L2").Value
    WordDoc.Fields(13).Result.Text = Range("M2").Value
    WordDoc.Fields(14).Result.Text = Range("N2").Value