Fenetre explorateur windows et goto

tydher · 22 Avril 2011

Bonjour à tous,

Voila, dans mon code je demande à l'utilisateur de choisir un fichier.
Cepdant, il a la possibilité de fermer cette fenetre.
Lorsqu'il la ferme, mon code s'arrete car j'ai une variable non initialisé.
Je voudrait faire en sorte que s'il ferme la fenetre, mon code aille à un autre endroit pour continuer la fin des traitements.

Code:

Set Wb = Application.Workbooks.Open(Application.GetOpenFilename, , True)

J'ai essayé avec

Code:

Set Wb = Application.Workbooks.Open(Application.GetOpenFilename, , True)
if Wb is nothing then goto fin.

Mais j'ai quand meme l'erreur.

Merci de votre aide

pierrejean · 22 Avril 2011

Re : Fenetre explorateur windows et goto

Bonjour tydher

Vois si tu peux t'inspirer de ceci

Code:

Sub test()
On Error GoTo suite
Set wb = Application.Workbooks.Open(Application.GetOpenFilename, , True)
'........ici le code si wb est defini
exit sub
suite:
On Error GoTo 0
MsgBox ("La fenetre a été fermée")
End Sub

tydher · 22 Avril 2011

Re : Fenetre explorateur windows et goto

Oui, c'est parfait, cela fonctionne comme je voulais, j'ai donc

Code:

On Error GoTo Fin
Set Wb = Application.Workbooks.Open(Application.GetOpenFilename, , True)
... 'suite du code

Fin:
MsgBox("Fenetre fermé")
... 'dernières opérations

Merci beaucoup pour cette réponse rapide, bonne journée

Fenetre explorateur windows et goto

tydher

Guest

pierrejean

XLDnaute Barbatruc

tydher

Guest

Discussions similaires

Fenetre explorateur windows et goto

tydher

Guest

pierrejean

XLDnaute Barbatruc

tydher

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency