Je te propose ceci ....ce code n'est pas de moi....ça doit être
un truc de frédéric sigonneau à la façon de déclarer les variables.
J'ai juste modifier le répertoire de base où se fait la recherche
que tu devras modifier dans la procédure.
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
message reçu :-)
Je te propose ceci ....ce code n'est pas de moi....ça doit être
un truc de frédéric sigonneau à la façon de déclarer les variables.
J'ai juste modifier le répertoire de base où se fait la recherche
que tu devras modifier dans la procédure.
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
message reçu :-)
Je te propose ceci ....ce code n'est pas de moi....ça doit être
un truc de frédéric sigonneau à la façon de déclarer les variables.
J'ai juste modifier le répertoire de base où se fait la recherche
que tu devras modifier dans la procédure.
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
message reçu :-)
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
| message reçu :-)
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
| message reçu :-)
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
| message reçu :-)
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
| message reçu :-)
J'ai dit quelque chose... moi ?
;-)
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
| message reçu :-)
J'ai dit quelque chose... moi ?
;-)
Surprenant que tu n'aies pas trouvé ceci sur le site à Misange !
| message reçu :-)
J'ai dit quelque chose... moi ?
;-)
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
J'oubliais, si tu veux aussi obtenir la taille et le nombre de fichiers
des sous-répertoires aussi, dans la procédure test, tu utilises cette
ligne de commandes :
NbDeFichiers "c:Atravail", Nb&, taille, True
En fait, il y a seulement le dernier paramètre qui change et qui indique
que tu veux tenir compte des sous-répertoires.
"MichDenis" a écrit dans le message de news:
%
Ceci te donne le nombre de fichiers du répertoire que
tu as retenu et le nombre d'octets de ce répertoire :
'----------------------------------
Sub test()
Dim Nb&, taille As Double
'nombre de fichiers dans le répertoire spécifié
NbDeFichiers "c:Atravail", Nb&, taille, False
MsgBox "Nombre de fichiers : " & Nb & " " & vbCrLf & _
"taille du répertoire : " & taille & " octets."
End Sub
'----------------------------------
Sub NbDeFichiers(LeDossier$, Cpte&, taille As Double, _
Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
taille = taille + Dossier.Size
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.Path, Cpte, taille
Next sousRep
End If
Set fso = Nothing
End Sub
'----------------------------------
"Jac" a écrit dans le message de news:
Mea culpa... Je n'ai regardé nulle part car je suis parti sur une macro
que
j'avais déjà mis au point pour cataloguer les fichiers et j'ai eu la
mauvaise idée de vouloir comparer les résultats obtenus et ce que dit
windows. Je n'ai pas l'habitude de croire tout ce qu'on me dit.
J'aime consulter une autre source pour valider...
Donc j'ai testé la macro qui est à l'origine de quelques échanges de mail.
C'est parfait, sauf pour le "C:" car windows voit 23.528 fichiers et la
macro en compte 23.544. La corbeille est vide donc sans doute des
fichiers système. Mais Excel serait-il plus perspicace que Windows XP ?
Sans vouloir abuser, que faudrait-il ajouter à la macro pour calculer
la taille des fichiers qui ont été comptés ?
"MichDenis" a écrit dans le message de news:http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
J'oubliais, si tu veux aussi obtenir la taille et le nombre de fichiers
des sous-répertoires aussi, dans la procédure test, tu utilises cette
ligne de commandes :
NbDeFichiers "c:Atravail", Nb&, taille, True
En fait, il y a seulement le dernier paramètre qui change et qui indique
que tu veux tenir compte des sous-répertoires.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23vVhGtLRIHA.4152@TK2MSFTNGP05.phx.gbl...
Ceci te donne le nombre de fichiers du répertoire que
tu as retenu et le nombre d'octets de ce répertoire :
'----------------------------------
Sub test()
Dim Nb&, taille As Double
'nombre de fichiers dans le répertoire spécifié
NbDeFichiers "c:Atravail", Nb&, taille, False
MsgBox "Nombre de fichiers : " & Nb & " " & vbCrLf & _
"taille du répertoire : " & taille & " octets."
End Sub
'----------------------------------
Sub NbDeFichiers(LeDossier$, Cpte&, taille As Double, _
Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
taille = taille + Dossier.Size
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.Path, Cpte, taille
Next sousRep
End If
Set fso = Nothing
End Sub
'----------------------------------
"Jac" <Jsansp@mfra.net> a écrit dans le message de news:
OrHJDSLRIHA.4180@TK2MSFTNGP06.phx.gbl...
Mea culpa... Je n'ai regardé nulle part car je suis parti sur une macro
que
j'avais déjà mis au point pour cataloguer les fichiers et j'ai eu la
mauvaise idée de vouloir comparer les résultats obtenus et ce que dit
windows. Je n'ai pas l'habitude de croire tout ce qu'on me dit.
J'aime consulter une autre source pour valider...
Donc j'ai testé la macro qui est à l'origine de quelques échanges de mail.
C'est parfait, sauf pour le "C:" car windows voit 23.528 fichiers et la
macro en compte 23.544. La corbeille est vide donc sans doute des
fichiers système. Mais Excel serait-il plus perspicace que Windows XP ?
Sans vouloir abuser, que faudrait-il ajouter à la macro pour calculer
la taille des fichiers qui ont été comptés ?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uBv2knARIHA.5184@TK2MSFTNGP05.phx.gbl...
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
J'oubliais, si tu veux aussi obtenir la taille et le nombre de fichiers
des sous-répertoires aussi, dans la procédure test, tu utilises cette
ligne de commandes :
NbDeFichiers "c:Atravail", Nb&, taille, True
En fait, il y a seulement le dernier paramètre qui change et qui indique
que tu veux tenir compte des sous-répertoires.
"MichDenis" a écrit dans le message de news:
%
Ceci te donne le nombre de fichiers du répertoire que
tu as retenu et le nombre d'octets de ce répertoire :
'----------------------------------
Sub test()
Dim Nb&, taille As Double
'nombre de fichiers dans le répertoire spécifié
NbDeFichiers "c:Atravail", Nb&, taille, False
MsgBox "Nombre de fichiers : " & Nb & " " & vbCrLf & _
"taille du répertoire : " & taille & " octets."
End Sub
'----------------------------------
Sub NbDeFichiers(LeDossier$, Cpte&, taille As Double, _
Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
taille = taille + Dossier.Size
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.Path, Cpte, taille
Next sousRep
End If
Set fso = Nothing
End Sub
'----------------------------------
"Jac" a écrit dans le message de news:
Mea culpa... Je n'ai regardé nulle part car je suis parti sur une macro
que
j'avais déjà mis au point pour cataloguer les fichiers et j'ai eu la
mauvaise idée de vouloir comparer les résultats obtenus et ce que dit
windows. Je n'ai pas l'habitude de croire tout ce qu'on me dit.
J'aime consulter une autre source pour valider...
Donc j'ai testé la macro qui est à l'origine de quelques échanges de mail.
C'est parfait, sauf pour le "C:" car windows voit 23.528 fichiers et la
macro en compte 23.544. La corbeille est vide donc sans doute des
fichiers système. Mais Excel serait-il plus perspicace que Windows XP ?
Sans vouloir abuser, que faudrait-il ajouter à la macro pour calculer
la taille des fichiers qui ont été comptés ?
"MichDenis" a écrit dans le message de news:http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
J'oubliais, si tu veux aussi obtenir la taille et le nombre de fichiers
des sous-répertoires aussi, dans la procédure test, tu utilises cette
ligne de commandes :
NbDeFichiers "c:Atravail", Nb&, taille, True
En fait, il y a seulement le dernier paramètre qui change et qui indique
que tu veux tenir compte des sous-répertoires.
"MichDenis" a écrit dans le message de news:
%
Ceci te donne le nombre de fichiers du répertoire que
tu as retenu et le nombre d'octets de ce répertoire :
'----------------------------------
Sub test()
Dim Nb&, taille As Double
'nombre de fichiers dans le répertoire spécifié
NbDeFichiers "c:Atravail", Nb&, taille, False
MsgBox "Nombre de fichiers : " & Nb & " " & vbCrLf & _
"taille du répertoire : " & taille & " octets."
End Sub
'----------------------------------
Sub NbDeFichiers(LeDossier$, Cpte&, taille As Double, _
Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
taille = taille + Dossier.Size
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.Path, Cpte, taille
Next sousRep
End If
Set fso = Nothing
End Sub
'----------------------------------
"Jac" a écrit dans le message de news:
Mea culpa... Je n'ai regardé nulle part car je suis parti sur une macro
que
j'avais déjà mis au point pour cataloguer les fichiers et j'ai eu la
mauvaise idée de vouloir comparer les résultats obtenus et ce que dit
windows. Je n'ai pas l'habitude de croire tout ce qu'on me dit.
J'aime consulter une autre source pour valider...
Donc j'ai testé la macro qui est à l'origine de quelques échanges de mail.
C'est parfait, sauf pour le "C:" car windows voit 23.528 fichiers et la
macro en compte 23.544. La corbeille est vide donc sans doute des
fichiers système. Mais Excel serait-il plus perspicace que Windows XP ?
Sans vouloir abuser, que faudrait-il ajouter à la macro pour calculer
la taille des fichiers qui ont été comptés ?
"MichDenis" a écrit dans le message de news:http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
J'oubliais, si tu veux aussi obtenir la taille et le nombre de fichiers
des sous-répertoires aussi, dans la procédure test, tu utilises cette
ligne de commandes :
NbDeFichiers "c:Atravail", Nb&, taille, True
En fait, il y a seulement le dernier paramètre qui change et qui indique
que tu veux tenir compte des sous-répertoires.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23vVhGtLRIHA.4152@TK2MSFTNGP05.phx.gbl...
Ceci te donne le nombre de fichiers du répertoire que
tu as retenu et le nombre d'octets de ce répertoire :
'----------------------------------
Sub test()
Dim Nb&, taille As Double
'nombre de fichiers dans le répertoire spécifié
NbDeFichiers "c:Atravail", Nb&, taille, False
MsgBox "Nombre de fichiers : " & Nb & " " & vbCrLf & _
"taille du répertoire : " & taille & " octets."
End Sub
'----------------------------------
Sub NbDeFichiers(LeDossier$, Cpte&, taille As Double, _
Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
taille = taille + Dossier.Size
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.Path, Cpte, taille
Next sousRep
End If
Set fso = Nothing
End Sub
'----------------------------------
"Jac" <Jsansp@mfra.net> a écrit dans le message de news:
OrHJDSLRIHA.4180@TK2MSFTNGP06.phx.gbl...
Mea culpa... Je n'ai regardé nulle part car je suis parti sur une macro
que
j'avais déjà mis au point pour cataloguer les fichiers et j'ai eu la
mauvaise idée de vouloir comparer les résultats obtenus et ce que dit
windows. Je n'ai pas l'habitude de croire tout ce qu'on me dit.
J'aime consulter une autre source pour valider...
Donc j'ai testé la macro qui est à l'origine de quelques échanges de mail.
C'est parfait, sauf pour le "C:" car windows voit 23.528 fichiers et la
macro en compte 23.544. La corbeille est vide donc sans doute des
fichiers système. Mais Excel serait-il plus perspicace que Windows XP ?
Sans vouloir abuser, que faudrait-il ajouter à la macro pour calculer
la taille des fichiers qui ont été comptés ?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uBv2knARIHA.5184@TK2MSFTNGP05.phx.gbl...
http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !
J'oubliais, si tu veux aussi obtenir la taille et le nombre de fichiers
des sous-répertoires aussi, dans la procédure test, tu utilises cette
ligne de commandes :
NbDeFichiers "c:Atravail", Nb&, taille, True
En fait, il y a seulement le dernier paramètre qui change et qui indique
que tu veux tenir compte des sous-répertoires.
"MichDenis" a écrit dans le message de news:
%
Ceci te donne le nombre de fichiers du répertoire que
tu as retenu et le nombre d'octets de ce répertoire :
'----------------------------------
Sub test()
Dim Nb&, taille As Double
'nombre de fichiers dans le répertoire spécifié
NbDeFichiers "c:Atravail", Nb&, taille, False
MsgBox "Nombre de fichiers : " & Nb & " " & vbCrLf & _
"taille du répertoire : " & taille & " octets."
End Sub
'----------------------------------
Sub NbDeFichiers(LeDossier$, Cpte&, taille As Double, _
Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
taille = taille + Dossier.Size
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.Path, Cpte, taille
Next sousRep
End If
Set fso = Nothing
End Sub
'----------------------------------
"Jac" a écrit dans le message de news:
Mea culpa... Je n'ai regardé nulle part car je suis parti sur une macro
que
j'avais déjà mis au point pour cataloguer les fichiers et j'ai eu la
mauvaise idée de vouloir comparer les résultats obtenus et ce que dit
windows. Je n'ai pas l'habitude de croire tout ce qu'on me dit.
J'aime consulter une autre source pour valider...
Donc j'ai testé la macro qui est à l'origine de quelques échanges de mail.
C'est parfait, sauf pour le "C:" car windows voit 23.528 fichiers et la
macro en compte 23.544. La corbeille est vide donc sans doute des
fichiers système. Mais Excel serait-il plus perspicace que Windows XP ?
Sans vouloir abuser, que faudrait-il ajouter à la macro pour calculer
la taille des fichiers qui ont été comptés ?
"MichDenis" a écrit dans le message de news:http://www.excelabo.net/excel/repertoiresarborescence.php#dossiersfichiers
Me semblait aussi ... Jac a du mal regarder !