J'ai une feuille qui contient une colonne :
A1 : 2004/01
A2 : 2004/02
A3 : 2004/03
etc.
Sur le disque j'ai des photos sous les répoires :
e:\photos\2004\01
e:\photos\2004\02
e:\photos\2004\03
etc.
Est-il possible d'écrire une fonction telle que :
le nombre de fichiers de "e:\photos\2004\01" soit inscrit en B1
le nombre de fichiers de "e:\photos\2004\02" soit inscrit en B2
le nombre de fichiers de "e:\photos\2004\03" soit inscrit en B3
Les valeurs changeant en fonction du nombre de photos qui peut évoluer
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
Philippe.R
Bonsoir, Il doit être possible d'adapter cette macro disponible sur le site de Frédéric Sigonneau : '"=======================ÞBUT COPIE======================="' Attribute VB_Name = "ListeFichiersDossier3"
'Liste des fichiers d'un répertoire 'John Walkenbach, mpep
Sub ListFiles() ' Which directory? Directory = "c:windowsdesktop"
' Insert new sheet & headers r = 1 Worksheets.Add Cells(r, 1) = "FileName" Cells(r, 2) = "Size" Cells(r, 3) = "Date/Time" Range("A1:C1").Font.Bold = True r = r + 1
' Get the files On Error Resume Next With Application.FileSearch .NewSearch .LookIn = Directory .Filename = "*.*" .SearchSubFolders = False .Execute ' Write the file info For i = 1 To .FoundFiles.Count Cells(r, 1) = .FoundFiles(i) Cells(r, 2) = FileLen(.FoundFiles(i)) Cells(r, 3) = FileDateTime(.FoundFiles(i)) r = r + 1 Next i End With End Sub '"===========================FIN COPIE========================="' -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
a écrit dans le message de news:
Bonsoir,
J'ai une feuille qui contient une colonne : A1 : 2004/01 A2 : 2004/02 A3 : 2004/03 etc.
Sur le disque j'ai des photos sous les répoires :
e:photos2004 1 e:photos2004 2 e:photos2004 3 etc.
Est-il possible d'écrire une fonction telle que :
le nombre de fichiers de "e:photos2004 1" soit inscrit en B1 le nombre de fichiers de "e:photos2004 2" soit inscrit en B2 le nombre de fichiers de "e:photos2004 3" soit inscrit en B3
Les valeurs changeant en fonction du nombre de photos qui peut évoluer
Merci d'avance
Bien cordialement
BreizhBird
Bonsoir,
Il doit être possible d'adapter cette macro disponible sur le site de Frédéric Sigonneau :
'"=======================ÞBUT COPIE======================="'
Attribute VB_Name = "ListeFichiersDossier3"
'Liste des fichiers d'un répertoire
'John Walkenbach, mpep
Sub ListFiles()
' Which directory?
Directory = "c:windowsdesktop"
' Insert new sheet & headers
r = 1
Worksheets.Add
Cells(r, 1) = "FileName"
Cells(r, 2) = "Size"
Cells(r, 3) = "Date/Time"
Range("A1:C1").Font.Bold = True
r = r + 1
' Get the files
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
.Filename = "*.*"
.SearchSubFolders = False
.Execute
' Write the file info
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileLen(.FoundFiles(i))
Cells(r, 3) = FileDateTime(.FoundFiles(i))
r = r + 1
Next i
End With
End Sub
'"===========================FIN COPIE========================="'
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
<Breizh.Bird@laposte.net> a écrit dans le message de news:XnF9473E3383F9C0BreizhBird@207.46.248.16...
Bonsoir,
J'ai une feuille qui contient une colonne :
A1 : 2004/01
A2 : 2004/02
A3 : 2004/03
etc.
Sur le disque j'ai des photos sous les répoires :
e:photos2004 1
e:photos2004 2
e:photos2004 3
etc.
Est-il possible d'écrire une fonction telle que :
le nombre de fichiers de "e:photos2004 1" soit inscrit en B1
le nombre de fichiers de "e:photos2004 2" soit inscrit en B2
le nombre de fichiers de "e:photos2004 3" soit inscrit en B3
Les valeurs changeant en fonction du nombre de photos qui peut évoluer
Bonsoir, Il doit être possible d'adapter cette macro disponible sur le site de Frédéric Sigonneau : '"=======================ÞBUT COPIE======================="' Attribute VB_Name = "ListeFichiersDossier3"
'Liste des fichiers d'un répertoire 'John Walkenbach, mpep
Sub ListFiles() ' Which directory? Directory = "c:windowsdesktop"
' Insert new sheet & headers r = 1 Worksheets.Add Cells(r, 1) = "FileName" Cells(r, 2) = "Size" Cells(r, 3) = "Date/Time" Range("A1:C1").Font.Bold = True r = r + 1
' Get the files On Error Resume Next With Application.FileSearch .NewSearch .LookIn = Directory .Filename = "*.*" .SearchSubFolders = False .Execute ' Write the file info For i = 1 To .FoundFiles.Count Cells(r, 1) = .FoundFiles(i) Cells(r, 2) = FileLen(.FoundFiles(i)) Cells(r, 3) = FileDateTime(.FoundFiles(i)) r = r + 1 Next i End With End Sub '"===========================FIN COPIE========================="' -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
a écrit dans le message de news:
Bonsoir,
J'ai une feuille qui contient une colonne : A1 : 2004/01 A2 : 2004/02 A3 : 2004/03 etc.
Sur le disque j'ai des photos sous les répoires :
e:photos2004 1 e:photos2004 2 e:photos2004 3 etc.
Est-il possible d'écrire une fonction telle que :
le nombre de fichiers de "e:photos2004 1" soit inscrit en B1 le nombre de fichiers de "e:photos2004 2" soit inscrit en B2 le nombre de fichiers de "e:photos2004 3" soit inscrit en B3
Les valeurs changeant en fonction du nombre de photos qui peut évoluer
Merci d'avance
Bien cordialement
BreizhBird
michdenis
Bonsoir,
Il y a ceci : Une fonction personnalisée
à copier dans un module standard '------------------------------ Function NbFiles(Rg As Range) Application.Volatile Dim Chemin As String Chemin = "C:photos" & Rg.Text & "" With Application.FileSearch .NewSearch .SearchSubFolders = False .LookIn = Chemin .FileType = msoFileTypeAllFiles .Execute NbFiles = .FoundFiles.Count End With
End Function '------------------------------
Et dans la cellule : =NbFiles(C9) C9 étant la cellule contenant le répertoire désiré comme "2004 1"
Salutations!
a écrit dans le message de news: Bonsoir,
J'ai une feuille qui contient une colonne : A1 : 2004/01 A2 : 2004/02 A3 : 2004/03 etc.
Sur le disque j'ai des photos sous les répoires :
e:photos2004 1 e:photos2004 2 e:photos2004 3 etc.
Est-il possible d'écrire une fonction telle que :
le nombre de fichiers de "e:photos2004 1" soit inscrit en B1 le nombre de fichiers de "e:photos2004 2" soit inscrit en B2 le nombre de fichiers de "e:photos2004 3" soit inscrit en B3
Les valeurs changeant en fonction du nombre de photos qui peut évoluer
Merci d'avance
Bien cordialement
BreizhBird
Bonsoir,
Il y a ceci : Une fonction personnalisée
à copier dans un module standard
'------------------------------
Function NbFiles(Rg As Range)
Application.Volatile
Dim Chemin As String
Chemin = "C:photos" & Rg.Text & ""
With Application.FileSearch
.NewSearch
.SearchSubFolders = False
.LookIn = Chemin
.FileType = msoFileTypeAllFiles
.Execute
NbFiles = .FoundFiles.Count
End With
End Function
'------------------------------
Et dans la cellule : =NbFiles(C9)
C9 étant la cellule contenant le répertoire désiré comme "2004 1"
Salutations!
<Breizh.Bird@laposte.net> a écrit dans le message de news:XnF9473E3383F9C0BreizhBird@207.46.248.16...
Bonsoir,
J'ai une feuille qui contient une colonne :
A1 : 2004/01
A2 : 2004/02
A3 : 2004/03
etc.
Sur le disque j'ai des photos sous les répoires :
e:photos2004 1
e:photos2004 2
e:photos2004 3
etc.
Est-il possible d'écrire une fonction telle que :
le nombre de fichiers de "e:photos2004 1" soit inscrit en B1
le nombre de fichiers de "e:photos2004 2" soit inscrit en B2
le nombre de fichiers de "e:photos2004 3" soit inscrit en B3
Les valeurs changeant en fonction du nombre de photos qui peut évoluer
à copier dans un module standard '------------------------------ Function NbFiles(Rg As Range) Application.Volatile Dim Chemin As String Chemin = "C:photos" & Rg.Text & "" With Application.FileSearch .NewSearch .SearchSubFolders = False .LookIn = Chemin .FileType = msoFileTypeAllFiles .Execute NbFiles = .FoundFiles.Count End With
End Function '------------------------------
Et dans la cellule : =NbFiles(C9) C9 étant la cellule contenant le répertoire désiré comme "2004 1"
Salutations!
a écrit dans le message de news: Bonsoir,
J'ai une feuille qui contient une colonne : A1 : 2004/01 A2 : 2004/02 A3 : 2004/03 etc.
Sur le disque j'ai des photos sous les répoires :
e:photos2004 1 e:photos2004 2 e:photos2004 3 etc.
Est-il possible d'écrire une fonction telle que :
le nombre de fichiers de "e:photos2004 1" soit inscrit en B1 le nombre de fichiers de "e:photos2004 2" soit inscrit en B2 le nombre de fichiers de "e:photos2004 3" soit inscrit en B3
Les valeurs changeant en fonction du nombre de photos qui peut évoluer
