Aide sur feuille Récapitulative Sur Excel 2007.

TATA -  
Bonjour,

Je voudrais créer une feuille Excel que puisse réunir tout les donnes de 20 classeurs. Dans le 20 classeur le seul onglet avec des donnes est nomme *recensement 2014*, la feuille est compose de 150 ligne et 20 colonnes.

Le but de récolte l'information de tout le classeur sur une feuille Excel, je cherche une code VB que puisse faire l'affaire.

Merci de votre aide

PS: Le code il doit commencer à la colonne *A* ligne *9*

6 réponses

  1. Frenchie83
    Bonjour
    Si j'ai bien compris
    On veut récupérer les données de 20 classeurs, dont chacun à 1 feuille unique nommée "Recensement 2014" . les données sont réparties sur 150 lignes et 20 colonnes avec un début en A9.
    Voici donc un fichier composé de 2 feuille, sur la première "Liste" saisissez en colonne A les chemins de chaque classeur, en colonne B le nom des classeurs avec l'extension ".xlsx" comprise.
    https://www.cjoint.com/c/CHEsQsTyBqr
    il n'y a plus qu'à essayer
    cdlt
    0
    1. TATA
      Salut Frenchie83

      Je vient de tester ton fichier, petite problème pour la récupération de données, je crée une dossier sur C: appelle Essai_Reca_TATA_1

      Impossible d'importé le classeur avec le bouton de récupération.

      Message d'erreur 1004

      PS: Je nomme dans la feuille Excel de la manière suivant:

      "Emplacements (chemin complet,
      ne pas mettre le dernier ""\"")"

      C:\Essai_Reca_TATA1
      C:\Essai\Reca\TATA1

      Le nom de dossier dans la conne "B"

      DM 1 MartelOutil recensement DSO septembre 2013 .xlsx

      Merci de ton aide car je ne comprend pas la suite.

      Merci d'avance
      0
      1. Frenchie83
        Bonjour TATA
        En ce qui concerne l'erreur 1004.
        Est-tu sûr que les chemins sont bien corrects, ils terminent tous par "TATA1" (et non pas "TATA2" puis "TATA3" etc).
        Le noms des fichiers "DM 1 MartelOutil recensement DSO septembre 2013 .xlsx ", l'espace après 2013, est-il volontaire ou est-ce une erreur? à vérifier.
        J'ai refait tourner sur mon PC, ça marche très bien.
        je me suis seulement trompé sur un décalage que je t'invite à rectifier toi-même. Dans l'avant dernière ligne avant le next i , dans la ligne ActiveCell.Offset(150, 1).Select remplace le 1 par 0 ce qui donne ActiveCell.Offset(150, 0).Select.
        j'attends ta réponse
        cdlt
        0
        1. TATA
          Salut Frenchie83

          Désole de t'es dérange encore, je t'explique, dans le C: j'ai crée une dossier qui s'appelle C:Essai_Reca_TATA1.

          Dans ce dossier je place le 3 fichiers Excel:

          DM 1 MartelOutil recensement DSO septembre 2013.xlsx
          DM HH MCote Outil recensement DSO septembre 2013(1).xlsx
          DCILM ENDJ E RoyRecensement formation 2014 END.xlsx

          J'essai avec C:Essai_Reca_TATA1 au C:Essai\Resa\TATA1, avec aucune il fonctionne.

          Le code est corrige comment tu m'à signale dans mon message précèdent.

          Merci pour ton Aide

          @ +
          0
          1. Frenchie83
            bonsoir
            Tu oublies un \ après le C:
            remplace C:Essai_Reca_TATA1 par C:\Essai_Reca_TATA1
            là, ça devrait aller mieux
            cdlt
            0
        3. cumpa100.
          Salut Frenchi83

          Je vient de faire le changement, il me donne une message que porte sur ton code VB: dans le WORKBOOKS.

          Meri de ton aide

          <Sub RecupDonnees()
          Application.ScreenUpdating = False
          Application.DisplayAlerts = False
          ClasseurSynthese = ThisWorkbook.Name
          Sheets("Synthese").Select
          Cells.ClearContents
          Range("A1").Select
          'Relevé des emplacements des classeurs à importer **************
          Sheets("Liste").Select
          DerLig = Range("A1").End(xlDown).Row

          ReDim Emplacement(DerLig - 1) As String
          ReDim Classeur(DerLig - 1) As String
          For i = 1 To DerLig - 1
          Emplacement(i) = Cells(i + 1, 1)
          Classeur(i) = Cells(i + 1, 2)
          Next i
          Sheets("Synthese").Select
          For i = 1 To DerLig - 1

          Workbooks.Open Filename:=Emplacement(i) & "/" & Classeur(i)

          Sheets("recensement 2014").Select
          Cells(9, 1).Resize(150, 20).Select
          Selection.Copy
          Windows(ClasseurSynthese).Activate
          ActiveSheet.Paste
          ActiveCell.Offset(150, 0).Select
          Windows(Classeur(i)).Close
          Next i
          0
          1. Frenchie83
            Désolé, je ne comprends pas les sens de la question. et quel est le message?
            0
          2. cumpa100.
            Salut

            Voila, je faits toute les changements indique, en suite je lance la procédure avec le bouton et une message apparia comme quoi le chemins de fichiers il ne sont pas juste, écoute pour ce soir ce ok, je vais demain tout contrôler et je te redis

            Bonne soirée

            @ +

            Merci
            0
        4. foo
          Bonjour

          Voila un model de recape de compte de banque

          http://cjoint.com/?3IbwgFOYtv1

          A toi de modifier le range et mettre les bon chemin

          A+
          Maurice
          0