adresse lien hypertexte

[jmcemoa]

Bonjour,
cela fait un moment que je galère pour essayer, dans une macro, de copier l'adresse du lien hypertexte comme texte dans une autre cellule.
Ca marche manuellement, mais pas moyen de trouver comment le faire en macro.

Merci d'avance à celui ou ceux qui me dépanneront

Jean-Marie

 

[jmcemoa]

Re : adresse lien hypertexte

Bonjour José,
tout d'abord merci d'avoir pris un peu de temps pour m'aider.
J'ai essayé ce que tu m'as conseillé, tout content d'avoir une réponse aussi rapide, mais cela n'affiche que le texte affiché dans la cellule et non l'adresse du lien
tant pis pour cette fois 😉
Cordialement,
Jean-Marie

 

[jmcemoa]

Re : adresse lien hypertexte

Formidable !!!😀
Cela fonctionne parfaitement.
Dire que je me suis em... embêté avec des recherches de formules complexes.
Il faut que j'appronfondisse vraiment mes connaissances sur les objets, collections et autres choses que je ne maîtrise pas (mais alors pas du tout).

Mille merci José, je vais pouvoir aller plus loin (ou enfin essayer) maintenant.

Cordialement,
Jean-Marie🙂

 

[joss74]

Re : adresse lien hypertexte

Je rebondis sur la solution proposée :

Si on veut répéter cette commande toutes les 2 lignes (j'en ai plus de 600 à traiter), que faut-il rajouter ?

 

[madb]

Re : adresse lien hypertexte

Tu peux essayer ca :

For i = 1 to 600 step 2

Cells(i,2) = Cells(i,1).Hyperlinks(1).Address

Next i

 

[joss74]

Re : adresse lien hypertexte

Pour le saut de ligne, j'aurais voulu qu'il s'intègre dans la macro suivante :

Sub test()
Range("I4") = Range("D4").Hyperlinks(1).Address
Range("I6") = Range("D6").Hyperlinks(1).Address
' Touche de raccourci du clavier: Ctrl+a
End Sub