Erreur de compilation incompréhensible - membre de méthode ou de données introuvable

**VbTm_2019** · 03/09/2019, 11h12

Bonjour,

J'ai un problème d'exécution de mon code qui a surgi de manière soudaine alors que le code fonctionnait normalement avant.

Le message d'erreur est le suivant:

Erreur de compilation
Membre de méthode ou de données introuvables

Le message d'erreur s'affiche en surlignant la ligne 165 de code suivante située en fin de code: xlWb.Close.

Le code concerné est le code ci-dessous:

Merci d'avance pour votre aide.

TM

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
Sub Prod_Facture()
'Déclaration des variables
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlSh As Excel.Worksheet
On Error GoTo err_handler
Dim iR, jR, lR, mR As Integer
Dim i, j, k, l, m As Integer
 
Dim oDoc As Document
Dim oTbl, oTb2, oTb3 As Table
Dim stDocName As String
Dim stPath As String
Dim plage As Range, resultat As Integer
Dim User As String
 
User = "t.molierac"
 
'Affectation des données aux variables
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open("C:\Users\" & User & "\OneDrive - LEXIQUE\RESEAU LEXIQUE\FACTURE\PROD\SGBD_Facture_Production.xlsm")
Set xlSh1 = xlWb.Worksheets(1)
Set xlSh2 = xlWb.Worksheets(2)
Set xlSh5 = xlWb.Worksheets(5)
'Récupération du nombre de lignes et de colonnes
iR = xlSh1.UsedRange.Rows.Count
jR = xlSh2.UsedRange.Rows.Count
err_handler:
   MsgBox "The code failed at line " & Erl, vbCritical
 
 For i = 41 To 41
        stDocName = "C:\Users\" & User & "\OneDrive - LEXIQUE\RESEAU LEXIQUE\FACTURE\DEF\" & Format(Now, "yyyy_mm_dd_") & xlSh1.Cells(i, 3) & "_" & xlSh1.Cells(i, 4) & "_" & xlSh1.Cells(i, 6) & ".docx"
        Set oDoc = Documents.Add("C:\Users\" & User & "\OneDrive - LEXIQUE\RESEAU LEXIQUE\FACTURE\PROD\Facture_Modèle_Production.docm")
        Set oTbl = oDoc.Tables(1)
        Set oTb2 = oDoc.Tables(2)
        Set oTb3 = oDoc.Tables(3)
 
        oDoc.Bookmarks("S1").Range.Text = xlSh1.Cells(i, 5)
        oDoc.Bookmarks("S2").Range.Text = xlSh1.Cells(i, 7)
        oDoc.Bookmarks("S3").Range.Text = xlSh1.Cells(i, 6)
        oDoc.Bookmarks("S4").Range.Text = xlSh1.Cells(i, 8)
        oDoc.Bookmarks("S5").Range.Text = xlSh1.Cells(i, 9)
        oDoc.Bookmarks("S6").Range.Text = xlSh1.Cells(i, 10)
        oDoc.Bookmarks("S7").Range.Text = xlSh1.Cells(i, 11)
        oDoc.Bookmarks("S8").Range.Text = xlSh1.Cells(i, 12)
        oDoc.Bookmarks("S9").Range.Text = xlSh1.Cells(i, 13)
        oDoc.Bookmarks("S10").Range.Text = xlSh1.Cells(i, 14)
        oDoc.Bookmarks("S0").Range.Text = xlSh1.Cells(i, 4)
        oDoc.Bookmarks("S21").Range.Text = Format(Now, "dd mmmm yyyy")
        oDoc.Bookmarks("SIBAN").Range.Text = xlSh5.Cells(3, 2)
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = xlSh1.Cells(i, 15)
        oTbl.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 18)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 19)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 20)
 
            For k = 2 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        oTbl.Rows.Last.Range.Font.Bold = False
 
        If xlSh1.Cells(i, 21) = 0 Then
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "TOTAL"
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 24)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 25)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 26)
            For k = 2 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        oTb3.Delete
 
        Else
 
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "Frais suivant détail ci-après"
        oTbl.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 21)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 22)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 23)
        oTbl.Rows.Last.Range.Font.Bold = False
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "TOTAL"
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 24)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 25)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 26)
            For k = 1 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        For j = 2 To jR
        If xlSh2.Cells(j, 3) = xlSh1.Cells(i, 4) Then
        oTb3.Rows.Add
        oTb3.Rows.Last.Cells(1).Range.Text = xlSh2.Cells(j, 12)
        oTb3.Rows.Last.Cells(2).Range.Text = xlSh2.Cells(j, 5) & " - " & xlSh2.Cells(j, 6)
        oTb3.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTb3.Rows.Last.Cells(2).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTb3.Rows.Last.Cells(3).Range.Text = xlSh2.Cells(j, 9)
        oTb3.Rows.Last.Range.Font.Bold = False
        oTb3.Rows.Last.Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        End If
 
        Next j
 
        End If
 
