Recuperer la date de modification et la taille d'un fichier Dans excel

Bonjour;

J'utilise actuellement une macro dans Excel pour charger une liste des fichiers dans un Dossier (et sous dossiers Aussi) dans une feuille. La macro récupère le non du dans une colonne et génère le lien hypertexte vers ce fichier dans la deuxième colonne.

Je cherche à ajouter une troisième colonne qui récupère la taille du fichier et une quatrième qui récupère sa date de modification.

Voici le code que j'utilise dans un module

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

Public nb As Long Sub Bouton1_Cliquer() Dim chemin As String nb = 0 chemin = "C:\Bibliotheque\Modèles\" Lister chemin End Sub   Public Function Lister(chemin As String) Dim fs, Rep As Variant, NewRep As String, Nomfich As String Set fs = CreateObject("Scripting.FileSystemObject") Lister = fs.GetFolder(chemin).Files.Count Nomfich = Dir(chemin & "\*.*")   Do While Nomfich <> "" nb = nb + 1 Cells(nb, 1) = Nomfich 'liste dans la feuille de calculs active Cells(nb, 2).Hyperlinks.Add Cells(nb, 2), chemin & "\" & Nomfich Nomfich = Dir() Loop 'Pour chaque sous-répertoire, appel récursif de Lister For Each Rep In fs.GetFolder(chemin).SubFolders NewRep = Lister(Rep.Path) Next Rep End Function

---

Merci d'avance de votre aide ;)

Bonjour

Je te conseil la lecture de ce tuto : http://warin.developpez.com/access/fichiers/

De plus, tu mélanges du FSO avec de vieilles instructions comme DIR.

Utilises tout avec la même bibliothèque, et avec FSO, tu peux parcourir les fichiers d'un répertoire et récupérer toutes les propriétés que tu souhaites.

Philippe

Bonjour Philippe et merci pour ta réponse rapide! 8O

A vrai dire je suis "très débutant" en VBA.
Le script que j'utilise, je l'ai juste chopé sur internet il y a quelque temps! :mrgreen:

Peux tu STP me le corriger, et m'expliquer d'avantage sur les fonctions que je dois utiliser pour récupérer les donnes que je cherche?:?

Merci

Dans le site que tu m'as donner j'ai trouvé les deux fonctions suivantes:

DateLastModified : Date de dernière modification
Size : Taille en octet du fichier

Peux tu me montrer comment les insérer dans mon code.

hello,
en reprenant l'exemple du tuto indiqué par Philippe ( I-D la gestion des fichiers), pour récupérer une des propriétés d'un fichier , il suffit de faire <objet fichier>.<propriété>

exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub LirePropFichier() On Error GoTo err Dim oFSO As Scripting.FileSystemObject Dim oFl As Scripting.File   'Instanciation du FSO Set oFSO = New Scripting.FileSystemObject 'Instanciation de l'objet File Set oFl = oFSO.GetFile("F:\temp\essai.xml") MsgBox (" Fichier : " & oFl.Name & " - Taille : " & oFl.Size & _ " - Dernière modification : " & oFl.DateLastModified) fin: Exit Sub     err: Select Case err.Number Case 53: MsgBox "Le fichier est introuvable" Case Else: MsgBox "Erreur inconnue" End Select   Resume fin End Sub

---

Attention ne pas oublier de rajouter la librairie Microsoft Scripting Runtime dans les Références de Visual Basic (outils/références).

Ami calmant, J.P

Bonjour Jurassic-pork

J'ai essaiyer t'ingerer ton code dans le mien; mais ça me donne une erreur 53!:(

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 27 28

Public nb As Long Sub Bouton1_Cliquer() Dim chemin As String nb = 0 chemin = "N:\Bibliotheque\Modèles\500-599 Prod&Meth" Lister chemin End Sub   Public Function Lister(chemin As String) Dim fs, fl, Rep, f As Variant, NewRep As String, Nomfich As String Set fs = CreateObject("Scripting.FileSystemObject") Lister = fs.GetFolder(chemin).Files.Count Nomfich = Dir(chemin & "\*.*") fl = fs.GetFile(Lister & Nomfich)   Do While Nomfich <> "" nb = nb + 1 Cells(nb, 1) = Nomfich 'liste dans la feuille de calculs active Cells(nb, 2).Hyperlinks.Add Cells(nb, 2), chemin & "\" & Nomfich 'Cells(nb, 3) = 'Cells(nb, 4) = Nomfich = Dir() Loop 'Pour chaque sous-répertoire, appel récursif de Lister For Each Rep In fs.GetFolder(chemin).SubFolders NewRep = Lister(Rep.Path) Next Rep End Function

---

J'ai attaché le fichier excel que j'utilise.

ça marche pour le non et lien hypertexte et pas pour la date de modification et la taille.

(pour l'utiliser il suffit juste de remplacer le chemin du dossier par le chemin du dossier voulu)

Merci de jeter un coup d’œil et de me dire qu'est ce que vous en penser:roll:

Pièce jointe 210914

Salut, voir Liste des propriétés de fichiers en l'adaptant à ton cas via objFolder.GetDetailsOf(strFileName, xyz) où Taille : 1 et Date modif : 3 dans la procédure Private Sub ListeProprietesFichier_GetDetailsOf(sFichier As String, k As Long).

Autrement dit :

Code:

---

1 2 3 4

With ShFichiers .Cells(k, 2) = objFolder.GetDetailsOf(strFileName, 1) .Cells(k, 3) = objFolder.GetDetailsOf(strFileName, 3) End With

---

Bonjour;

Probleme resolu!

je laisse le fichier pour ceux qui veulent l'exploiter!Pièce jointe 210974

Salut, pourquoi multiposter ? cela n'encourage personne.