Ouvrir un lien par macro

Bonjour,

j'aimerais bien faire une macro pour aller sur un lien suivant la liste déroulante, et si la cellule correspondante est vide me mettre directement sur "google.fr" ?

Merci d'avance pour vos réponses

Bonjour R@chid,

Essaie ceci :

Sub SuivreLien()
    Dim hpl$
    If ActiveCell <> "" Then
        hpl = ActiveCell.Value
    Else
        hpl = "http://google.fr"
    End If
    With ActiveSheet.Hyperlinks.Add(ActiveCell, hpl)
        .Follow
        .Delete
    End With
End Sub

Cordialement.

Bonjour l'ami,

merci pour ton intervention..

il y a un petit soucis sur la macro, elle ouvre toujours "google.fr", en plus, j'ai décidé de le faire par une macro puisque la feuille sera protégée sans permettre de cliquer sur les cellules protégées, sinon je le ferais avec une formule lienhypertexte, donc le fait de passer par une cellule auxiliaire n'est pas un bon choix.

Merci

Il faut attacher le lien à une cellule ou à une forme... mais on peut faire n'importe où hors de vue, puisque de toutes façons on le supprime une fois lancé.

J'avais zappé aussi que tu utilisais une liste déroulante... donc version réaménagée :

Sub SuivreLien()
    Dim hpl$, n%
    With ActiveSheet
        hpl = .Range("F2")
        n = CInt(Right(hpl, 3)) + 1
        hpl = .Range("B" & n).Value
    End With
    If hpl = "" Then hpl = "http://google.fr"
    With Worksheets(3).Hyperlinks.Add(Worksheets(3).Range("A1"), hpl)
        .Follow
        .Delete
    End With
End Sub

Bonjour,

merci je test et je te tiendrai au courant.

Merci

Bonjour,

désolé pour la réponse tardive.

merci l'ami c'est bon j'ai pu adapter à mon fichier et ça marche.

@ + +