07/11-2007 à 12:10bonjour !
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
Modifie par Modifié par gaston le 09/11/20
----------
le bonheur n'est pas au bout du chemin, il EST le chemin
http://i22.servimg.com/u/f22/11/12/87/18/22-1810.jpg
