Création rapide et automatique de liens hypertextes multiples
1 réponse
chris75005
Bonjour, j'ai un fichier excel avec un colonne texte décrivant exactement le
chemin d'accès d'un fichier exemple :
colonne A
C:\photo\1.jpg
C:\photo\2.jpg
C:\photo\3.jpg
C:\photo\4.jpg
...
C:\photo\2000.jpg
Y a-t-il un moyen rapide de transformer toutes les cellules de cette colonne
en lien hypertexte ? Sans faire pour chaque cellule copier, créer lien
hytexte, coller, ou parcourir, ...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Essaie :
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _ c.Value, TextToDisplay:=c.Value Next c End Sub
Cordialement. Daniel "chris75005" a écrit dans le message de news:
Bonjour, j'ai un fichier excel avec un colonne texte décrivant exactement le chemin d'accès d'un fichier exemple :
colonne A C:photo1.jpg C:photo2.jpg C:photo3.jpg C:photo4.jpg ... C:photo2000.jpg
Y a-t-il un moyen rapide de transformer toutes les cellules de cette colonne en lien hypertexte ? Sans faire pour chaque cellule copier, créer lien hytexte, coller, ou parcourir, ...
Merci !
Bonsoir.
Essaie :
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
c.Value, TextToDisplay:=c.Value
Next c
End Sub
Cordialement.
Daniel
"chris75005" <chris75005@discussions.microsoft.com> a écrit dans le message
de news: F89637A9-22CD-44AB-A342-EA83E66423CF@microsoft.com...
Bonjour, j'ai un fichier excel avec un colonne texte décrivant exactement
le
chemin d'accès d'un fichier exemple :
colonne A
C:photo1.jpg
C:photo2.jpg
C:photo3.jpg
C:photo4.jpg
...
C:photo2000.jpg
Y a-t-il un moyen rapide de transformer toutes les cellules de cette
colonne
en lien hypertexte ? Sans faire pour chaque cellule copier, créer lien
hytexte, coller, ou parcourir, ...
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _ c.Value, TextToDisplay:=c.Value Next c End Sub
Cordialement. Daniel "chris75005" a écrit dans le message de news:
Bonjour, j'ai un fichier excel avec un colonne texte décrivant exactement le chemin d'accès d'un fichier exemple :
colonne A C:photo1.jpg C:photo2.jpg C:photo3.jpg C:photo4.jpg ... C:photo2000.jpg
Y a-t-il un moyen rapide de transformer toutes les cellules de cette colonne en lien hypertexte ? Sans faire pour chaque cellule copier, créer lien hytexte, coller, ou parcourir, ...