Pour commencer j'ai utilisé une commande DIR pour afficher la liste de mes fichiers .pdf dans une seule colonne en Excel

(c'était juste une petite info pour ceux qui ne le savent pas)

Puis j'ai voulu rajouter des liens qui pointent vers ces fichiers

Je me suis arrangé pour ajouter le chemin vers le fichier avant le nom du fichier en pensant que ça allait créer un lien hypertexte automatiquement

../../../Program%20Files/iMacros/Download2/OPERATEURSERVICECLIENTSCALLCENTENTERHFFLEURUS_20071224-235116.pdf

...

La liste est longue

Et là c'est le drame

Quand je fais Ctrl + K (insérer un lien hypertexte)

Texte à afficher : ../../../Program%20Files/iMacros/Download2/OPERATEURSERVICECLIENTSCALLCENTENTERHFFLEURUS_20071224-235116.pdf

Adresse :

Rien

Résultat, aucun lien ne fonctionne si je ne copie pas le texte à afficher dans adresse !!!

Je suis bien parti pour faire plus de 400 fois la même action (il y a plus de 400 lignes dans mon tableau) :

• Ctrl + K
• Triple clic gauche dans texte à afficher
• Ctrl + C
• Ctrl + V
• Enter
• Enter

(je suis paresseux de nature c'est pour ça que je connais tous les raccourcis)

Avez vous une solution pour m'éviter de répéter 400 fois tout ça ?

bonjour,
une petite macro ?

Sub test()
For Each o In Selection
chemin = "C:\Documents and Settings\galopin\Mes documents\Mes images\"
'(remplacer MonCheminDeDossierAMoi par TonCheminDeDossierAToi sans oublier le \ final)
z = o.Value
ActiveSheet.Hyperlinks.Add Anchor:=o, Address:=chemin & z, TextToDisplay:=z
Next
End Sub

Il est nécessaire de copier cette macro dans un module STANDART (Module1...). Le cas échéant voir à ce sujet les explications de "La cuisine selon galopin"

Sélectionner toutes les cellules qui contiennent un nom de fichier avant de lancer la macro

A+