Discussion :

[Salyanov]

Bonjour à tous,

Voilà tout un après-midi que je cherche la solution, mais sans succès. Je n'ai pas l'impression que la question ait été posée sur ce forum, donc je me permets de créer la discussion.

Je débute en vba Access et, pour créer une petite application dans le cadre d'un cours d'apprentissage, je dois utiliser les instructions Fichier_Objet.GetExtensionName(Nom_Fichier) et Fichier_Objet.GetFile(Nom_Fichier).Size.

J'ai respecté tout ce qui est indiqué dans le cours, et malgré tout, cela ne fonctionne pas : vba ne reconnaît pas les GetExtensionName et GetFile. Je ne les retrouve d'ailleurs pas dans l'explorateur d'objets.

L'aide en ligne de Microsoft ne mentionne pas que ce genre de situation est possible ; aucune solution n'est donc proposée.

Quelqu'un aurait-il une idée pour moi ?

Un tout grand merci pour votre aide et bonne soirée !

[Salyanov]

Bon, eh bien je suis désolé pour le dérangement, mais "miraculeusement" cela fonctionne enfin. J'ignore pourquoi...

Toujours est-il que les instructions GetFile et GetExtentionName ne sont pas répertoriées dans l'explorateur d'objets. Je trouve cela étrange...

[Pierre Fauconnier]

Salut.

Je suppose que tu utilises un FileSystemObject. Cet objet peut être manipulé en VBA mais n'est pas natif du VBA et requiert la liaison à une bibliothèque spécifique.

Il faudrait voir vers quoi pointe ton Fichier_Objet. Je suppose que c'est un FileSystemObject mais probablement est-il déclaré As Object sans avoir référencé la bibliothèque? Dès lors, tu n'as pas l'aide à la saisie puisque l'éditeur VBE ne sait pas vers quel type d'objet tu pointes. C'est ce qu'on appelle du Late Binding car le VBE ne pourra se connecter à l'objet pour en connaître les méthodes et propriétés qu'au moment de l'exécution lors du passage sur la ligne Set Fichier_Objet = CreateObject("Scripting.FileSystemObject"). C'est aussi pour cette raison que tu n'as pas trouvé les propriétés dans l'explorateur d'objets, qui n'explore que les bibliothèques référencées.

Peux-tu donner le code, et notamment la ligne de déclaration de Fichier_Objet?

Pour pouvoir utiliser l'aide à la saisie, ton objet doit être déclaré As FileSystemObject et pour cela, tu dois avoir référencé la bibliothèque Microsoft Scripting Runtime dans Outils/Références du VBE.


Avec la bibliothèque référencée, l'explorateur d'objets renseigne bien les méthodes et propriétés du FSO

[Salyanov]

Merci Pierre pour cette réponse utile :-) En effet, il s'agit d'un FileSystemObject. Voici le code (inachevé) proposé par la formation vba access :

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
Private Sub liste_fichiers_Click()
Dim Nom_Fichier As String: Dim Taille As String: Dim Extension As String
Dim Date_Creation As String: Dim Date_Modification As String
Dim Objet_Fichier
Dim Contenu_Fichier As String
Dim Taille_Lecture As Integer: Dim NBLibre As Integer
 
Nom_Fichier = chemin.Value & "\" & liste_fichiers.Value
Set Objet_Fichier = CreateObject("scripting.filesystemobject")
 
Extension = Objet_Fichier.getextensionname(Nom_Fichier)
Taille = Objet_Fichier.getfile(Nom_Fichier).Size
Date_Creation = Objet_Fichier.getfile(Nom_Fichier).DateCreated
Date_Modification = Objet_Fichier.getfile(Nom_Fichier).datelastmodified
 
detail.Value = "Créé le : " & Date_Creation & ", modifié le : " & Date_Modification & vbNewLine & "Taille : " & Taille & " octets"
 
contenu.Visible = False
img.Visible = True
img.Picture = Nom_Fichier
 
End Sub

Merci pour la piste du référencement : je vais ajouter Microsoft Scripting Runtime car, comme je suis encore très novice (hum...), l'aide lors de l'écriture m'est indispensable (il y a de quoi se perdre dans toutes ces fonctions, méthodes, propriétés, etc. et je me perds souvent).

Encore merci !