Afficher les liens hypertextes qui sont associés à des cellules Excel. [Résolu]
Mathieu_IUPIE
- Messages postés
- 6
- Date d'inscription
- mercredi 9 mars 2005
- Dernière intervention
- 23 mars 2006
- Messages postés
- 2
- Date d'inscription
- mardi 26 septembre 2006
- Dernière intervention
- 29 septembre 2006
A voir également:
- Afficher lien hypertexte excel
- Excel afficher lien hypertexte - Meilleures réponses
- Excel récupérer lien hypertexte d'une cellule - Meilleures réponses
- Visual Basic / VB.NET : Lien hypertexte sous excel en partage - CodeS SourceS - Guide
- Excel - lien hypertexte - position haut / gauche Ecran ✓ - Forum - VBA Office (Excel, Word ...)
- [VBA/EXCEL] Recuperer le lien hypertext contenu dans une cellule ✓ - Forum - Visual Basic
- Liens hypertexte vba excel ✓ - Forum - VB.NET
- [Déplacé .Net --> VBA] excel lien hypertext ✓ - Forum - Visual Basic 6
4 réponses
Meilleure réponse
- Messages postés
- 402
- Date d'inscription
- vendredi 6 août 2004
- Dernière intervention
- 12 octobre 2008
bonsoir Mathieu
tu peux tester cette macro
Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub
bonne soiree
michel
tu peux tester cette macro
Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub
bonne soiree
michel
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 6
- Date d'inscription
- mercredi 9 mars 2005
- Dernière intervention
- 23 mars 2006
- Messages postés
- 2
- Date d'inscription
- mardi 26 septembre 2006
- Dernière intervention
- 29 septembre 2006
moi aussi, je suis étonné !? Il n'y a guère de trace de la gestion de ces hyperliens dans excel ou VBA Mais il y a longtemps (2005 !)... êtes vous toujours là ?
Ces quelques lignes sont d'une efficacité redoutable, mais il extrait la totalité du contenu de l'hyperlien... Moi, c'est le même problème mais en liens "mailto". Je souhaitais extraire seulement le champs "objet" du lien "mailto" (donc "subject"), j'ai bien sûr essayé de remplacer dans votre script la commande "Address" (attention : avec 2 d sinon ça ne marche pas !) par "subject" mais cela ne fonctionne pas (sans aucun commentaires en plus !).
Bref, peut-on ajouter qqchose à "Address" pour n'extraire que l'objet du message, ou faut il ensuite appliquer au fichier une autre macro, fonction, formule (excusez-moi, mais je m'y perd...! je débute à peine...) pour extraire la chaîne de caractères en trop par exemple (opération qui semble très simple mais dont je ne connais pas la syntaxe) ?
Merci en tous cas pour ce forum et votre aide...
lechel
Ces quelques lignes sont d'une efficacité redoutable, mais il extrait la totalité du contenu de l'hyperlien... Moi, c'est le même problème mais en liens "mailto". Je souhaitais extraire seulement le champs "objet" du lien "mailto" (donc "subject"), j'ai bien sûr essayé de remplacer dans votre script la commande "Address" (attention : avec 2 d sinon ça ne marche pas !) par "subject" mais cela ne fonctionne pas (sans aucun commentaires en plus !).
Bref, peut-on ajouter qqchose à "Address" pour n'extraire que l'objet du message, ou faut il ensuite appliquer au fichier une autre macro, fonction, formule (excusez-moi, mais je m'y perd...! je débute à peine...) pour extraire la chaîne de caractères en trop par exemple (opération qui semble très simple mais dont je ne connais pas la syntaxe) ?
Merci en tous cas pour ce forum et votre aide...
lechel
- Messages postés
- 2
- Date d'inscription
- mardi 26 septembre 2006
- Dernière intervention
- 29 septembre 2006
Et bien, non... 'sont pas aussi rapides quà l'époque sur ce forum !
Heureusement, grâce à vous j'ai trouvé la 1ere partie de la soluce, voici la suivante (en l'absence de script VB qui pourrait le faire) :
Pour info, la soluce à mon pb c'est une macro comme écrit plus haut
(mais qui copie TOUT le contenu de l'hyperlien !)...
Donc suivie d'une formule dans excel (qu'on doit pouvoir simplifier, mais bon) :
=DROITE(A1;NBCAR(A1)-CHERCHE("subject";A1)-7), qu'on "étend" sur toute la colonne...
Ca marche ! Mais j'ai un tas de corrections manuelles à faire dans qq champs, heureusement donc que j'ai trouvé ça !
J'espère avoir été utile car mes qq heures passées là dessus n'étaient pas prévues, qu'elles servent au moins à d'autres !
Bravo encore à Michelxld pour sa macro !
'chel
Heureusement, grâce à vous j'ai trouvé la 1ere partie de la soluce, voici la suivante (en l'absence de script VB qui pourrait le faire) :
Pour info, la soluce à mon pb c'est une macro comme écrit plus haut
(mais qui copie TOUT le contenu de l'hyperlien !)...
Donc suivie d'une formule dans excel (qu'on doit pouvoir simplifier, mais bon) :
=DROITE(A1;NBCAR(A1)-CHERCHE("subject";A1)-7), qu'on "étend" sur toute la colonne...
Ca marche ! Mais j'ai un tas de corrections manuelles à faire dans qq champs, heureusement donc que j'ai trouvé ça !
J'espère avoir été utile car mes qq heures passées là dessus n'étaient pas prévues, qu'elles servent au moins à d'autres !
Bravo encore à Michelxld pour sa macro !
'chel
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.