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. 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
    1. 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
    2. 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. 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
      2. 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
          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