1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    octobre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : octobre 2013
    Messages : 54
    Points : 91
    Points
    91

    Par défaut Boucle sur chaque fichier d'un répertoire

    Bonjour à tous,

    Je me heurte à un problème dans l'exécution d'un code pour boucler sur l'ensemble des fichiers d'un répertoire, et j'avoue que je tourne un peu un rond.

    J'ai réutilisé le code présent dans la FAQ, que j'ai un tout petit peu adapté à mon besoin :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
        Chemin = ThisWorkbook.Path & "\"
        Fichier = Dir(Chemin & "*.xlsx")
        Do While Len(Fichier) > 0
            Application.StatusBar = Fichier
            Workbooks.Open (Fichier)
    Sauf que quand j'exécute le code, j'obtiens un message "Erreur 1004" qui me dit gentillement "Nous sommes désolé, nous ne trouvons pas le fichiers XXXXX.xlsx. Peut-être l'avez-vous renommé, déplacé, supprimé." -> sur la ligne Workbooks.OPEN.

    Je peux très bien avoir fait une erreur dans mon code, mais je ne comprends pas comment il peut ne pas réussir à trouver le fichier pour l'ouvrir, et pourtant il réussit à le trouver quand même puisqu'il me met le nom du fichier dans le message d'erreur... Et il me le met également dans ma statusbar.

    Si quelqu'un peut éclairer ma lanterne, ce serait top !

    Merci d'avance.

  2. #2
    Membre émérite Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    juillet 2012
    Messages
    1 812
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : juillet 2012
    Messages : 1 812
    Points : 2 977
    Points
    2 977

    Par défaut

    Bonsoir

    As-tu regardé la valeur de Fichier ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Fichier = Dir(Chemin & "*.xlsx")

  3. #3
    Nouveau membre du Club
    Profil pro
    Inscrit en
    juillet 2010
    Messages
    29
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2010
    Messages : 29
    Points : 36
    Points
    36

    Par défaut

    Bonsoir

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Workbooks.Open (chemin & Fichier)
    Par contre étant donné que vous travaillez dans le meme dossier que le fichier ouvert, il va falloir rajouter une condition pour l'exclure

  4. #4
    Membre régulier
    Homme Profil pro
    Inscrit en
    octobre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : octobre 2013
    Messages : 54
    Points : 91
    Points
    91

    Par défaut

    Bonsoir,

    Pour répondre à la première question, oui j'ai regardé en mettant un msgbox (que je n'ai pas affiché dans l'exemple ci-dessus). La valeur de Fichier est bien le nom de mon fichier, avec l'extension.

    Pour répondre à la deuxième question, je filtre justement sur les fichier dont l'extension est .xlsx, alors que mon fichier de travail est en .xlsm, il n'est donc pas pris en compte dans la boucle.

    Merci à vous deux.
    Si quelqu'un a une piste ?

  5. #5
    Nouveau membre du Club
    Profil pro
    Inscrit en
    juillet 2010
    Messages
    29
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2010
    Messages : 29
    Points : 36
    Points
    36

    Par défaut

    Je vous ai donné la réponse

    vous avez écrit
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Workbooks.Open (Fichier)
    au lieu de
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Workbooks.Open (chemin & Fichier)

  6. #6
    Membre régulier
    Homme Profil pro
    Inscrit en
    octobre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : octobre 2013
    Messages : 54
    Points : 91
    Points
    91

    Par défaut

    Re,

    Au temps pour moi, je me suis focalisé sur la deuxième partie du message...

    Je vais essayer demain matin, ça a l'air d'une bonne piste. J'ai fait une confiance aveugle à la FAQ, et pourtant ce n'est pas écrit comme cela.
    Avec le recul, ça me paraît logique d'ajouter la variable Chemin dans la méthode Open.

    Je vous tiens informés demain.

    Merci encore !

  7. #7
    Membre régulier
    Homme Profil pro
    Inscrit en
    octobre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : octobre 2013
    Messages : 54
    Points : 91
    Points
    91

    Par défaut

    Bonjour,

    Merci impur, c'était effectivement cela.
    A trop vouloir me creuser la tête, j'en ai oublié les fondamentaux...

    Bonne journée !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 07/10/2008, 07h18
  2. Réponses: 13
    Dernier message: 12/10/2007, 10h09
  3. [VBA-E] boucle sur chaque feuille d un classeur
    Par johndeuf dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 31/12/2006, 12h39
  4. Boucle sur chaque div avec class= ....
    Par zevince dans le forum JavaScript
    Réponses: 2
    Dernier message: 04/04/2006, 13h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo