Discussion :

[wam111]

Bonjour,

je dois insérer les données d'un document excel dans une base de données.

Pour cela, la façon la plus simple que j'ai trouvé consiste à convertir le document xls en document csv.

Le problème c'est que le document xls contient des liens hypertextes, mais affiché sous le texte suivant : "FDS".

Quand je convertit mon xls en csv, je me retrouve donc avec le texte "FDS" affiché dans mes cellules.

Hors, je voudrais voir s'afficher l'adresse des liens hypertextes dans les cellules afin que je puisse les enregistrer dans ma base de données.

Ma question est donc comment modifier l'affichage de tous les liens hypertextes présent dans mon document excel ("FDS"), pour voir s'afficher l'adresse des liens hypertextes (par exemple : "C:\Documents and Settings\Administrateur\Mes documents\Téléchargements") ?

[Daniel.C]

Bonjour,

Exécute cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
    Dim C As Range
    For Each C In Selection
        If C.Hyperlinks.Count > 0 Then
            C.Hyperlinks(1).TextToDisplay = C.Hyperlinks(1).Address
            C.Hyperlinks(1).Delete
        End If
    Next C
End Sub

[wam111]

Merci.

Cependant cette macro m'affiche seulement le nom du fichier et pas son chemin complet.

[Daniel.C]

La macro affiche ce qui a été codé au niveau de l'adresse du lien hypertexte. Si le chemin est relatif, je ne peux pas deviner le chemin absolu. Positionne-toi sur une cellule contenant un lien, fais un clic droit, modifier le lien et regarde ce qui a été codé dans l'adresse.

[wam111]

Je comprends.
Merci.