XL 2013 Lien vers un fichier

Kay0ux · 11 Juillet 2016

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 · 11 Juillet 2016

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

job75 · 11 Juillet 2016

Bonjour Kayoux, Papou,

Kay0ux à dit:
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 · 12 Juillet 2016

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...

job75 à dit:
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 · 12 Juillet 2016

Bonsoir KayOux, Papou,

Il y a prescription mon cher Papou :

Code:

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 · 13 Juillet 2016

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 · 13 Juillet 2016

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 · 13 Juillet 2016

Bonjour Job, Papou,

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

Bonne journée !

XL 2013 Lien vers un fichier

Kay0ux

XLDnaute Nouveau

Paritec

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Kay0ux

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Paritec

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Kay0ux

XLDnaute Nouveau

Discussions similaires