[VBA_E] Procedure de test de fichier existant
bonjour à tous
j'ai fait une procedure qui me permet normalement de pouvoir utiliser un fichier s'il existe ou de le créer s'il n'existe pas.
Mais le soucis est qu'elle est basé sur le code "On Error GoTo saut" et que même si apparemment il n'y a pas d'erreur le saut ce fait dans tous les cas.
code:
Code:
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
|
On Error GoTo saut
Workbooks.Open (ChemTcd)
Stop
Workbooks(NmF).Worksheets(Nmois).Copy before:=Workbooks(NomTcd).Sheets("Feuil1")
Workbooks(NmF).Worksheets(DonNomDate).Copy before:=Workbooks(NomTcd).Worksheets("Feuil2")
Workbooks(NomTcd).Save
With Workbooks(NmF)
.Save
.Close
End With
Stop
Exit Sub
saut:
Stop
Set NewBook = Workbooks.Add
NewBook.SaveAs Filename:=ChemTcd
Workbooks(NmF).Worksheets(Nmois).Copy before:=Workbooks(NomTcd).Worksheets("Feuil1")
Workbooks(NmF).Worksheets(DonNomDate).Copy before:=Workbooks(NomTcd).Worksheets("Feuil2")
NewBook.Save
With Workbooks(NmF)
.Close
.Close
End With |
Il doit certainement ce produire une erreur quelque part pour qu'elle fasse le saut mais je ne vois pas ou.
Il y a t il un autre moyen de gerer un test pour savoir si le fichier existe déjà dans le repertoire qui est biensur défini.
Merci d'avance.
