Macro entre fichiers format hyperlien

vg00 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12276 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



--

3 réponses

  1. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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
  2. vg00 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
     
    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
  3. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    Merci, votre information ne me permet pas dans dire plus.
    Désolé.

    0