message d'erreur a formuler

[gildas lechat]

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

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

 

[Pierrot93]

Re : message d'erreur a formuler

Bonjour,

regarde peut être ceci :

Dim chemin As String
chemin = "C:\MesDocs\Excel\Test"
If Dir(chemin, vbDirectory) = "" Then MsgBox "erreur de dossier..."

bon après midi
@+

 

[GillesC]

Re : message d'erreur a formuler

Bonjour,
une solution peut-être? :

en début (avant "chemin") : on error goto 1
avant le end sub : 1 MsgBox "pas de répertoire de ce nom"

 

[job75]

Re : message d'erreur a formuler

Bonjour,

Essayez :

'---
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set Dossier = fs.GetFolder(Chemin)
If Err Then MsgBox "Répertoire introuvable...": Exit Sub
'---

Edit : salut GillesC, salut Pierrot (oui, ça évite le contrôle d'erreur)

A+

 

[Pierrot93]

Re : message d'erreur a formuler

Re, bonjour Gilles, Job

on peut également procéder ainsi :

Dim Fso As Object, dossier As String
Set Fso = CreateObject("Scripting.FileSystemObject")
dossier = "C:\MesDocs\Excel\Test"
If Not Fso.FolderExists(dossier) Then MsgBox "dossier n'existe pas..."

 

[gildas lechat]

Re : message d'erreur a formuler

Merci à tout les 3.

J'ai adopté le code de Job75
Je test les autres code en paralelle
Gildas