VBA - Ouvrir un fichier PDF sans le nom complet

Bonjour à tous,

Je souhaite ouvrir un fichier PDF à partir d'un numéro de plan dans une ListBox mais négliger le reste du nom du fichier en question.

Je me suis renseigné et est écrit ce code :

Dim MyFile As Variant

n_plan = ListBox1.List(ListBox1.ListIndex, 5)
MyFile = Dir("C:\test\" & n_plan & "*.pdf")

If MyFile <> "" Then
    Workbooks.Open Filename:=MyFile
Else
    MsgBox "Fichier introuvable"

Exit Sub
End I

En exécutant le code j'obtient :

Pourtant le nom du fichier que le message d'erreur affiche est bien existant et dans le chemin que je lui est indiqué...

Merci d'avance,

Bonne journée.

Workbooks.Open Filename:=MyFile

Bonjour, Workbooks ???

- un workbook n'est pas un pdf.

- Votre : MyFile récupère dans votre code le nom du fichier et pas l'endroit ou il se trouve.

(vous devez donc a nouveau renseigner le chemin au moment de l'ouverture)

Private Sub CommandButton1_Click()
Dim MyFile As String
Dim chemin As String
chemin = "C:\test\"

n_plan = ListBox1.List(ListBox1.ListIndex, 5)
MyFile = Dir("C:\test\" & n_plan & "*.pdf")

If MyFile <> "" Then
ThisWorkbook.FollowHyperlink chemin & MyFile
Else
    MsgBox "Fichier introuvable"

Exit Sub
End If
End Sub

re,

Essayez ceci

Dim Chemin As String, Fichier as string, MyFile As String

n_plan = ListBox1.List(ListBox1.ListIndex, 5)
Chemin = "C:\test\"

Fichier = Chemin & n_plan
ThisWorkbook.FollowHyperlink (Fichier)

Cordialement

Je vous remercie de votre aide, cela marche !

Cordialement,

Valentin

Bonjour Dan, à la première lecture sa listebox ne contiend pas le noms des fichiers ... juste le début du nom.

Sauf erreur de ma part ; ton code fonctionnera si on change

la valeur de : n_plan = ListBox1.List(ListBox1.ListIndex, 5)

n_plan =Dir("C:\test\" & ListBox1.List(ListBox1.ListIndex, 5) & "*.pdf")