Dim Cible As String
Dim lig As Byte
'Le type 1 signifie que la valeur entrée dans l'imput box est un chiffre
colonne = Application.InputBox(prompt:="Veuillez sélectionner la colonne qui correspond à la semaine que vous voulez visualiser", Title:="Semaine ?", Type:=1)
lig = 5
'Signale que l'on travail sur la feuille IHM
'Avec la commande Range, on définit la colonne puis la ligne et avec la commande Cells, c'est l'inverse
With Sheets("IHM")
.Cells(lig, colonne).Select
End With
'Vérifie si la cellule contient un lien hypertexte
If ActiveCell.Hyperlinks.Count = 0 Then
MsgBox "Pas de lien !"
Exit Sub
Else
'Extrait l'adresse du lien
Cible = ActiveCell.Hyperlinks(1).Address
End If
'Vérifie si le fichier existe
'Si oui exécute l'ouverture du fichier sur lequel pointe le lien
If Cible <> "" And Dir(Cible) <> "" Then
ActiveWorkbook.FollowHyperlink Address:=Sheets("IHM").Cells(lig, colonne), NewWindow:=True
Exit Sub
'Si non ouverture du MsgBox fichier introuvable
Else
MsgBox "Fichier introuvable"
Exit Sub
End If