Ouvrir un fichier PDF en cliquant sur le nom de la cellule Excel

Version imprimable

Bonjour,

J'ai une petite requête à vous demander.

Sous Excel je souhaite ouvrir un fichier PDF en cliquant sur la cellule du même nom sachant qu'il y a plus de 200 fichiers PDF dans un répertoire bien défini, les cellules ne se suivent pas dans le fichier XLSX elles sont aléatoires. Elles peuvent être en A5,B9,D3.

J'ai trouvé un code qui serai bien, il fonctionne avec des images dans un userform, mais je ne sais pas le modifier pour les pdf.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell <> "" Then répertoireImage = "C:\PDF\" ' à adapter NomImage = ActiveCell If Dir(répertoireImage & "\" & NomImage & ".pdf") <> "" Then With UserForm1 .StartUpPosition = 1 taille = TaillePixelsImage(répertoireImage, NomImage & ".pdf") rap = Val(Split(taille, "x")(0)) / Val(Split(taille, "x")(1)) .Image1.Height = 300 ' on fixe la hauteur .Image1.Width = .Image1.Height * rap .Height = .Image1.Height + 20 .Width = .Image1.Width .Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".pdf") .Show End With End If End If
M'en remettant à vos connaissances et compétences en programmation Excel

Cordialement

Bonjour zergo,

Voila une proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim chemin As String
Dim NomPdf As String
 
If ActiveCell <> "" Then
    chemin = "ici ton chemin" 
    NomPdf = ActiveCell.Value
 
    If Dir(chemin & "\" & NomPdf & ".pdf") <> "" Then
        NomPdf = NomPdf & ".pdf"
        ThisWorkbook.FollowHyperlink chemin & NomPdf
    End If
End If
 
End Sub

J'ai supposé que dans les cellules l'extension .pdf n'était pas présente

J’espère répondre a ton besoin ;)

Antony

20/02/2015, 10h44
zergo

Je te remercie Antony

C'est exactement CA

Merci encore pour ton aide.;)