Compter les fichiers *.dat dans un dossier

Bonjour,

essaie de t'inspirer du code ci-dessous (vérifie qu'il n'y a pas d'erreur
car c'est une extraction d'une appli)

Dim chemin As String
Dim chemindonnées As String
Dim nomfichier As String
chemin = ThisWorkbook.Path & ""
chemindonnées = ThisWorkbook.Path & "Données"
cheminexcel = ThisWorkbook.Path & "DonnéesExcel"
nomfichier = ActiveWorkbook.NameSet fs = Application.FileSearch
With fs
.LookIn = chemindonnées
.FileType = msoFileTypeAllFiles
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending)

0 Then
' ligne suivante peut être mise en commentaire après la validation

MsgBox "Ce dossier contient " & .FoundFiles.Count & _
" fichier(s) répondant aux critères."
'
compteur = 0
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)

if right(ActiveWorkbook.Name,4) = "*.dat" then compteur = compteur
+1
Next

Else
MsgBox "Aucun fichier n'a été trouvé."
End If
msgbox ( compteur & " fichiers .dat trouvés")
End With


A+
Eric


"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de news:
%235sOVhdtEHA.2804@TK2MSFTNGP14.phx.gbl...

bonjour,
j'aurai besoin d'une petite macro qui me permettrait de compter les
fichiers se terminant par l'extension dat dans un dossier
merci à ceux qui savent
bonne journée à tous

Bonjour jl Guitard;
Remplace sPath = ThisWorkbook.Path & "" par le répertoire de ton choix.

Sub EnumDatFile()
Dim PathEntry As String, w%, sPath As String
sPath = ThisWorkbook.Path & ""
PathEntry = Dir(sPath & "*.*", vbNormal + vbHidden)
While PathEntry <> ""
'* Ignore le répertoire courant et le répertoire supérieur.
If PathEntry <> "." And PathEntry <> ".." Then
If LCase(Mid(PathEntry, InStr(1, PathEntry, ".") + 1)) = "dat" Then
w = w + 1
End If
PathEntry = Dir() '* Sélectionne l'entrée suivante
End If
Wend
MsgBox w & " fichier(s).dat trouvé(s) !", 64
End Sub

MP

"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de
news:%235sOVhdtEHA.2804@TK2MSFTNGP14.phx.gbl...

bonjour,
j'aurai besoin d'une petite macro qui me permettrait de compter les
fichiers

se terminant par l'extension dat dans un dossier
merci à ceux qui savent
bonne journée à tous

Bonjour

Voici

Function NbFichiers(NomFichiers As String, Chemin As String)
Dim Fichiers As FileSearch
Set Fichiers = Application.FileSearch
With Fichiers
.Filename = NomFichiers
.LookIn = Chemin
.Execute
NbFichiers = .FoundFiles.Count
End With
End Function

Cette fonction est utilisable tant dans Excel que dans VBA. Pour l'utiliser
afin de rechercher les fichiers DAT dans "Mes documents", il suffira de
l'appeler
En excel : =NbFichiers("*.dat";"Mes documents")
et en VBA, par exemple avec un message
msgbox NbFichiers("*.dat","Mes documents")

Cela convient-il?


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de
news:%235sOVhdtEHA.2804@TK2MSFTNGP14.phx.gbl...

bonjour,
j'aurai besoin d'une petite macro qui me permettrait de compter les
fichiers

se terminant par l'extension dat dans un dossier
merci à ceux qui savent
bonne journée à tous