Private Sub CommandButton1_Click()
Dim Fichier_Exist As String
' Cide ssous ajoute un lien hypertext
Feuil1.Range('A1').Hyperlinks.Add Anchor:=Selection, Address:= _
'D:\\Christophe\\Perso\\Fun\\diable.gif', TextToDisplay:= _
'D:\\Christophe\\Perso\\Fun\\diable.gif'
' Ci dessous test existance fichier
If Dir(Range('a1').Value) = '' Then
msgbox 'fichier existe pas !' ' existe pas Msgbox
Else
' Existe : Ouverture du fichier !
ThisWorkbook.FollowHyperlink Sheets('Feuil1').Range('a1').Value
End If
End Sub