Manipulation des fichiers en VBA

**tiyo76** · 05/06/2013, 15h43

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

**t8024328** · 05/06/2013, 16h10

ca sent l'oublie de reference dans tes bibliothèques/library
Dans la boîte de dialogue références , sous Références disponibles, sélectionnez Bibliothèque d'objets Microsoft DAO 3.5 (par exemple..), puis cliquez sur OK.
je ne connais pas access 2007..mais ca pourait etre ca

est ce que FSO est activé ?:
VBA propose des méthodes pour travailler sur les fichiers. Ces fonctions de bases telles que Dir, Name, etc. ont un comportement proche des commandes DOS. Malheureusement, elles sont beaucoup trop limitées et permettent, hélas, que très peu d'actions ou bien alors au prix d'un code lourd à maintenir. Afin d'étendre les possibilités en ce qui concerne la manipulation des fichiers et des répertoires, Microsoft à mis au point un ensemble d'objets regroupés au sein de la librairie Microsoft Scripting Runtime. Cet ensemble de classe hiérarchique possède une unique racine : le FileSystemObject, plus communément connu sous le nom de FSO.