Re : Lien hypertexte et récupération de l'adresse
Désolé pour la réponse tardive mais je m'était absenté cet après midi (beau temps oblige !!!)
J'utilise EXCEL 2000 avec le VBA correspondant. Le code est le suivant :
Sub EcrirRensCBIm()
Dim Rens(5, 19) ' ligne,colonne
On Error GoTo GestiErre 'gestion des anciennes versions
Dim ren As String
Repertoire
ChDir RepSociete ' Change de répertoire
' Ecrit Fichier de donnée
If FileLen("RensCbIM.txt") <> 0 Then Kill "RensCbIM.txt" ' Destruction fichier texte s'il existe
Open "RensCbIM.txt" For Append As #1
For ii = 0 To 5 ' ligne PArcours la feuille en ligne
For jj = 0 To 19 ' Parcours la feuille en colonne
If Range("k2").Offset(ii, jj) = "" Then ren = "" Else ren = Range("k2").Offset(ii, jj)
If jj = 19 Then ' La dernière colonne contient le lien hypertexte
If Range(ren).Hyperlinks.Count = 0 Then '' Si ce n'est pas un lien on enregistre un vide
ren = ""
Else
For Each h In Range(ren).Hyperlinks
ren = h.Address ' Récupère le lien
MsgBox ren ' Affiche le chemin du lien
Next
End If
Write #1, ren ' ecrit le lien
Else
Write #1, ren; ' ecrit les autres données
End If
Next
Next
Close #1
On Error GoTo 0
Exit Sub
' Si le fichier répertoire n'existe pas évite => le message érreur
GestiErre:
Resume Next
exit sub
Merci pour vos réponses
Yves