Discussion :

[zergo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

Bonjour zergo,

Voila une proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zergo]

Je te remercie Antony


C'est exactement CA

Merci encore pour ton aide.