[VBA] Quitter une procédure

Quitter une procédure [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 07-03-2007 à 23:18:20    

Bonsoir
 
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 ?
 

Reply

Marsh Posté le 07-03-2007 à 23:18:20   

Reply

Marsh 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

Reply

Marsh Posté le 08-03-2007 à 09:53:48    

Tu dois avoir un "application.screenupdating=false" qui traine.

Reply

Marsh 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
Reply

Marsh 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)


Message édité par tegu le 09-03-2007 à 09:23:01
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed