Discussion :

[meumeu73.1]

Bonjour,

Je souhaiterai récupérer la date de création d'un fichier à partir d'une liste de fichiers ce serait des PDF essentiellement, mais aussi des images.

J'ai la liste avec le chemin associé.

Est ce possible ?

Par avance merci.

[deedolith]

Salut,

FSO est ton amie !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Fso as Object    '// Scripting.FileSystemObject
Set Fso = CreateObject("Scripting.FileSystemObject")
 
Dim File As Object    '// Scripting.File
Set File = Fso.GetFile("c:\......\monFichier.pdf")
 
Dim DateCreated As Date
DateCreated = File.DateCreated

[meumeu73.1]

Merci,

Etant pas un top niveau VBA, j'arrive à me débrouiller de temps en temps lorsque je récupère des macros commentées, mais là, je ne sais pas comment faire pour scanner la liste des fichiers (en colonne A par exemple) et afficher le résultat dans une colonne en colonne B.

Par avance merci.

[Thumb down]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Taille d'un fichier
Public Function Taille_Fichier(Fichier)
With CreateObject("Scripting.FileSystemObject")
          With .GetFile(Fichier)
                    Taille_Fichier = .Size
          End With
End With 
End Function

Tu peux utiliser la fonction =Taille_Fichier(A1) dans un cellule excel.

[meumeu73.1]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Taille d'un fichier
Public Function Taille_Fichier(Fichier)
With CreateObject("Scripting.FileSystemObject")
          With .GetFile(Fichier)
                    Taille_Fichier = .Size
          End With
End With 
End Function

Tu peux utiliser la fonction =Taille_Fichier(A1) dans un cellule excel.

Si je comprend bien, j'ajoute ce code dans le module lié à la feuille excel et ensuite, je mets la formule indiquée et dans la cellule A1, je mets le fichier avec le chemin ?

[Thumb down]

Bonjour,
Personnellement je le mettrai dans un module standard.