hyperlien

Le
ANDBRETON
Bonjour,

comment écrire une fonction qui renvoie l'url d'une cellule
du style
result = Cells(plg , pcol).Hyperlinks??

Merci
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
JB
Le #19501041
Bonjour,

Récupérer l'adresse d'un lien
Function AdrLien(c As Range)
AdrLien = Mid(c.Hyperlinks(1).Address, 1)
End Function

Récupérer le texte d'un lien
Function TexteLien(c As Range)
TexteLien = Mid(c.Hyperlinks(1).TextToDisplay, 1)
End Function

Récupérer l'adresse email d'un lien
Function email(c As Range)
email = Mid(c.Hyperlinks(1).Address, 8)
End Function

JB
http://boisgontierjacques.free.fr/



On 6 juin, 12:07, ANDBRETON
Bonjour,

comment écrire une fonction qui renvoie l'url d'une cellule
du style
result = Cells(plg , pcol).Hyperlinks??

Merci


ANDBRETON
Le #19502111
On 6 juin, 13:26, JB
Bonjour,

Récupérer l'adresse d'un lien
Function AdrLien(c As Range)
   AdrLien = Mid(c.Hyperlinks(1).Address, 1)
End Function

Récupérer le texte d'un lien
Function TexteLien(c As Range)
  TexteLien = Mid(c.Hyperlinks(1).TextToDisplay, 1)
End Function

Récupérer l'adresse email d'un lien
Function email(c As Range)
   email = Mid(c.Hyperlinks(1).Address, 8)
End Function

JBhttp://boisgontierjacques.free.fr/

On 6 juin, 12:07, ANDBRETON
> Bonjour,

> comment écrire une fonction qui renvoie l'url d'une cellule
> du style
> result = Cells(plg , pcol).Hyperlinks??

> Merci



super
MERCI
Publicité
Poster une réponse
Anonyme