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: