Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Pbl de macro

Pbl de macro

3 réponses
Avatar
David
Bonjour,
J'aimerais renvoyer dans une feuille excel le nom et la=20
date des fichiers se trouvant dans un r=E9pertoire.
J'ai r=E9ussi =E0 renvoyer le nom mais comment faire pour=20
avoir la date ?
Voici ma macro :

Sub toto()
With Application.FileSearch
.LookIn =3D "\\patricia\fs\fs tram=E9es\"
.SearchSubFolders =3D False
.Filename =3D "*.doc*"
If .Execute() > 0 Then
For i =3D 1 To .FoundFiles.Count
Cells(i, 1) =3D .FoundFiles(i)
Next i
Else
MsgBox "aucun fichier n'a =E9t=E9 trouv=E9."
End If
End With
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Va voir ici il y a plusieurs méthodes pour réaliser ce que tu demandes :
http://perso.wanadoo.fr/frederic.sigonneau/Fichiers.htm

Cordialement
Pascal

"David" a écrit dans le message de
news:292101c49b1d$d9247ae0$
Bonjour,
J'aimerais renvoyer dans une feuille excel le nom et la
date des fichiers se trouvant dans un répertoire.
J'ai réussi à renvoyer le nom mais comment faire pour
avoir la date ?
Voici ma macro :

Sub toto()
With Application.FileSearch
.LookIn = "patriciafsfs tramées"
.SearchSubFolders = False
.Filename = "*.doc*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox "aucun fichier n'a été trouvé."
End If
End With
End Sub
Avatar
michdenis
Bonjour David,

'---------------------------
Sub toto()
Dim Fs As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.LookIn = "patriciafsfs tramées"
.SearchSubFolders = False
.Filename = "*.Doc*"
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
Cells(I, 1) = .FoundFiles(I)
Cells(I, 2) = Fs.GetFile(.FoundFiles(I)).DateCreated
Cells(I, 3) = Fs.GetFile(.FoundFiles(I)).DateLastModified
Next I
Else
MsgBox "aucun fichier n'a été trouvé."
End If
End With
Set Fs = Nothing
End Sub
'---------------------------


Salutations!



"David" a écrit dans le message de news:292101c49b1d$d9247ae0$
Bonjour,
J'aimerais renvoyer dans une feuille excel le nom et la
date des fichiers se trouvant dans un répertoire.
J'ai réussi à renvoyer le nom mais comment faire pour
avoir la date ?
Voici ma macro :

Sub toto()
With Application.FileSearch
.LookIn = "patriciafsfs tramées"
.SearchSubFolders = False
.Filename = "*.doc*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox "aucun fichier n'a été trouvé."
End If
End With
End Sub
Avatar
David
Super
Merci bien !

-----Message d'origine-----
Bonjour David,

'---------------------------
Sub toto()
Dim Fs As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
..LookIn = "patriciafsfs tramées"
..SearchSubFolders = False
..Filename = "*.Doc*"
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
Cells(I, 1) = .FoundFiles(I)
Cells(I, 2) = Fs.GetFile(.FoundFiles(I)).DateCreated
Cells(I, 3) = Fs.GetFile(.FoundFiles
(I)).DateLastModified

Next I
Else
MsgBox "aucun fichier n'a été trouvé."
End If
End With
Set Fs = Nothing
End Sub
'---------------------------


Salutations!



"David" a écrit
dans le message de news:292101c49b1d$d9247ae0

$
Bonjour,
J'aimerais renvoyer dans une feuille excel le nom et la
date des fichiers se trouvant dans un répertoire.
J'ai réussi à renvoyer le nom mais comment faire pour
avoir la date ?
Voici ma macro :

Sub toto()
With Application.FileSearch
..LookIn = "patriciafsfs tramées"
..SearchSubFolders = False
..Filename = "*.doc*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox "aucun fichier n'a été trouvé."
End If
End With
End Sub


.