Gilles52300
XLDnaute Junior
Bonjour messieurs,
je planche sur un problème traité x fois mais dont je n'arrive pas à me sortir.
je cherche à vérifier l'existence d'un fichier afin d'en déduire le nom du prochain fichier à enregistrer.
actuellement j'en suis là, et à chaque fois il ne reconnait pas l'existence du fichier.
Si vous avez une idée ou bien une réponse, je vous remercie d'avance.
je planche sur un problème traité x fois mais dont je n'arrive pas à me sortir.
je cherche à vérifier l'existence d'un fichier afin d'en déduire le nom du prochain fichier à enregistrer.
actuellement j'en suis là, et à chaque fois il ne reconnait pas l'existence du fichier.
Code:
Xdate = TextBox1
x = 1
Dte = Format(Xdate, "yymmdd")
Dte = Dte & "-" & x
Fichier1 = XChemin & Application.PathSeparator & Dte & ".xls"
'MsgBox Fichier1
Do While Dir(Fichier1, vbDirectory) <> ""
If Dir(Fichier1, vbDirectory) = "" Then
'creation du N° de devis
Range("B8") = Dte
With Range("B8")
.HorizontalAlignment = xlLeft
End With
GoTo 1
Else
x = x + 1
End If
Loop
1:
Si vous avez une idée ou bien une réponse, je vous remercie d'avance.
Dernière édition: