Vous trouverez cette macro associée à votre logo gmap dans le classeur joint:
VB:
Sub Logo_Google_Map_Click()
With ThisWorkbook.Sheets("Feuil1").Range("H4")
If .Value <> "" Then
ThisWorkbook.FollowHyperlink ("https://google.com/maps/search/?api=1&query=" & .Value)
Else
MsgBox "Aucun lien à suivre"
End If
End With
End Sub
A vous de vous assurez de la bonne rédaction de la requête
Vous trouverez cette macro associée à votre logo gmap dans le classeur joint:
VB:
Sub Logo_Google_Map_Click()
With ThisWorkbook.Sheets("Feuil1").Range("H4")
If .Value <> "" Then
ThisWorkbook.FollowHyperlink ("https://google.com/maps/search/?api=1&query=" & .Value)
Else
MsgBox "Aucun lien à suivre"
End If
End With
End Sub
A vous de vous assurez de la bonne rédaction de la requête