Macro ouvrir fichier PDF

Bonjour le Forum,

J'ai besoin de votre aide pour ouvrir un fichier pdf contenu dans le même dossier que le fichier excel, directement suite à un clic bouton.

Le nom du fichier pdf est une valeur contenue dans la cellule A1.

Exemple si dans la cellule A1 la valeur est "Toulouse", lorsque je clique sur le bouton cela ouvre le fichier PDF Toulouse.pdf (qui se trouve dans le même dossier).

Merci d'avance de votre aide précieuse.

A+

Bonjour,

Quel est le répertoire complet où se trouve le fichier ? c:\.....\.....

A te relire

Dan a écrit :

Bonjour,

Quel est le répertoire complet où se trouve le fichier ? c:\.....\.....

A te relire

Bonjour DAN,

N'est-il pas possible d'utiliser ThisWorkBook ?

Bonjour,

Dans un module standard :

Option Explicit
Public Sub ouvrir_pdf()
Dim ws As Worksheet
Dim Chemin As String
Dim NomFichier As String

    Set ws = ActiveSheet
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    NomFichier = ws.Range("A1") & ".pdf"

    ThisWorkbook.FollowHyperlink Chemin & NomFichier

    Set ws = Nothing

End Sub

Merci Jean-Eric, c'est parfait !!

Jean-Eric a écrit :

Bonjour,

Dans un module standard :

Option Explicit
Public Sub ouvrir_pdf()
Dim ws As Worksheet
Dim Chemin As String
Dim NomFichier As String

    Set ws = ActiveSheet
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    NomFichier = ws.Range("A1") & ".pdf"

    ThisWorkbook.FollowHyperlink Chemin & NomFichier

    Set ws = Nothing

End Sub