[VBA Excel] Test Si Dossier Vide Résolu

Question

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.

lami20j · Accepted Answer

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

Saessen · Answer

Ca a l'air de marcher, merci beaucoup!!!

[VBA Excel] Test Si Dossier Vide

2 réponses

Discussions similaires

Newsletters