Manipulation des fichiers en VBA
Bonjour à tous !
Je rencontre un problème concernant la manipulation de fichiers en VBA :cry:
J'ai consulté ce tutoriel très bien expliqué.
Cependant j'ai une erreur lorsque j'exécute mon code :
Code:
1
2
| 'Erreur de compilation
'Type défini par l'utilisateur non défini |
Cette erreur me renvoie vers "Dim oFSO As Scripting.FileSystemObject" :aie:
Voici ma fonction :
Code:
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 :)
