Fenetre explorateur windows et goto

[tydher]

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.

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

J'ai essayé avec

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]

Re : Fenetre explorateur windows et goto

Bonjour tydher

Vois si tu peux t'inspirer de ceci

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]

Re : Fenetre explorateur windows et goto

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

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