Copier une adresse mail cliquable d'un onglet vers un autre

[doudy]

Bonjour,

Je fais mes débuts avec Excel, alors je m'excuse d'avance si ma question est triviale:🙄
Voila, je saisie manuellement une adresse émail dans une cellule, aprés validation de celle-ci elle devient cliquable et donc permet d'ouvrir une fenêtre de Thunderbird pour l'envoi d'un mail ... jusque là tout va bien.

J'ai un script en VBA qui triture mes données et génère un nouveau classeur avec plusieurs onglets où il copier l'adresse mail , ici en B11:

    Workbooks("ot-recus.xls").Sheets("recu").Activate
    Cells.Select
    Selection.Copy
    Windows(ClassDest).Activate
    Sheets.Add.Name = Onglet
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteformat
    ActiveSheet.Shapes("CmdSuite").Delete
    Sheets("récap").Range("A6553").End(xlUp).Offset(1, 0) = Sheets(Onglet).Range("B11")
    Workbooks(ClassDest).Save

mais cette adresse n'est plus cliquable 😕 - je dois passer en mode édition puis valider pour la rendre cliquable.

Quelle est l'astuce pour arriver à ce que l'adresse soit cliquable automatiquement ?


Merci d'avance pour votre aide. 🙂

Doudy

 

[Compte Supprimé 979]

Re : Copier une adresse mail cliquable d'un onglet vers un autre

Salut Doudy,

Dans ton code il te manque juste :

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Voilà 😉

 

[doudy]

Re : Copier une adresse mail cliquable d'un onglet vers un autre

Bonsoir BrunoM45,

Merci pour ta réponse.

J'ai donc inséré la ligne manquante juste aprés :
Selection.PasteSpecial Paste:=xlPasteformat

Donc à l'exécution de la macro, il y a une fenêtre d'envoi de mail qui s'ouvre sur l'adresse en question, mais ce n'est pas cela que je cherche ! 😀
L'adresse mail copiée dans la nouvelle cellule n'est toujours pas directement cliquable 🙄 comme je souhaiterais.

Je continue mes recherches 🙂

 

[Compte Supprimé 979]

Re : Copier une adresse mail cliquable d'un onglet vers un autre

Désolé Doudy,

Ce n'est pas vraiment la réponse que je voulais donner, je me suis trompé de code

Workbooks("ot-recus.xls").Sheets("recu").Activate
    Cells.Select
    Selection.Copy
    Windows(ClassDest).Activate
    Sheets.Add.Name = Onglet
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteformat
 
    Dim AdrMail as string: AdrMail = Selection.value
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
    Address:= "mailto:" & AdrMail, TextToDisplay:=AdrMail

    ActiveSheet.Shapes("CmdSuite").Delete
    Sheets("récap").Range("A6553").End(xlUp).Offset(1, 0) = Sheets(Onglet).Range("B11")
    Workbooks(ClassDest).Save

Ca devrait mieux aller 😉

 

[doudy]

Re : Copier une adresse mail cliquable d'un onglet vers un autre

Merci pour ton aide !
Ton code m'a aidé à comprendre mon erreur et voilà la solution 😀 (avec l'aide d'un certain Daniel sur NG de microsoft.public.fr.excel ):

la ligne suivante:

Sheets("récap").Range("A6553").End(xlUp).Offset(1, 0) = Sheets(Onglet).Range("B11")

doit être remplacée par celle-ci:

Sheets(Onglet).Range("B11").Copy _
Sheets("récap").Range("A6553").End(xlUp).Offset(1, 0)

Bonne nuit 😉

Doudy