[myDearFriend!]

Bonsoir derfla,

Une tentative ci-dessous :

Sub test()
      MsgBox 'Nom de fichier possible : ' & NumFichier('C:\MonDossier\', 'Fichier_')
End Sub

Function NumFichier(Chemin, Fichier) As String
Dim Num As Integer
      On Error Resume Next
      Do
            NumFichier = ''
            Num = Num + 1
            NumFichier = FileDateTime(Chemin & Fichier & Format(Num, '0000') & '.xls')
      Loop Until NumFichier = ''
      On Error GoTo 0
      NumFichier = Fichier & Format(Num, '0000') & '.xls'
End Function

Cordialement,

Message édité par: myDearFriend!, à: 24/10/2005 23:52