Réinitialiser valeur de FoundFiles.Count

[pmfontaine]

Bonjour,
Après avoir scruté un dossier (D), j’affiche une boite de dialogue avec une zone de liste modifiable pour choisir un des sous dossiers trouvés dans (D) sur lequel on veux travailler.
(Appelons les SD1, SD2, SD3)
J’utilise

With fs
    .LookIn = chemin
    .Filename = '*.xls'
    If .Execute > 0 Then
'message d'affichage du nombre du dossier
    MsgBox 'Il y a ' & .FoundFiles.Count & ' fichiers'
……….. …Etc

Pour afficher le nombre de dossier trouvé.

Mon problème est qu’il m’affiche FoundFiles.Count = 2 même quand je valide ma boite de sans avoir sélectionné de sous dossier.
(Mon dossier (D) ne contient aucun fichier, il de contient que des Sous Dossiers)
POURQUOI 2 ALORS QU’IL DEVRAIT M’AFFICHER 0 ?

 

[ODVJ]

Bonjour,

si le souci provient des sous-dossiers, peut-être qu'en rajoutant .SearchSubFolders = False ça le règlera.

sinon, pour choisir dans des sous dossiers, tu peux utiliser

 Option Explicit
     Public dossier

     Public Type BROWSEINFO
        hOwner As Long
        pidlRoot As Long
        pszDisplayName As String
        lpszTitle As String
        ulFlags As Long
        lpfn As Long
        lParam As Long
        iImage As Long
     End Type
     '32-bit API declarations
     Declare Function SHGetPathFromIDList Lib 'shell32.dll' _
     Alias 'SHGetPathFromIDListA' (ByVal pidl As Long, ByVal pszPath As String) As Long
     Declare Function SHBrowseForFolder Lib 'shell32.dll' _
     Alias 'SHBrowseForFolderA' (lpBrowseInfo As BROWSEINFO) As Long

puis tu appelles cette API dans ta routine avec

chemin= GetDirectory('choisissez le dossier à traiter')

cordialement

 

[Robert]

Bonsoir PMFontaine, OVNI, bonsoir le forum,

PMFontaine tu parles de Dossiers mais ton code traite les Fichiers. L'erreur ne serait-elle pas là ?

 

[pmfontaine]

Bonjour et merci pour votre aide.
ODVJ :
SearchSubFolders = False ne change rien.
Robert :
Je scrute un dossiers dans lequel il y as des sous_dossier.
Par une zone de liste modifiable d'un UserForm l'opérateur choisi un sous dossier de la liste.
Ensuite je traite les fichiers.xls qui sont dans ce sous dossier.
Et il me dit qu'il trouve 2 fichiers.xls quand je n'ai pas choisi de sous dossier alors qu'il devrait me donner 0 ? (Puisque il y a forcement '' (zéro fichier) dans ''