Lister les fichiers d'1 repertoire

[derfla]

Bonsoir a tous
Je souhaiterai a l'ouverture d'un fichier excel que celui ci liste les fichiers d'un repertoire donné afin de determiner un numero d'enregistrement exemple :


Liste des fichier du repertoire donne : c/repertoire tous les fichiers/
fichier_0001
fichier_0002
fichier_0003

1 la macro demande le nom du repertoire
2 elle liste tous les fichiers
2 j'extrais les 4 derniers caracteres
3 la macro genere un nouveau enregistrement fichier_0004

En esperanr que j'ai été explicite...
A Bientôt

Cordialement :unsure:

 

[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