Next i
 
lR = oDoc.Tables(1).Rows.Count
 
With oDoc.Tables(1)
    For l = 1 To lR
 
    .Rows(l).Height = CentimetersToPoints(1)
    .Rows(l).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next l
 
End With
 
If xlSh1.Cells(i, 21) <> 0 Then
 
mR = oDoc.Tables(3).Rows.Count
 
With oDoc.Tables(3)
    For m = 1 To mR
 
    .Rows(m).Height = CentimetersToPoints(1)
    .Rows(m).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next m
 
End With
 
End If
 
oDoc.Tables(1).Rows.Last.Range.Font.Bold = True
 
If xlSh1.Cells(i, 21) <> 0 Then
oDoc.Tables(3).Rows.Last.Range.Font.Bold = True
End If
 
oTb2.Columns(1).Cells(2).Range.Text = xlSh1.Cells((i - 1), 24)
oTb2.Columns(2).Cells(2).Range.Text = xlSh1.Cells((i - 1), 27)
oTb2.Columns(3).Cells(2).Range.Text = xlSh1.Cells((i - 1), 25)
 
With oDoc.Tables(2)
    For k = 1 To 2
 
    .Columns(k).Cells(k).Height = CentimetersToPoints(1)
    .Rows(k).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next k
 
    .Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
 
End With
 
oDoc.SaveAs stDocName
 
oDoc.Close
 
Set oDoc = Nothing
 
xlWb.Close
xlApp.Quit
Set xlSh = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
 
 
End Sub

Images attachées Images attachées

Invité · 03/09/2019, 11h43

Bonjour,

Mettez déjà un Option Explicit en tête de votre module, faites un débogage et créez les variables manquantes.

Ces lignes sont bizarrement placées.

Code :

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

1
2
err_handler:
MsgBox "The code failed at line " & Erl, vbCritical

Pour la fermeture de votre fichier Excel, complétez avec SaveChanges et l'option choisie.

**VbTm_2019** · 03/09/2019, 17h44

Eric,

Merci pour votre réponse rapide et claire.

Le problème est résolu.

Bien à vous,

TM

**VbTm_2019** · 11/10/2019, 16h07

Bonjour,

J'ai de nouveau le même problème alors que je n'ai pas modifié le code!!!

Le message d'erreur suivant s'affiche à nouveau: erreur de compilation, membre de méthode ou de données introuvable.

Avez-vous un conseil pour résoudre définitivement ce problème?

Merci d'avance pour votre temps,

Bien à vous,

TM

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
 
 
 
Option Explicit
 
Sub Prod_Facture()
 
'Déclaration des variables
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlSh1, xlSh2, xlSh5 As Excel.Worksheet
Dim iR, jR, lR, mR As Integer
Dim i, j, k, l, m As Integer
 
Dim oDoc As Document
Dim oTbl, oTb2, oTb3 As Table
Dim stDocName As String
Dim stPath As String
Dim plage As Range, resultat As Integer
Dim User As String
 
User = "t.molierac"
 
