Bonjour à tous !

Je rencontre un problème concernant la manipulation de fichiers en VBA

J'ai consulté ce tutoriel très bien expliqué.

Cependant j'ai une erreur lorsque j'exécute mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Erreur de compilation
'Type défini par l'utilisateur non défini
Cette erreur me renvoie vers "Dim oFSO As Scripting.FileSystemObject"

Voici ma fonction :

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
Private Sub btnPDF_Click()
 
    Dim date_suivi As String
    Dim cheminFichier As String
 
    Dim oFSO As Scripting.FileSystemObject
    Dim oDrv As Drive
    Dim oFld As Folder
 
    'Instanciation du FSO
    Set oFSO = New Scripting.FileSystemObject
 
    date_suivi = Replace(Me.TFDate.Value, "/", "_")
 
    'Accède au dossier
    If oFSO.FolderExists("E:\Fiche Suivi\" & Me.TFShortItem) Then
        cheminFichier = "E:\Fiche Suivi\" & Me.TFShortItem & "\" & date_suivi & ".pdf"
        'cheminFichier = "S:\opeprod\Atelier chocolaterie\Fiche Suivi\" & Me.TFShortItem & "\" & date_suivi & ".pdf"
    Else
        Set oFld = oFSO.CreateFolder("E:\Fiche Suivi\" & Me.TFShortItem)
        cheminFichier = "E:\Fiche Suivi\" & Me.TFShortItem & "\" & date_suivi & ".pdf"
    End If
 
    DoCmd.OutputTo acOutputForm, , "PDF", cheminFichier, False
 
End Sub
Est-ce que quelqu'un a déjà fait cette opération de manipulation de fichiers ?

Merci d'avance pour votre aide