tester un lien hypertexte sur excel

gaston gaston
1 621 contributions
Membre depuis le 01/03/2001
Envoyé le 07/11/2007 à 12:10 Modifié par Modifié par gaston le 09/11/20


bonjour !
Dans une feuille Excel j\'ai une Combobox qui permet de sélectionner des noms dans une liste, puis d\'ouvrir un lien hypertexte associé au nom choisi, vers un fichier pdf, avec ceci:

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Je voudrais que lorsque je sélectionne un nom où le lien n\'existe pas ou est faux, qun msgBox s\'ouvre pour signaler \"fichier non trouvé\" puis que la combobox soit réinitialisée
Comment faire ?

Après forces essais, j\'ai trouvé (et j\'ai même amélioré ce que je voulais au départ)

Dim Cible As String
\'Vérifie si la cellule contient un lien hypertexte
\' si oui continue la procédure de vérif
If ActiveCell.Hyperlinks.Count > 0 Then
\'Extrait l\'adresse du lien
Cible = ActiveCell.Hyperlinks(1).Address
\'Vérifie si le fichier existe.
If Dir(Cible) <> \"\" And Cible <> \"\" Then
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Exit Sub
\' Si le fichier n\'existe pas => msgBox fichier introuvable\"
Else
MsgBox \"Fichier introuvable\"
ComboBox1.Clear
Exit Sub
End If
\'Si la cellule ne contient pas un lien hypertexte
\' Message Pas de lien
Else
MsgBox \"Pas de lien\"
ComboBox1.Clear

Exit Sub

End If

ComboBox1.Clear


carpe diem
gaston gaston
1 621 contributions
Membre depuis le 01/03/2001
Envoyé le 09/11/2007 à 11:07


J\'ai finalement présumé.... apparemment y a un genre de boucle qui se fait, ce qui fait que la macro s\'éxécute 2 fois en suivant au lieu d\'une...et je ne vois pas pourquoi...
carpe diem

Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum