Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Combien de fichiers tif dans ce dossier ?

Combien de fichiers tif dans ce dossier ?

2 réponses
Avatar
Jac
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.

Jac

-----------------------------------------------------------
Private Sub BOUTON_Click()
LE_PATH = "C:\Photos\"
LE_SOUS_DOSSIER = Forms![MENU].[Deroulant4].Value
LA_CIBLE = LE_PATH & LE_SOUS_DOSSIER
' LA_CIBLE pourrait ressembler à "S:\Photos\PARIS"
'?????????????????



'?????????????????
Msgbox "… il y a " & X & " fichiers tif;",,"DANS LE DOSSIER " &
LE_SOUS_DOSSIER

End Sub
-----------------------------------------------------------
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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.

Jac

-----------------------------------------------------------
Private Sub BOUTON_Click()
LE_PATH = "C:Photos"
LE_SOUS_DOSSIER = Forms![MENU].[Deroulant4].Value
LA_CIBLE = LE_PATH & LE_SOUS_DOSSIER
' LA_CIBLE pourrait ressembler à "S:PhotosPARIS"
'?????????????????



'?????????????????
Msgbox ". il y a " & X & " fichiers tif;",,"DANS LE DOSSIER " &
LE_SOUS_DOSSIER

End Sub
-----------------------------------------------------------




Avatar
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.

Jac

-----------------------------------------------------------
Private Sub BOUTON_Click()
LE_PATH = "C:Photos"
LE_SOUS_DOSSIER = Forms![MENU].[Deroulant4].Value
LA_CIBLE = LE_PATH & LE_SOUS_DOSSIER
' LA_CIBLE pourrait ressembler à "S:PhotosPARIS"
'?????????????????



'?????????????????
Msgbox ". il y a " & X & " fichiers tif;",,"DANS LE DOSSIER " &
LE_SOUS_DOSSIER

End Sub
-----------------------------------------------------------