XL 2013 Lien vers un fichier

[Kay0ux]

Bonjour,
Malgré mes recherches, je ne trouve pas la réponse à ma question...
J'espère que vous saurez m'aider.

Je souhaiterai qu'un lien se crée au automatiquement dans chaque cellule d'une plage (F3:F200).
En cliquant sur la cellule, le lien permettra d'ouvrir un fichier PDF au même nom que le contenu de la cellule.
L'ensemble des PDF sont stockés dans un dossier lui même à la basse du classeur.

Pouvez vous me dire ce qui ne va pas dans mon code ?

Sub OuvrirPDF
repertoire = ThisWorkbook.Path & "\Dossier PDF\"
For Each c In Range("F3:F200")
fichier = CStr(c.Value) & ".pdf"
If Dir(repertoire & fichier) <> "" Then
Application.ScreenUpdating = False
On Error Resume Next
End If
Next
End Sub


Merci,
Bonne journée

 

[Paritec]

Bonsoir KayOux le forum
met nous tn fichier avec deux ou trois cellule et on va te modifier le code
a+
Papou

 

[job75]

Bonjour Kayoux, Papou,

Pouvez vous me dire ce qui ne va pas dans mon code ?

C'est simple, votre code ne fait rien d'autre qu'exécuter Application.ScreenUpdating = False

J'espère qu'au moins vous savez ce que ça veut dire.

A+

 

[Kay0ux]

Bonjour à vous,

Papou, ci-joint un fichier exemple de ce que je souhaite faire.

Job, il me semble que cette ligne veut dire qu'on empêche la feuille de se mettre à jour. J'avoue qu'en la voyant dans les nombreux codes où je me suis inspiré, j'ai pensé qu'il faut mettre cette ligne...

J'espère qu'au moins vous savez ce que ça veut dire.

Je serais heureux que vous m'appreniez à quoi cela correspond exactement

Merci,
Bonne journée !

 

[job75]

Bonsoir KayOux, Papou,

Il y a prescription mon cher Papou :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim chemin$, r As Range
chemin = ThisWorkbook.Path & "\Dossier PDF\"
Set r = Intersect(Target, [F:F], Me.UsedRange)
If Not r Is Nothing Then
  r.Hyperlinks.Delete
  For Each r In r
  If Dir(chemin & r & ".pdf") <> "" Then _
  Me.Hyperlinks.Add r, chemin & r & ".pdf"
  Next
End If
End Sub

Fichiers joints.

A+

 

[Paritec]

Bonjour Job Kayoux,
je ne vois sa réponse que maintenant j'étais en déplacement ( je ne suis pas en retraite moi !!!!)
a+
Papou

 

[job75]

Bonjour Kay0ux, Papou, le forum,

Pour pouvoir retrouver éventuellement ce fil je mets un zéro dans le nom de Kay0ux.

Mais avec la police utilisée ici on ne voit pas vraiment que c'est un zéro...

Bonne journée.

 

[Kay0ux]

Bonjour Job, Papou,

C'est parfait, merci beaucoup pour votre aide et votre réactivité !!

Bonne journée !