Bonjour à tous, à force de chercher j'ai trouvé:
Private Sub ouvrirTIglobal_Click()
Dim b As Worksheet
Dim Chemin As String, NomVariable1 As String, NomVariable2 As String, MonFichier As String
Set b = Sheets("BD pompes")
Chemin = "G:\..." 'début de répertoire
NomVariable1 = b.Range("M7").Value 'suite répertoire localisation du fichier à ouvrir ex:Aire ...\ car il garde les vielles versions
NomVariable2 = b.Range("M4").Value 'fin répertoire nom de fichier à ouvrir
MonFichier = Dir(Chemin & NomVariable1 & NomVariable2 & "*") 'recherche fichier
If MonFichier <> "" Then
ThisWorkbook.FollowHyperlink Address:=Chemin & NomVariable1 & MonFichier, NewWindow:=True
Else
MsgBox "Fichier introuvable"
Exit Sub
End If
End Sub
Merci à vous d'avoir pris le temps de consulter mon post