Discussion :

[zoumzoum59]

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 :

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
 
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.

[zoumzoum59]

J'ai trouvé une solution

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
 
If Dir(ChemTcd) = "" Then
    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)
            .Save
            .Close
        End With
Else
    Workbooks.Open (ChemTcd)
    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
End If

Merci quand même à tous ceux qui on peut etre cherché pour moi.