Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

[VBA Excel] Test Si Dossier Vide

Dernière réponse le 16 aoû 2007 à 13:40:45 Saessen, le 16 aoû 2007 à 11:35:29

Signaler ce message aux modérateurs

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.

Configuration: Windows 2000
Internet Explorer 6.0

Meilleures réponses pour « [VBA Excel] Test Si Dossier Vide » dans :

VBA EXCEL test contenu cellule (Résolu) Voir

Excel Formule si case vide (Résolu) Voir

Fonction SI en VBA excel Voir

[VBA Excel] nb cells non vide dans une colonn Voir

[Excel]VBA pour supprimer des lignes vides (Résolu) Voir

[VBA Excel] Supprimer les colonnes vides (Résolu) Voir

Posez votre question Répondre

lami20j, le 16 aoû 2007 à 11:55:54

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

lami20j

Répondre à lami20j

Saessen, le 16 aoû 2007 à 13:40:45

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

Répondre à Saessen

Posez votre question Répondre