gildas lechat
XLDnaute Occasionnel
Bonjour le forum,
Vous trouverez ci dessous une macro permettant de lister tout les fichiers présent sous le répertoire correspondant à la variable (Chemin).
Je voudrais ajouter un message d'erreur du type " répertoire inexistant" si la variable donne acces a un répertoire répertoire non valide ( innexitant)
Pouvez vous m'aider ?
Merci d'avance
Vous trouverez ci dessous une macro permettant de lister tout les fichiers présent sous le répertoire correspondant à la variable (Chemin).
Je voudrais ajouter un message d'erreur du type " répertoire inexistant" si la variable donne acces a un répertoire répertoire non valide ( innexitant)
Pouvez vous m'aider ?
Merci d'avance
Private Sub CommandButton1_Click()
Dim fs As Object, Dossier As Object, fichier As Object
Dim Chemin As String
Dim i As Long
Chemin = "\\ml350\qualite\Revue de premier article\" & TextBox1 & "\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = fs.GetFolder(Chemin)
For Each fichier In Dossier.Files
ListBox1.AddItem fs.GetBaseName(Chemin & fichier)
Next
End Sub