Bonjour,

Je créée un excel qui publie automatiquement un template word une fois les cases remplis.

J'utilise des balise <nom> pour trouver et remplacer les champs. quand j’exécute mon code tout fonctionne bien jusqu'au moment où il doit remplacer le 2ième champ et j'ai une erreur 91, qui en prime ne m'indique pas où se situe mon erreur. Obligé d'utiliser le débogeur ligne par ligne

j'ai parcouru tout internet je ne trouve pas mon erreur.
Je débute et c'est la première fois que j'utilise ce forum, merci de votre aide
voici mon code

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
40
41
42
43
44
 
< Sub main()
'Déclaration des variables utilisées dans le document
 
Dim variable1 As String
Dim variable_2 As String
...
Dim variable19 As String
'Déclaration des variables pour la lectures de donnéees
Dim r As Long
Dim c As Long
 
'positionnement à la cellule sélectionnée
 
r = ActiveCell.Row
c = ActiveCell.Column
'récuperation des valeurs
variable1 = Cells(r, c + 3)
...
variable19= Cells(c + 5, c + 10)
 
'declaration des varaibles pour passer a un fichier word
Dim wApp As Word.Application
Dim wDoc As Word.Document
Const filename_access = "chemin_acces"
 
Set wApp = New Word.Application
wApp.Visible = False
 
With wDoc
.Content.Find.Execute FindText:="<<balise1>>", _
ReplaceWith:=nom_client, Replace:=wdReplaceAll
End With
 
 
.....
 
 
With wDoc
.Content.Find.Execute FindText:="<<balise2>>", _
ReplaceWith:=num_projet, Replace:=wdReplaceAll
End With
 
end sub