Sujet Précédent Sujet Suivant

[VBA Excel] Test Si Dossier Vide

Résolu/Fermé
Saessen Messages postés 2 Date d'inscription jeudi 16 août 2007 Statut Membre Dernière intervention 16 août 2007 - 16 août 2007 à 11:35
Saessen Messages postés 2 Date d'inscription jeudi 16 août 2007 Statut Membre Dernière intervention 16 août 2007 - 16 août 2007 à 13:40
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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
16 août 2007 à 11:55
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 jeudi 16 août 2007 Statut Membre Dernière intervention 16 août 2007 1
16 août 2007 à 13:40
Ca a l'air de marcher, merci beaucoup!!!
1

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc
Paria -
2008G.C -

60 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
PXE-E61 : media test failure, check cable
laurent -
Amal -

116 réponses