quand je clique sur un bouton, je voudrais afficher combien de fichiers
tif sont présents dans le dossier que j'ai choisis dans un menu
déroulant. Pour le début et la fin, ça va, mais pour compter, j'ai du
mal…
Merci d'avance à qui pourrait me mettre sur la voie.
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
Gilbert
Bonjour,
Avec cette fonction par exemple
Function fNombreFichiers(strDir As String, Optional strType As String "*.*") As Long Dim i As Long i = 0 With Application.FileSearch .NewSearch .LookIn = strDir .FileName = strType If .Execute > 0 Then fNombreFichiers = .FoundFiles.Count End If End With End Function
Sub essai() Debug.Print fNombreFichiers(LA_CIBLE ,"*.tif") End Sub
-- Cordialement,
Gilbert
"Jac" a écrit dans le message de news:OL%
Bonjour à tous,
quand je clique sur un bouton, je voudrais afficher combien de fichiers tif sont présents dans le dossier que j'ai choisis dans un menu déroulant. Pour le début et la fin, ça va, mais pour compter, j'ai du mal.
Merci d'avance à qui pourrait me mettre sur la voie.
'????????????????? Msgbox ". il y a " & X & " fichiers tif;",,"DANS LE DOSSIER " & LE_SOUS_DOSSIER
End Sub -----------------------------------------------------------
Bonjour,
Avec cette fonction par exemple
Function fNombreFichiers(strDir As String, Optional strType As String "*.*") As Long
Dim i As Long
i = 0
With Application.FileSearch
.NewSearch
.LookIn = strDir
.FileName = strType
If .Execute > 0 Then
fNombreFichiers = .FoundFiles.Count
End If
End With
End Function
Sub essai()
Debug.Print fNombreFichiers(LA_CIBLE ,"*.tif")
End Sub
--
Cordialement,
Gilbert
"Jac" <jsansp@amfra.net> a écrit dans le message de
news:OL%23bYjn7JHA.1568@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
quand je clique sur un bouton, je voudrais afficher combien de fichiers
tif sont présents dans le dossier que j'ai choisis dans un menu
déroulant. Pour le début et la fin, ça va, mais pour compter, j'ai du
mal.
Merci d'avance à qui pourrait me mettre sur la voie.
Function fNombreFichiers(strDir As String, Optional strType As String "*.*") As Long Dim i As Long i = 0 With Application.FileSearch .NewSearch .LookIn = strDir .FileName = strType If .Execute > 0 Then fNombreFichiers = .FoundFiles.Count End If End With End Function
Sub essai() Debug.Print fNombreFichiers(LA_CIBLE ,"*.tif") End Sub
-- Cordialement,
Gilbert
"Jac" a écrit dans le message de news:OL%
Bonjour à tous,
quand je clique sur un bouton, je voudrais afficher combien de fichiers tif sont présents dans le dossier que j'ai choisis dans un menu déroulant. Pour le début et la fin, ça va, mais pour compter, j'ai du mal.
Merci d'avance à qui pourrait me mettre sur la voie.
'????????????????? Msgbox ". il y a " & X & " fichiers tif;",,"DANS LE DOSSIER " & LE_SOUS_DOSSIER
End Sub -----------------------------------------------------------
Jac
… efficace et rapide. Merci encore.
Gilbert avait énoncé :
Bonjour,
Avec cette fonction par exemple
Function fNombreFichiers(strDir As String, Optional strType As String > "*.*") As Long Dim i As Long i = 0 With Application.FileSearch .NewSearch .LookIn = strDir .FileName = strType If .Execute > 0 Then fNombreFichiers = .FoundFiles.Count End If End With End Function
Sub essai() Debug.Print fNombreFichiers(LA_CIBLE ,"*.tif") End Sub
-- Cordialement,
Gilbert
"Jac" a écrit dans le message de news:OL%
Bonjour à tous,
quand je clique sur un bouton, je voudrais afficher combien de fichiers tif sont présents dans le dossier que j'ai choisis dans un menu déroulant. Pour le début et la fin, ça va, mais pour compter, j'ai du mal.
Merci d'avance à qui pourrait me mettre sur la voie.
'????????????????? Msgbox ". il y a " & X & " fichiers tif;",,"DANS LE DOSSIER " & LE_SOUS_DOSSIER
End Sub -----------------------------------------------------------
… efficace et rapide. Merci encore.
Gilbert avait énoncé :
Bonjour,
Avec cette fonction par exemple
Function fNombreFichiers(strDir As String, Optional strType As String > "*.*") As Long
Dim i As Long
i = 0
With Application.FileSearch
.NewSearch
.LookIn = strDir
.FileName = strType
If .Execute > 0 Then
fNombreFichiers = .FoundFiles.Count
End If
End With
End Function
Sub essai()
Debug.Print fNombreFichiers(LA_CIBLE ,"*.tif")
End Sub
--
Cordialement,
Gilbert
"Jac" <jsansp@amfra.net> a écrit dans le message de
news:OL%23bYjn7JHA.1568@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
quand je clique sur un bouton, je voudrais afficher combien de fichiers
tif sont présents dans le dossier que j'ai choisis dans un menu
déroulant. Pour le début et la fin, ça va, mais pour compter, j'ai du
mal.
Merci d'avance à qui pourrait me mettre sur la voie.
Function fNombreFichiers(strDir As String, Optional strType As String > "*.*") As Long Dim i As Long i = 0 With Application.FileSearch .NewSearch .LookIn = strDir .FileName = strType If .Execute > 0 Then fNombreFichiers = .FoundFiles.Count End If End With End Function
Sub essai() Debug.Print fNombreFichiers(LA_CIBLE ,"*.tif") End Sub
-- Cordialement,
Gilbert
"Jac" a écrit dans le message de news:OL%
Bonjour à tous,
quand je clique sur un bouton, je voudrais afficher combien de fichiers tif sont présents dans le dossier que j'ai choisis dans un menu déroulant. Pour le début et la fin, ça va, mais pour compter, j'ai du mal.
Merci d'avance à qui pourrait me mettre sur la voie.