Salut,

J'aimerais convertir un folder en string, et pas moyen de trouver la commande qui va bien ...

J'aimerais ballayer chacun de mes dossiers et voir s'il existe au moins un fichier dedans

En fait, voilà mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
 Dim filecollection As Folders
 Set filecollection = objfolder.SubFolders
 Dim campagne As Folder
 Dim fso As FileSystemObject
 Set fso = CreateObject("Scripting.FileSystemObject")
 Dim dir As String
 
For Each campagne In filecollection
        Dim Path, FileName As String
        Path = campagne ' ca bloque puisque file différent à folder
        FileName = dir(Path)
 
        If fso.FolderExists(FileName) = True Then  
             ' alors il existe au moins un fichier
        end if
Next
Merci, merci !
Ritchie.