Bonjour le forum
Comment récuperer avec une petite macro le texte d'un lien web de la cellule A1 dans B1 et non la valeur de A1
exemple A1 "toto" avec lien vers "www.toto.etc" en B1 je veux "www.toto.etc"
Merci de votre aide
fifounet
Merci fredoo ça marche,
Est-il possible de récupérer uniquement une zone de texte dans ce lien
exemple 10 caractères du texte à partir du 40eme caractere en partant de la gauche
directement dans la macro sans passer par une formule dans une autre cellule.
merci
Super fredoo
sauf que je viens de m'apercevoir qu'il y a des fois moins de 10 caractères
par contre ça commence tjrs à 50 et il y a le signe % apres le dernier caractère voulu
le but serait de récuperer la chaine de caracteres entre le 50eme et le signe % suivant
c'est peut etre plus compliqué et est ce faisable?
merci encore pour ton aide
Bonjour
Merci pour ton aide fredoo, je n'ai pu m'y recoller que ce matin.
Effectivement ça fonctionne bien s'il n'y a pas de signe % avant le texte à récupérer
voila ici le texte à récupérer est 999999:
ttp://ww.toto.com/essai/fichier/php3/toto.php?name=k&session=precision%3D999999%26reqid%3D200&cler=LEtbZGotByClQ
J'espère que je me fais bien comprendre!
a+
Pour éviter de faire encore moult allers-retours infructueux, peux-tu me mettre dans un fichier EXCEL exemple, une liste de plusieurs liens avec le texte que tu souhaites récupérer et les conditions qui expliquent pourquoi c'est ce texte là que tu veux. Ainsi, je pourrais te faire une réponse adaptée.
d'après l'exemple fourni, voici le code à utiliser. Je pense qu'il te faudra adapter la valeur 74 à tes vrais liens.
VB:
Function lien(c As Range) As String
Dim tt
tt = c.Hyperlinks.Item(1).Address
tt = WorksheetFunction.Substitute(tt, "%3D", "&")
lien = Mid(tt, 74, WorksheetFunction.Find("&", tt, 74) - 74)
End Function