'Affectation des données aux variables
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open("C:\Users\" & User & "\OneDrive - LEXIQUE\RESEAU LEXIQUE\FACTURE\PROD\SGBD_Facture_Production.xlsx")
Set xlSh1 = xlWb.Worksheets(1)
Set xlSh2 = xlWb.Worksheets(2)
Set xlSh5 = xlWb.Worksheets(5)
'Récupération du nombre de lignes et de colonnes
iR = xlSh1.UsedRange.Rows.Count
jR = xlSh2.UsedRange.Rows.Count
 
 For i = 49 To 49
        stDocName = "C:\Users\" & User & "\OneDrive - LEXIQUE\RESEAU LEXIQUE\FACTURE\DEF\" & Format(Now, "yyyy_mm_dd_") & xlSh1.Cells(i, 3) & "_" & xlSh1.Cells(i, 4) & "_" & xlSh1.Cells(i, 6) & ".docx"
        Set oDoc = Documents.Add("C:\Users\" & User & "\OneDrive - LEXIQUE\RESEAU LEXIQUE\FACTURE\PROD\Facture_Modèle_Production.docm")
        Set oTbl = oDoc.Tables(1)
        Set oTb2 = oDoc.Tables(2)
        Set oTb3 = oDoc.Tables(3)
 
        oDoc.Bookmarks("S1").Range.Text = xlSh1.Cells(i, 5)
        oDoc.Bookmarks("S2").Range.Text = xlSh1.Cells(i, 7)
        oDoc.Bookmarks("S3").Range.Text = xlSh1.Cells(i, 6)
        oDoc.Bookmarks("S4").Range.Text = xlSh1.Cells(i, 8)
        oDoc.Bookmarks("S5").Range.Text = xlSh1.Cells(i, 9)
        oDoc.Bookmarks("S6").Range.Text = xlSh1.Cells(i, 10)
        oDoc.Bookmarks("S7").Range.Text = xlSh1.Cells(i, 11)
        oDoc.Bookmarks("S8").Range.Text = xlSh1.Cells(i, 12)
        oDoc.Bookmarks("S9").Range.Text = xlSh1.Cells(i, 13)
        oDoc.Bookmarks("S10").Range.Text = xlSh1.Cells(i, 14)
        oDoc.Bookmarks("S0").Range.Text = xlSh1.Cells(i, 4)
        oDoc.Bookmarks("S21").Range.Text = Format(Now, "dd mmmm yyyy")
        oDoc.Bookmarks("SIBAN").Range.Text = xlSh5.Cells(2, 2)
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = xlSh1.Cells(i, 15)
        oTbl.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 18)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 19)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 20)
 
            For k = 2 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        oTbl.Rows.Last.Range.Font.Bold = False
 
        If xlSh1.Cells(i, 21) = 0 Then
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "TOTAL"
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 24)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 25)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 26)
            For k = 2 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        oTb3.Delete
 
        Else
 
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "Frais suivant détail ci-après"
        oTbl.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 21)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 22)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 23)
        oTbl.Rows.Last.Range.Font.Bold = False
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "TOTAL"
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 24)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 25)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 26)
            For k = 1 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        For j = 2 To jR
        If xlSh2.Cells(j, 3) = xlSh1.Cells(i, 4) Then
        oTb3.Rows.Add
        oTb3.Rows.Last.Cells(1).Range.Text = xlSh2.Cells(j, 12)
        oTb3.Rows.Last.Cells(2).Range.Text = xlSh2.Cells(j, 5) & " - " & xlSh2.Cells(j, 6)
        oTb3.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTb3.Rows.Last.Cells(2).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTb3.Rows.Last.Cells(3).Range.Text = xlSh2.Cells(j, 9)
        oTb3.Rows.Last.Range.Font.Bold = False
        oTb3.Rows.Last.Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        End If
 
        Next j
 
        End If
 
 
 
lR = oDoc.Tables(1).Rows.Count
 
With oDoc.Tables(1)
    For l = 1 To lR
 
    .Rows(l).Height = CentimetersToPoints(1)
    .Rows(l).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next l
 
End With
 
If xlSh1.Cells(i, 21) <> 0 Then
 
mR = oDoc.Tables(3).Rows.Count
 
With oDoc.Tables(3)
    For m = 1 To mR
 
    .Rows(m).Height = CentimetersToPoints(1)
    .Rows(m).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next m
 
End With
 
End If
 
oDoc.Tables(1).Rows.Last.Range.Font.Bold = True
 
If xlSh1.Cells(i, 21) <> 0 Then
oDoc.Tables(3).Rows.Last.Range.Font.Bold = True
End If
 
oTb2.Columns(1).Cells(2).Range.Text = xlSh1.Cells((i - 1), 24)
oTb2.Columns(2).Cells(2).Range.Text = xlSh1.Cells((i - 1), 27)
oTb2.Columns(3).Cells(2).Range.Text = xlSh1.Cells((i - 1), 25)
 
