Hyperlien GoogleMaps à partir d'une cellule

Bonjour,

Je cherche à créer des hyperliens géolocalisant des villes sur googlemap à partir de différentes cellules contenant un code postal et le nom de la ville.

Le faire manuellement serait trop fastidieux car mon fichier d'origine est assez volumineux.

Après regardé sur internet, je suis tombé sur cette formule : =HYPERLINK("http://maps.google.com/maps?q="&B3,"View on Google Map") mais je n'arrive pas à la faire fonctionner.

Merci pour votre aide.

bonjour

=LIEN_HYPERTEXTE(A11&B11)

avec en A11

http://maps.google.com/maps?q=

et en B11

la ville

je n'ai pas essayé d'y mettre le CP.

Bonjour,

comme ceci :

=LIEN_HYPERTEXTE("https://www.google.fr/maps/place/"&B5;"Pointer sur "&B5)

Bonjour à tous les 2 et merci pour ces retours rapides.

Cependant, vos réponses impliquent d'avoir 2 cellules utilisées.

Ne serait-il pas possible de n'avoir à cliquer que sur la cellule contenant le code postal et la ville ?

Par macro dans ce cas ...

dans la feuille (ajuste B5:E5 si nécessaire) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Fichier As String
    If Target.Value = "" Then Exit Sub
    If Not Application.Intersect(Target, Range("B5:E5")) Is Nothing Then
        Fichier = "https://www.google.fr/maps/place/" & Target.Value
        MsgBox "Ouverture de " & Fichier
        Ouvrir Fichier
    End If
End Sub

dans un module :

Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Ouvrir(Fichier)
    ShellExecute 0, "", Fichier, "", "", 0
End Sub

Merci pour ce retour mais cela ne fonctionne pas sur mon système 64 bits

J'ai regardé un peu sur le net mais je n'ai pas saisi comment rendre le code compatible.

J'ai mis le message d'erreur en pièce jointe.

Avez-vous une idée ?

Merci

Essaie ceci avec Chrome mais je cherche mieux !

Ceci devrait suffire, à tester :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Fichier As String
    If Target.Value = "" Then Exit Sub
    If Not Application.Intersect(Target, Range("B5:E5")) Is Nothing Then
        Fichier = "https://www.google.fr/maps/place/" & Target.Value
        MsgBox "Ouverture de " & Fichier
        ActiveWorkbook.FollowHyperlink Address:=Fichier
    End If
End Sub

Parfait mille mercis !

Et encore un merci !