XL 2019 Gérer Bouton Annuler sur boite de dialogue

[gg13]

Bonjour,
Un peu d’aide serait la bienvenue pour ce problème.
Pour ouvrir un fichier en Vba j’utilise
File = Application.GetOpenFilename

Deux boutons : Ouvrir et Annuler
Avec Ouvrir le programme se poursuit mais si je clique sur le bouton Annuler il se poursuit aussi et occasionne des erreurs.
Question :
Comment savoir si le bouton Annuler a été activé ?

Merci de votre aide si vous connaissez la réponse.
GG13

 

[Dranreb]

Bonsoir.
File étant supposé déclaré As Variant, je vérifie si VarType(File) = vbString.

 

[gg13]

Danreb Merci je vais tester cette solution.

J'ai trouvé sur le forum If File = False

Cette solution fonctionne

File = Application.GetOpenFilename
If File = False Then
Application.DisplayAlerts = False
GoTo Fin
End If

GG13

 

[Dranreb]

If Not File Then serait à mon avis plus correct.
If VarType(File) = vbBoolean Then le serait encore plus, et
If VarType(File) <> vbString plus clair parce que c'est bien quand c'est un String qu'il faut s'en occuper.

 

[gg13]

Je vais utiliser
If VarType(File) <> vbString
je croyais que le fait de renvoyer Faux avec le bouton annuler
était considéré comme un string
Merci et bonne soirée
GG13