Fusionner tous les classeurs excel d'un même dossier en un

Résolu
Raphdu Messages postés 46 Statut Membre -  
Raphdu Messages postés 46 Statut Membre -
Bonjour,

J'aimerais savoir s'il est possible de regrouper tous les classeurs excel d'un dossier (206 classeurs) en un seul classeur, chaque ancien classeur s'ouvrant dans une nouvelle feuille?

Merci par avance.

4 réponses

  2.
    Raphdu Messages postés 46 Statut Membre 2
     
    J'ai essayé la macro proposée mais j'obtiens l'
    "erreur d'exécution '1004'
    erreur définie par l'application ou par l'objet"
    Quand je clique ok, j'obtiens
    "mémoire insuffisante pour afficher en entier"
    Qu'est ce que je peux faire?
    Merci!
    0
  3. Zoul67 Messages postés 2001 Statut Membre 149
     
    Essayer un autre code.
    C'est évident que quelqu'un s'est déjà confronté à l'assemblage de fichiers
    ex. 
    Sub consolide()
      ChDir ActiveWorkbook.Path
      Set classeurMaitre = ActiveWorkbook
      sup
      compteur = 1
      nf = Dir("*.xls")
      Do While nf <> ""
        If nf <> classeurMaitre.Name Then
          Workbooks.Open Filename:=nf
          For k = 1 To Sheets.Count
            Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
            classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "Mapage" & compteur
            compteur = compteur + 1
          Next k
          Workbooks(nf).Close False
        End If
        nf = Dir
      Loop
    End Sub
    récupéré là : https://www.excel-downloads.com/threads/fusionner-plusieurs-fichier-excel-en-un-unique.135408/ (rendons à...)
    0
  4. Raphdu Messages postés 46 Statut Membre 2
     
    ça me dit
    "erreur de compilation
    Sub ou fonction non définie"

    Je cherche d'autres fonctions mais pour l'instant, rien qui marche
    0
    1. Zoul67 Messages postés 2001 Statut Membre 149
       
      Supprime "sup" dans le code ci-dessus...
      0
    2. Raphdu Messages postés 46 Statut Membre 2
       
      ça exécute mais c'est resté en cours d'exécution pendant plus de 3 heures hier et au final, ça n'a pas fonctionné. J'ai recommencé ce matin pour voir mais ça à l'air de faire pareil. Sur le côté, ça dit "Feuil900" et au dessus, alors que je n'ai que 205 feuilles.
      Est-ce qu'il y a quelque chose d'autre à essayer?
      0
    3. Raphdu Messages postés 46 Statut Membre 2
       
      ouais bah nan effectivement, après 4 heures d'exécution, j'obtiens:
      "erreur d'exécution '1004':
      Erreur définie par l'application ou par l'objet"
      Y a t il une autre solution?
      0
    4. Zoul67 Messages postés 2001 Statut Membre 149
       
      S'il s'agit de fichier .xls (donc des versions anciennes de Excel), tu peux zipper ton classeur où tu veux regrouper les onglets + 2 fichiers de données et placer le zip sur https://www.cjoint.com/
      Donne-moi le lien, et je regarderai.

      Bonne nuit
      0

Discussions similaires

Impossible fusionner cellules
aubli -
Christian -

3 réponses