j'ai une userform qui doit contenir une liste de fichier
lors de l'ouverture de cette userform, je verifie que le répertoire contenant les fichier est present de cette facon
X etant l'arborecence complète du répertoire
If Dir(X) <> "" Then
MsgBox ("Le répertoire " & X & " est present, donc on continu " )
Else
MsgBox ("Le répertoire " & X & " n'a pas été trouvé, donc on sort et decharge la userform " )
Unload Me
End If
apparement "Unload me" ne fait pas son travail comme je le souhaiterais
Comment faire pour arreter la procedure et quitter immédiatement la userform ?
Publicité
Posté le 07-03-2007 à 23:18:20
seniorpapou
Posté le 08-03-2007 à 07:14:50
Bonjour,
en principe cela fonctionne, mets ta procédure entière que l'on puisse voir
Cordialement
aprilthe5ith
Posté le 08-03-2007 à 09:53:48
Tu dois avoir un "application.screenupdating=false" qui traine.
daniel-12
Posté le 08-03-2007 à 19:41:50
Laissez tomber
j'ai trouvé une autre solution plus pratique que de quitter le programme
Message édité par daniel-12 le 08-03-2007 à 21:47:27
tegu
Posté le 09-03-2007 à 09:22:25
Si X est seulement un répertoire et pas un fichier, alors Dir(X) renverra toujours "" Ton code ne marchera pas dans ce cas.
Pour tester un répertoire il faut faire : Dir(X, vbDirectory)