[VBA Excel] Test Si Dossier Vide

Résolu
Saessen Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Saessen Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un problème sur Microsoft Excel 2002 (système d'exploitation Windows 2000).

Voici le contexte:

J'ai créé pour mon travail une macro VBA sous Excel dont le but est (en résumé) de récupérer et de classer des données venant d'autres fichiers à l'aide de divers tests.

La macro fonctionne correctement, sauf lorsque l'un des dossiers contenant les fichiers à tester est vide. La macro plante alors.

La solution: créer une commande de test pour tester si le dossier en question est vide ou pas. Ce que je ne sais pas faire... :-S

Auriez-vous l'extrème amabilité de m'aider svp...? Merci d'avance.
A voir également:

2 réponses

Réponse 1 / 2
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut, 

rep = "c:\repertoire\"

Set fs = Application.FileSearch

With fs
    .LookIn = rep
    .Filename = "*.*"
    If .Execute > 0 Then
        MsgBox "Il y a " & .FoundFiles.Count & "fichiers" 
    Else
        MsgBox "Le répertoire est vide" 
    End If
End With
3
Réponse 2 / 2
Saessen Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   1
 
Ca a l'air de marcher, merci beaucoup!!!
1

Discussions similaires

le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
Excel formule : nb.si.ens et critère "différent de vide"
lelion4 -
Mick -

11 réponses