Ouvrir hyperlien mail VBA

Bonjour à tous,

J'aimerais avec vba suivre un lien contenu dans une cellule quelles sont les commande à utiliser sachant qu'il s'agit d'un mail ?

Cordialement

Je relance le sujet si quelqu'un peut me venir en aide je n'ai toujours pas eu de solution... Merci à vous !

La cellule est en I2

Bonjour,

Exemple de code :

Sub ouvrir_lien()
    Dim lien As Hyperlink

    With ActiveSheet
        For Each lien In .Hyperlinks
            If lien.Range.Address = .Range("I2").Address Then lien.Follow: Exit For
        Next lien
    End With

End Sub

Cela ne fonctionne pas il ne detecte pas de lien en I2 alors qu'il y en a un...

Je joins un fichier test

Bonjour,

Votre lien Hypertexte n'est pas correct.

Création d'un lien correct en I2 et ancien lien déplacé en K2.

Dans mon fichier de base les adresses sont chercher en fonction d'un nom. Comment avez-vous crée celle ci ?

pagesalex a écrit :

Comment avez-vous crée celle ci ?

1- sélection de la cellule

2- clic droit souris --> lien hypertexte

https://fr.wikihow.com/ins%C3%A9rer-des-liens-hypertextes-dans-Microsoft-Excel

Cette méthode ne permet pas de renseigner le sujet du mail. Y'a t-il une solution ?

pagesalex a écrit :

Cette méthode ne permet pas de renseigner le sujet du mail.

Bien sûr que si.Il suffit de renseigner le champ objet.

ci-joint exemple

Est-il possible de mettre une formule dans ces champs ?

pagesalex a écrit :

Est-il possible de mettre une formule dans ces champs ?

Je ne pense pas que ce soit possible. Si vous voulez des champs variables, il faut passer par VBA.