Sub OuvreFichier_BIS()
Dim fichier
fichier = Application.GetOpenFilename("Fichier (*.pdf), *.pdf")
If fichier = False Then
MsgBox "Aucun fichier sélectionné!" & Chr(13) & "Opération interrompue.", vbCritical, "Erreur"
Exit Sub
End If
On Error GoTo Exit2Chatagoune_Goune
[C1] = Left(fichier, InStrRev(fichier, "\"))
[B7] = Mid(fichier, InStrRev(fichier, "\") + 1)
ThisWorkbook.FollowHyperlink fichier
Exit2Chatagoune_Goune:
If Err Then MsgBox Err.Description, vbCritical, "Erreur!"
End Sub