Bonjour,

J'ai un souci sous VBA Excel
Voici un bout de code de mon application

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
Private Sub ButtonFacture_Click()
 
Const Template = "Facture export CEE.xlsx"
Dim FacFile As String
Dim WbFac As String
Dim LigneCde As Long
Dim CdesPath As String
Dim TemplatesPath As String
Dim FacturesPath As String
Dim WbCdes As String
Dim i As Integer
Dim j As Integer
CdesPath = Workbooks(ActiveWorkbook.Name).Path
TemplatesPath = CdesPath & "\Templates\"
FacturesPath = CdesPath & "\Factures\"
WbCdes = Workbooks(ActiveWorkbook.Name).Name
Workbooks.Open Filename:=TemplatesPath & Template
WbFac = ActiveWorkbook.Name
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Facture"
FacFile = "Fac_" & NumCde & ".xlsx"
Workbooks(WbCdes).Activate
 
Workbooks(WbFac).Sheets("Facture").Cells(18, 5) = data1
Worbooks(WbFac).Sheets("Facture").Cells(19, 5) = data2
etc...
 
End Sub
Le code s'execute parfaitement bien , mais le debug en mode pas à pas détaillé s'arrête de fonctionner à partir de l'instruction :
Workbooks.Open Filename:=TemplatesPath & Template

ou plus précisément le pas à pas continue à se faire mais le debug ne fournit plus aucune information sur le contenu des variables à partir de l'instruction ci-dessus.
Merci pour votre aide
Quel est le pb ?


NB : tout le code est embarqué dans le classeur principal Cdes