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
papou
Bonjour Frédo Regarde la réponse faite à Marco qui pourrait peut-être t'intéresser... Cordialement Pascal "Frédo" a écrit dans le message de news:088c01c3a441$39a1cb40$ Salut
Qui peux m'aider...... Je souhaite compter les fichiers d'un répertoire (quelque soit le type de fichier) et afficher son nom dans un msgbox
merci Fred
Bonjour Frédo
Regarde la réponse faite à Marco qui pourrait peut-être t'intéresser...
Cordialement
Pascal
"Frédo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:088c01c3a441$39a1cb40$a401280a@phx.gbl...
Salut
Qui peux m'aider......
Je souhaite compter les fichiers d'un répertoire
(quelque soit le type de fichier) et afficher son nom
dans un msgbox
Bonjour Frédo Regarde la réponse faite à Marco qui pourrait peut-être t'intéresser... Cordialement Pascal "Frédo" a écrit dans le message de news:088c01c3a441$39a1cb40$ Salut
Qui peux m'aider...... Je souhaite compter les fichiers d'un répertoire (quelque soit le type de fichier) et afficher son nom dans un msgbox
merci Fred
Denis Michon
Bonjour Frédo,
Une façon de faire :
'------------------------- Sub CompterFichiersDansUnRépertoire()
With Application.FileSearch .NewSearch .LookIn = "C:excel" 'à déterminer ton répertoire .SearchSubFolders = False .Filename = "*.*" If .Execute > 0 Then MsgBox .FoundFiles.Count End If End With
End Sub '-------------------------
Salutations!
"Frédo" a écrit dans le message de news:088c01c3a441$39a1cb40$ Salut
Qui peux m'aider...... Je souhaite compter les fichiers d'un répertoire (quelque soit le type de fichier) et afficher son nom dans un msgbox
merci Fred
Bonjour Frédo,
Une façon de faire :
'-------------------------
Sub CompterFichiersDansUnRépertoire()
With Application.FileSearch
.NewSearch
.LookIn = "C:excel" 'à déterminer ton répertoire
.SearchSubFolders = False
.Filename = "*.*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count
End If
End With
End Sub
'-------------------------
Salutations!
"Frédo" <anonymous@discussions.microsoft.com> a écrit dans le message de news:088c01c3a441$39a1cb40$a401280a@phx.gbl...
Salut
Qui peux m'aider......
Je souhaite compter les fichiers d'un répertoire
(quelque soit le type de fichier) et afficher son nom
dans un msgbox
'------------------------- Sub CompterFichiersDansUnRépertoire()
With Application.FileSearch .NewSearch .LookIn = "C:excel" 'à déterminer ton répertoire .SearchSubFolders = False .Filename = "*.*" If .Execute > 0 Then MsgBox .FoundFiles.Count End If End With
End Sub '-------------------------
Salutations!
"Frédo" a écrit dans le message de news:088c01c3a441$39a1cb40$ Salut
Qui peux m'aider...... Je souhaite compter les fichiers d'un répertoire (quelque soit le type de fichier) et afficher son nom dans un msgbox
