création automatique lien hypertexte

Z

zoubir15

XLDnaute Junior

• 18 Août 2015

• #31

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Août 2015

• #32

Re : création automatique lien hypertexte

Bonjour,

zoubir15 à dit:

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

Cliquez pour agrandir...

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

Bonne journée.

 

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 18 Août 2015

• #33

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

 

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 20 Août 2015

• #34

Re : création automatique lien hypertexte

Mr Job 75?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Août 2015

• #35

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 :

Code:

chemin = ThisWorkbook.Path & "\"

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

Code:

chemin = "L:\" 'à adapter

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Août 2015

• #36

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 :

Code:

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+

 

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 20 Août 2015

• #37

Re : création automatique lien hypertexte

job75,

Merci pour ta réponse .

 

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 23 Août 2015

• #38

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?

 

Vote positif 0 Vote négatif