Bonjour à tous,
Je cherche lister sur une feuille XL les fichiers (xl) que j'ai sur certains répertoires de mon >
améliorer ce code pour y faire figurer le nom de l'auteur (s'il y a) en plus des Noms de fichiers,
taille et date que j'ai actuellement.Malheureusement en ajoutant Autor ca ne fonctionne pas... :-(
--> Voir ici..
-Quelqu'un aurait la solution à mon problème? :-)
Merci d'avance pour votre aide!
Emile
------------------------------------------------------
Sub Lit_dossier(ByRef dossier, ByVal niveau, MaListe)
Dim d As Object, f As Object, nom_fich As String
ActiveCell.Value = decal(niveau - 1) & dossier.Name & "[" & dossier.Path & "]"
ActiveCell.Interior.ColorIndex = 36
ActiveCell.Offset(1, 0).Select
For Each d In dossier.SubFolders
Lit_dossier d, niveau + 1, MaListe
Next
[A4] = "Fichiers"
[B4] = "Taille"
--> [C4] = "Auteur"
[D4] = "Date"
ActiveCell.Offset(1, 0).Select
For Each f In dossier.Files
nom_fich = f.Name
If nom_fich Like MaListe Then
ActiveCell = decal(niveau) & nom_fich
ActiveCell.Offset(0, 1) = f.Size
--> ActiveCell.Offset(0, 2) = f.Author <----
ActiveCell.Offset(0, 3).HorizontalAlignment = xlRight
ActiveCell.Offset(0, 3).NumberFormat = "dd/mm/yyyy hh:mm"
ActiveCell.Offset(0, 3) = f.DateLastModified
ActiveCell.Interior.ColorIndex = 2
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
Bonjour à tous,
Je cherche lister sur une feuille XL les fichiers (xl) que j'ai sur certains répertoires de mon >
améliorer ce code pour y faire figurer le nom de l'auteur (s'il y a) en plus des Noms de fichiers,
taille et date que j'ai actuellement.Malheureusement en ajoutant Autor ca ne fonctionne pas... :-(
--> Voir ici..
-Quelqu'un aurait la solution à mon problème? :-)
Merci d'avance pour votre aide!
Emile
------------------------------------------------------
Sub Lit_dossier(ByRef dossier, ByVal niveau, MaListe)
Dim d As Object, f As Object, nom_fich As String
ActiveCell.Value = decal(niveau - 1) & dossier.Name & "[" & dossier.Path & "]"
ActiveCell.Interior.ColorIndex = 36
ActiveCell.Offset(1, 0).Select
For Each d In dossier.SubFolders
Lit_dossier d, niveau + 1, MaListe
Next
[A4] = "Fichiers"
[B4] = "Taille"
--> [C4] = "Auteur"
[D4] = "Date"
ActiveCell.Offset(1, 0).Select
For Each f In dossier.Files
nom_fich = f.Name
If nom_fich Like MaListe Then
ActiveCell = decal(niveau) & nom_fich
ActiveCell.Offset(0, 1) = f.Size
--> ActiveCell.Offset(0, 2) = f.Author <----
ActiveCell.Offset(0, 3).HorizontalAlignment = xlRight
ActiveCell.Offset(0, 3).NumberFormat = "dd/mm/yyyy hh:mm"
ActiveCell.Offset(0, 3) = f.DateLastModified
ActiveCell.Interior.ColorIndex = 2
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
Bonjour à tous,
Je cherche lister sur une feuille XL les fichiers (xl) que j'ai sur certains répertoires de mon >
améliorer ce code pour y faire figurer le nom de l'auteur (s'il y a) en plus des Noms de fichiers,
taille et date que j'ai actuellement.Malheureusement en ajoutant Autor ca ne fonctionne pas... :-(
--> Voir ici..
-Quelqu'un aurait la solution à mon problème? :-)
Merci d'avance pour votre aide!
Emile
------------------------------------------------------
Sub Lit_dossier(ByRef dossier, ByVal niveau, MaListe)
Dim d As Object, f As Object, nom_fich As String
ActiveCell.Value = decal(niveau - 1) & dossier.Name & "[" & dossier.Path & "]"
ActiveCell.Interior.ColorIndex = 36
ActiveCell.Offset(1, 0).Select
For Each d In dossier.SubFolders
Lit_dossier d, niveau + 1, MaListe
Next
[A4] = "Fichiers"
[B4] = "Taille"
--> [C4] = "Auteur"
[D4] = "Date"
ActiveCell.Offset(1, 0).Select
For Each f In dossier.Files
nom_fich = f.Name
If nom_fich Like MaListe Then
ActiveCell = decal(niveau) & nom_fich
ActiveCell.Offset(0, 1) = f.Size
--> ActiveCell.Offset(0, 2) = f.Author <----
ActiveCell.Offset(0, 3).HorizontalAlignment = xlRight
ActiveCell.Offset(0, 3).NumberFormat = "dd/mm/yyyy hh:mm"
ActiveCell.Offset(0, 3) = f.DateLastModified
ActiveCell.Interior.ColorIndex = 2
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
Bonjour Isabelle,
Je te remercie pour ton aide :-)
Il manque la fin de la ta proc. (copier / coller à du s'égarer un peu), mais c'est bien ce que je cherchais. :-)
Sans vouloir abuser, est-ce que tu peux m'aider (encore), je souhaiterais faire une boucle sur cet objet et lister tous ses items avec leurs n° de position.
Encore merci pour ta sollicitude.
Cordialement,
Emile
Bonjour Isabelle,
Je te remercie pour ton aide :-)
Il manque la fin de la ta proc. (copier / coller à du s'égarer un peu), mais c'est bien ce que je cherchais. :-)
Sans vouloir abuser, est-ce que tu peux m'aider (encore), je souhaiterais faire une boucle sur cet objet et lister tous ses items avec leurs n° de position.
Encore merci pour ta sollicitude.
Cordialement,
Emile
Bonjour Isabelle,
Je te remercie pour ton aide :-)
Il manque la fin de la ta proc. (copier / coller à du s'égarer un peu), mais c'est bien ce que je cherchais. :-)
Sans vouloir abuser, est-ce que tu peux m'aider (encore), je souhaiterais faire une boucle sur cet objet et lister tous ses items avec leurs n° de position.
Encore merci pour ta sollicitude.
Cordialement,
Emile