VBA Insérer un hyperlien

Le
Emile63
Bonjour à tous,


Je souhaiterais modifier une procédure (qui fonctionne), laquelle copie u=
n certain nombre de cellules d'un classeur dans un autre classeur.

Tout fonctionne bien sauf que l'une de cellules que je copie, je souhaitera=
is que ce soit en mode Hyperlien en lieu et place de texte.
Je brode avec le VBA suivant:
-
Corps de la proc.

Set Wk = Workbooks.Open(Répertoire & "" & Fichier)
With Wk
With .Worksheets(Feuille) ' ici onglet ou se fera l'insertion
DerLig = .Range("A" & .Rows.Count).End(xlUp).Row + 1
' J'ai voulu faire court et j'ai coupé plusieures lignes ici qui vont=
de la colonne 1 -17, mon probl. étant sur la 18ème.
' .Range("R" & DerLig) = CStr(Tableau_Données(18)) ' ici ca a=
mène en texte le chemin et nom complet d'un fichier
' Alors que moi je souhaiterais l'insérer sous forme d'hyperte=
xte du style suivant (fonctionne pas)

' .Range("R" & DerLig) = .Hyperlinks.Add.Anchor:=.Range("R" &=
DerLig) Address:=Tableau_Données(18), TextToDisplay:="Ouvrir fichier=
"

End With
End With
Suite de la proc.


Merci d'avance pour votre aide,
cordialement.
Emile
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Emile63
Le #26390630
Bonjour à tous,

Ne cherchez plus j'ai trouvé :
'.................................
MonLien = CStr(Tableau_Données(18))
With Wk
With .Worksheets(Feuille)
DerLig = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Hyperlinks.Add Anchor:¬tiveSheet.Range("R" & DerLig), Addr ess:=MonLien, TextToDisplay:=MonLien, ScreenTip:="Ouvrir fichier"
'.................................
Publicité
Poster une réponse
Anonyme