Lister les fichiers d'1 repertoire

derfla · 24 Octobre 2005

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! · 24 Octobre 2005

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

Lister les fichiers d'1 repertoire

derfla

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires