Bonjour à Tous

Je vous expose mon petit soucis

j'ai un dossier qui contient un fichier Pdf (toto.pdf) et un classeur Excel (titi.xlsm) les noms sont juste pour simplifier.

le classeur contient des onglets qui sont les noms des fichiers pdf sans l’extension

la macro doit pouvoir ouvrir le fichier pdf

voici ce que j'ai écrit :
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
19
20
21
22
23
24
25
26
Sub ouvrir_pdf()
    On Error GoTo Err
 
    Dim oFSO As Scripting.fileSystemObject
    Dim oF1 As Scripting.file
    Dim Chem As String
    Dim NomFic As String
 
    Set oFSO = New Scripting.fileSystemObject
 
    Chem = ThisWorkbook.Path & "\"
    NomFic = ActiveSheet.Name
    NomFic = Chem & NomFic & ".pdf"
 
    Set oF1 = oFSO.getfile(NomFic)
 
    Exit Sub
 
Err:
 
    If Err.Number = 53 Then
        MsgBox "le fichier est introuvable", vbCritical
    Else
        MsgBox "erreur inconnue", vbCritical
    End If
End Sub
j'ai ajouté la référence "Microsoft Scripting Runtime"

et cela ne s'ouvre pas

si vous avez une idée

merci d'avance