With oDoc.Tables(2)
    For k = 1 To 2
 
    .Columns(k).Cells(k).Height = CentimetersToPoints(1)
    .Rows(k).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next k
 
    .Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
 
End With
 
oDoc.SaveAs stDocName
 
Next i
 
oDoc.Close
 
Set oDoc = Nothing
 
xlWb.Close
xlApp.Quit
Set xlSh1 = Nothing
Set xlSh2 = Nothing
Set xlSh5 = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
 
 
End Sub

Invité · 11/10/2019, 16h50

Envoyé par VbTm_2019

Bonjour,

Je ne vois rien d'anormal. Il faudrait mettre en ligne un exemple de vos fichiers pour vérifier.

**clementmarcotte** · 11/10/2019, 23h51

Bonjour,

Envoyé par VbTm_2019

Code :

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

Dim xlSh1, xlSh2, xlSh5 As Excel.Worksheet

Juste xlSh5 est défini comme Excel.Worksheet,
Les deux autres sont des Variant.
Pour avoir trois Excel.worksheet, il faut mettre as Excel.Worksheet à chaque fois

Code :

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

1
2
3
Dim iR, jR, lR, mR As Integer
Dim i, j, k, l, m As Integer
Dim oTbl, oTb2, oTb3 As Table

C'est exactement le même principe que pour As Excel.Worksheet.

VBA permet les déclarations multiples sur la même ligne, mais chaque type doit être déclaré. Un type non déclaré est variant par défaut.

Et c'est la même chose pour toutes les versions de VBA.

Invité · 12/10/2019, 08h54

Envoyé par clementmarcotte

Bien vu Clément.

**VbTm_2019** · 18/10/2019, 14h34

Bonjour,

Merci à tous deux pour vos réponses.

J'ai effectué les corrections proposées par Clément comme ci-dessous dans le code.
Toutefois, le message d'erreur subsiste.

Je vous joins le fichier excel et le fichier word utilisé par le code.

J'ai supprimé les chemins d'accès en les remplaçant par xxx.

D'avance merci pour votre revue,

TM

Facture_Modèle_Production_test.docx SGBD_Facture_Production_test.xlsx

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
 
 
Sub Prod_Facture()
 
'Déclaration des variables
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlSh1 As Excel.Worksheet, xlSh2 As Excel.Worksheet, xlSh5 As Excel.Worksheet
Dim iR As Integer, jR As Integer, lR As Integer, mR As Integer
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer
 
