message d'erreur a formuler

Pierrot93

XLDnaute Barbatruc

• 22 Novembre 2011

• #2

Re : message d'erreur a formuler

Bonjour,

regarde peut être ceci :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

G

GillesC

XLDnaute Occasionnel

• 22 Novembre 2011

• #3

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"

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Novembre 2011

• #4

Re : message d'erreur a formuler

Bonjour,

Essayez :

Code:

'---
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+

 

Dernière édition: 22 Novembre 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Novembre 2011

• #5

Re : message d'erreur a formuler

Re, bonjour Gilles, Job

on peut également procéder ainsi :

Code:

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..."

 

Vote positif 0 Vote négatif

G

gildas lechat

XLDnaute Occasionnel

• 22 Novembre 2011

• #6

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

 

Vote positif 0 Vote négatif