FollowHyperlink - Créer un message d'erreur si le fichier n'existe pas

Bonjour,
J'ai une macro qui ouvre un lien et je souhaiterais ajouter un message d'erreur lorsqu'un fichier n'existe pas.

Dim Format As String
    Format = "nom de mon fichier" & Variable & "extension"
    ActiveWorkbook.FollowHyperlink Address:="C:\Users\blablabla\" & Format    

(ma "variable" est déclarée et pilotée un peu plus haut dans le programme)

Si la valeur de ma variable (et donc du "format") ne mène pas à un fichier existant, cela met ma macro en erreur. Je souhaiterais à la place afficher un message d'erreur pour l'utilisateur puis mettre fin à la macro.

Comment feriez-vous ça?

Merci pour votre aide!
Bonne fin de journée,
Gaël

Bonjour Gael Assut,

Une possibilité ci-dessous:

Sub MacroUntel()
.... Première Partie de programmme
'Gestion de l'erreur Hypertexte
On Error GoTo ErrLink
'Lien à ouvrir
ActiveWorkbook.FollowHyperlink Address:="C:\Users\blablabla\" & Format
.... Autre Partie de programme
Exit Sub
ErrLink:
MsgBox ("Erreur Hypertext: Fichier absent")
End Sub

La message box est placée juste en fin de macro. Une fois affichée si erreur la macro stoppe sur le End Sub

Bons tests, bonne continuation.

yes!! Je vais essayer ça lundi!!

Merci pour la réactivité 😊

Bonjour,

c'est parfait, ça fonctionne nickel! :)

Merci beaucoup!! Et à bientôt pour la suite (mais pour le moment, mon programme tourne tout simplement parfaitement! )

Bonjour Gael Assut,

Ravi de t'avoir aidé. Si cela te convient bien.

N'oublie pas de clore ce sujet. Merci

A une autre fois peut être...