Dim oDoc As Document
Dim oTbl As Table, oTb2 As Table, oTb3 As Table
Dim stDocName As String
Dim stPath As String
Dim plage As Range, resultat As Integer
Dim User As String
 
 
'Affectation des données aux variables
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open("C:\Users\xxx\SGBD_Facture_Production_test.xlsx")
Set xlSh1 = xlWb.Worksheets(1)
Set xlSh2 = xlWb.Worksheets(2)
Set xlSh5 = xlWb.Worksheets(5)
'Récupération du nombre de lignes et de colonnes
iR = xlSh1.UsedRange.Rows.Count
jR = xlSh2.UsedRange.Rows.Count
 
 For i = 49 To 49
        stDocName = "C:\Users\xxx\DEF\" & Format(Now, "yyyy_mm_dd_") & xlSh1.Cells(i, 3) & "_" & xlSh1.Cells(i, 4) & "_" & xlSh1.Cells(i, 6) & ".docx"
        Set oDoc = Documents.Add("C:\Users\xxx\Facture_Modèle_Production_test.docm")
        Set oTbl = oDoc.Tables(1)
        Set oTb2 = oDoc.Tables(2)
        Set oTb3 = oDoc.Tables(3)
 
        oDoc.Bookmarks("S1").Range.Text = xlSh1.Cells(i, 5)
        oDoc.Bookmarks("S2").Range.Text = xlSh1.Cells(i, 7)
        oDoc.Bookmarks("S3").Range.Text = xlSh1.Cells(i, 6)
        oDoc.Bookmarks("S4").Range.Text = xlSh1.Cells(i, 8)
        oDoc.Bookmarks("S5").Range.Text = xlSh1.Cells(i, 9)
        oDoc.Bookmarks("S6").Range.Text = xlSh1.Cells(i, 10)
        oDoc.Bookmarks("S7").Range.Text = xlSh1.Cells(i, 11)
        oDoc.Bookmarks("S8").Range.Text = xlSh1.Cells(i, 12)
        oDoc.Bookmarks("S9").Range.Text = xlSh1.Cells(i, 13)
        oDoc.Bookmarks("S10").Range.Text = xlSh1.Cells(i, 14)
        oDoc.Bookmarks("S0").Range.Text = xlSh1.Cells(i, 4)
        oDoc.Bookmarks("S21").Range.Text = Format(Now, "dd mmmm yyyy")
        oDoc.Bookmarks("SIBAN").Range.Text = xlSh5.Cells(2, 2)
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = xlSh1.Cells(i, 15)
        oTbl.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 18)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 19)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 20)
 
            For k = 2 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        oTbl.Rows.Last.Range.Font.Bold = False
 
        If xlSh1.Cells(i, 21) = 0 Then
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "TOTAL"
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 24)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 25)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 26)
            For k = 2 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        oTb3.Delete
 
        Else
 
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "Frais suivant détail ci-après"
        oTbl.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 21)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 22)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 23)
        oTbl.Rows.Last.Range.Font.Bold = False
        oTbl.Rows.Add
        oTbl.Rows.Last.Cells(1).Range.Text = "TOTAL"
        oTbl.Rows.Last.Cells(2).Range.Text = xlSh1.Cells(i, 24)
        oTbl.Rows.Last.Cells(3).Range.Text = xlSh1.Cells(i, 25)
        oTbl.Rows.Last.Cells(4).Range.Text = xlSh1.Cells(i, 26)
            For k = 1 To 4
            oTbl.Rows.Last.Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Next k
 
        For j = 2 To jR
        If xlSh2.Cells(j, 3) = xlSh1.Cells(i, 4) Then
        oTb3.Rows.Add
        oTb3.Rows.Last.Cells(1).Range.Text = xlSh2.Cells(j, 12)
        oTb3.Rows.Last.Cells(2).Range.Text = xlSh2.Cells(j, 5) & " - " & xlSh2.Cells(j, 6)
        oTb3.Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTb3.Rows.Last.Cells(2).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
        oTb3.Rows.Last.Cells(3).Range.Text = xlSh2.Cells(j, 9)
        oTb3.Rows.Last.Range.Font.Bold = False
        oTb3.Rows.Last.Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        End If
 
        Next j
 
        End If
 
 
 
lR = oDoc.Tables(1).Rows.Count
 
With oDoc.Tables(1)
    For l = 1 To lR
 
    .Rows(l).Height = CentimetersToPoints(1)
    .Rows(l).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next l
 
End With
 
If xlSh1.Cells(i, 21) <> 0 Then
 
mR = oDoc.Tables(3).Rows.Count
 
With oDoc.Tables(3)
    For m = 1 To mR
 
    .Rows(m).Height = CentimetersToPoints(1)
    .Rows(m).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next m
 
End With
 
End If
 
oDoc.Tables(1).Rows.Last.Range.Font.Bold = True
 
If xlSh1.Cells(i, 21) <> 0 Then
oDoc.Tables(3).Rows.Last.Range.Font.Bold = True
End If
 
oTb2.Columns(1).Cells(2).Range.Text = xlSh1.Cells((i - 1), 24)
oTb2.Columns(2).Cells(2).Range.Text = xlSh1.Cells((i - 1), 27)
oTb2.Columns(3).Cells(2).Range.Text = xlSh1.Cells((i - 1), 25)
 
With oDoc.Tables(2)
    For k = 1 To 2
 
    .Columns(k).Cells(k).Height = CentimetersToPoints(1)
    .Rows(k).Cells.VerticalAlignment = wdAlignVerticalCenter
    Next k
 
    .Rows.Last.Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
 
End With
 
oDoc.SaveAs stDocName
 
Next i
 
oDoc.Close
 
Set oDoc = Nothing
 
xlWb.Close
xlApp.Quit
Set xlSh1 = Nothing
Set xlSh2 = Nothing
Set xlSh5 = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
 
 
End Sub

Erreur de compilation incompréhensible - membre de méthode ou de données introuvable

VBA Word

Discussions similaires

Partager

Partager