IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

recencer fichier excel dans meme dossier


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Inscrit en
    Mars 2005
    Messages
    25
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 25
    Par défaut recencer fichier excel dans meme dossier
    bjr

    comment faire pour recencer et ouvrir les fichier excel contenus dans le meme fichier excel appelant la macro


    merci davance

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Citation Envoyé par attavus
    bjr

    comment faire pour recencer et ouvrir les fichier excel contenus dans le meme fichier excel appelant la macro


    merci davance
    oups pas trés clair...

    pour lister des fichiers voir commande Dir...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    dim st as string
      st = dir ("thisworbook.path\*.xls")
     while st <> "" 
        Debug.print st 'Affiche réperoire dans fenêtre exécution
        st = dir
    wend

  3. #3
    Membre averti
    Inscrit en
    Mars 2005
    Messages
    25
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 25
    Par défaut
    je voulais dire recenser les fichiers excel contenus dans le meme dossier que le fichier excel appelant un code vba

  4. #4
    Membre expérimenté Avatar de conconbrr
    Inscrit en
    Février 2006
    Messages
    198
    Détails du profil
    Informations forums :
    Inscription : Février 2006
    Messages : 198
    Par défaut
    Essaie le bout de code suivant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Sub Test_Fichiers()
     
        Dim Existence_Dossier As Variant
        Dim Test_Dossier, Fichier, Fichier1 As String
     
        Test_Dossier = ActiveWorkbook.Path & "\TON REPERTOIRE"
        On Error Resume Next
        Existence_Dossier = (GetAttr(Test_Dossier) And vbDirectory) = vbDirectory
     
        If Existence_Dossier = "Vrai" Then
            Fichier = Dir(Test_Dossier & "\*.xls")
            Do While Fichier <> ""
                Fichier1 = Fichier1 & ", " & Fichier
                Fichier = Dir
            Loop
        End If
     
        If Existence_Dossier = "Vrai" Then
            MsgBox "Les fichiers sont : " & Right(Fichier1, Len(Fichier1) - 2), _
                   vbInformation, "Avertissement"
        End If
     
    End Sub
    Ce code te permet te tester l'existence de ton répertoire et s'il existe de lister tous les fichiers excel qu'il contient. Ils sont concaténés dans fichier1, a toi d'adapter, ça devrait pas être trop compliqué

  5. #5
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Le code de bbil fonctionne très bien sur VBA 2003.
    J'attends toujours la réponse à ma question

    Citation Envoyé par Conconbr
    Ce code te permet te tester l'existence de ton répertoire et s'il existe
    Cette ligne signifie que le répertoire existe puis que c'est le répertoire du fichier actif
    st = dir ("thisworbook.path\*.xls")

  6. #6
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Citation Envoyé par conconbrr
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim Test_Dossier, Fichier, Fichier1 As String
    Attention avec cette syntaxe.
    Seul Fichier1 est déclarer en String, les autres seront des Variant.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  7. #7
    Membre expérimenté Avatar de conconbrr
    Inscrit en
    Février 2006
    Messages
    198
    Détails du profil
    Informations forums :
    Inscription : Février 2006
    Messages : 198
    Par défaut
    Ah tiens ben je savais pas ça...
    Ca veut dire que tu dois déclarer une variable par ligne?,
    Un peu relou quand tu en as plusieurs centaines

  8. #8
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Citation Envoyé par conconbrr
    Ah tiens ben je savais pas ça...
    Ca veut dire que tu dois déclarer une variable par ligne?,
    Un peu relou quand tu en as plusieurs centaines
    non tu peu en déclarer plusieurs par ligne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Dim Test_Dossier As String, Fichier As String, Fichier1 As String
    mais si tu as plusieurs centaines de variables à déclarer.. je pense qu'il va falloir mieux organiser ton projet (les tableaux, collections, cela existe..)

Discussions similaires

  1. Réponses: 2
    Dernier message: 21/04/2014, 23h31
  2. [AC-2002] Boucle pour importer et traiter des fichiers excel dans un dossier
    Par Tinien dans le forum VBA Access
    Réponses: 9
    Dernier message: 02/06/2010, 12h59
  3. Réponses: 1
    Dernier message: 04/02/2010, 21h41
  4. macro pour copier un fichier excel dans un dossier
    Par mery13 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/03/2009, 14h36
  5. Afficher dans Excel tous les fichiers contenu dans un dossier
    Par popsmelove dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 29/01/2008, 19h21

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