création automatique lien hypertexte

[zoubir15]

Bonjour,

Merci d'avance,

Comment je puisse créer un lien hypertexte rapidement dans ma liste de document. Remarque par exemple mes documents sont placés dan le D:.

Merci

 

[zoubir15]

Re : création automatique lien hypertexte

Merci job75

Fonctionne bien, mais pour le chemin, il faut que pdf et fichier excel soient dans un même dossier. Est que il y 'a possibilité qu'ils ne soient pas dans le même dossier.

Merci chef

 

[job75]

Re : création automatique lien hypertexte

Bonjour,

Est que il y 'a possibilité qu'ils ne soient pas dans le même dossier.

Mal réveillé zoubir15 ??? Voyez la fin de mon post #30, c'est vous le chef 🙄

Bonne journée.

 

[zoubir15]

Re : création automatique lien hypertexte

Merci une autre fois,

Sure toujours mal réveillé, mais sincèrement malgr& que le chemin c'est écrit mais il faut que les deux soient de le même dossier pour qu'il fonctionne.

Mes salutations

 

[zoubir15]

Re : création automatique lien hypertexte

Mr Job 75?

 

[job75]

Re : création automatique lien hypertexte

Bonjour zoubir15,

Je pensais que vous plaisantiez mais ça n'a pas l'air d'être le cas 🙄

Alors dans la macro du post #27,

- si tous les fichiers sont dans le même dossier écrivez :

chemin = ThisWorkbook.Path & "\"

- si les fichiers des liens sont dans le lecteur "L" écrivez :

chemin = "L:\" 'à adapter

A+

 

[job75]

Re : création automatique lien hypertexte

Re,

Maintenant si les fichiers des liens peuvent être dans des sous-dossiers une solution est de lister dans un Array les noms des sous-dossiers à étudier :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim chemin$, dossier, ext$, r As Range, dos, t$
chemin = ThisWorkbook.Path & "\" '"L:\" 'à adapter
dossier = Array("", "Dossier1\", "Dossier2\", "Dossier3\")
ext = ".pdf" 'à adapter
Set r = Intersect(Target, Me.UsedRange)
On Error Resume Next
For Each r In r 'si entrées/effacements multiples
  r.Hyperlinks(1).Delete
  For Each dos In dossier
    t = chemin & dos & r & ext
    If Dir(t) <> "" Then Me.Hyperlinks.Add r, t: Exit For
  Next dos
Next r
End Sub

A+

 

[zoubir15]

Re : création automatique lien hypertexte

job75,

Merci pour ta réponse 😉.

 

[zoubir15]

Re : création automatique lien hypertexte

job75,

Bonjour je suis vraiment désolé mais j'ai essayé plusieur fois mais ne fonctionne pas surement c'est moi que je suis nul. Array c'est un dossier?