Macro entre fichiers format hyperlien

vg00 Messages postés 14 Statut Membre -  
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'ai cette partie de code pour venir mettre des informations d'un contact vers un nouveau devis.

Workbooks(devis).Sheets("offre").Range("MAIL").Value = ThisWorkbook.Sheets("Contacts").Cells(ActiveCell.Row, 17)

le problème c'est que dans mon nouveau devis j'écris un texte mais je n'arrive pas à le mettre en hyperlien par la macro...
A l'aide et merci d'avance



--
A voir également:

3 réponses

Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Pour créer un hyperlien :

ActiveSheet.Hyperlinks.Add Anchor:=cellule, Address:=Lien

cellule = est l'adresse de la cellule que reçoit le lien
Lien = chemin du répertoire y compris nom du classeur

0
vg00 Messages postés 14 Statut Membre
 
Bonjour merci de l'idée...
en l'occurence le lien est un mail contenu dans la cellule référencée ci dessous dans la macro
ThisWorkbook.Sheets("Contacts").Cells(ActiveCell.Row, 17) 

Merci d'avance
--
0
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Merci, votre information ne me permet pas dans dire plus.
Désolé.

0