Macro qui consolide des fichiers excel en un seul

[jaba]

Bonjour,

Je suis débutante en VBA et je cherche à savoir si il existe une macro qui consolide différents fichier (contenant 1 onglet chacun de fome identique)dans un seul fichier excel ( de préférence dans un seul onglet, mais si c'est dans plusieurs onglets, c'est déjà tres bien)

Merci d'avance pour votre aide.

 

[kjin]

Re : Macro qui consolide des fichiers excel en un seul

Bonjour,
Des macros toutes faites ?!
A+
kjin

 

[job75]

Re : Macro qui consolide des fichiers excel en un seul

Bonjour jaba, salut kjin,

Il y a certainement de nombreux exemples de consolidation sur le forum.

Mais je n'avais pas encore fait cette macro-là :

Sub Consolide()
Dim lig As Long, wb As Workbook, derlig As Long, plage As Range
lig = 3
On Error Resume Next 'si un classeur ne contient rien...
With ThisWorkbook.Worksheets(1)
  For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then
      If lig = 3 Then
        wb.Sheets(1).Cells.Copy .Rows(1) 'pour les dimensions des colonnes
        .Cells.Clear
      End If
      .Cells(lig - 2, 1) = UCase(wb.Name) 'nom du classeur en majuscules
      .Cells(lig - 2, 1).Font.FontStyle = "Gras" 'style de police
      .Cells(lig - 2, 1).Font.ColorIndex = 3 'couleur de police rouge
      derlig = 0 'si un classeur ne contient rien...
      derlig = wb.Sheets(1).Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
      If lig + derlig > .Rows.Count Then MsgBox "Limite de la feuille atteinte !": Exit Sub
      Set plage = wb.Sheets(1).Rows("1:" & derlig)
      plage.Copy .Rows(lig)
      lig = lig + derlig + 3
    End If
  Next
End With
End Sub

A+

 

[jaba]

Re : Macro qui consolide des fichiers excel en un seul

Oui, j'ai réussi à trouver une macro toute faite pour éclater un onglet en plusieurs fichiers, et je suppose qu'une macro toute faite doit exister pour l'opération inverse.
Au fait, merci pour la macro des filtres, elle est nikel 🙂

 

[jaba]

Re : Macro qui consolide des fichiers excel en un seul

Merci Job75 pour cette macro. Mais comment l'appliquer?

faut il l'enregister sur n'importe quel classeur?
Faut il l'enregistrer dans un module ou dans le workbook?
Faut il mettre les fichier à consolider dans un endroit particulier?

Merci d'avance

++

 

[kjin]

Re : Macro qui consolide des fichiers excel en un seul

bonsoir, salut Job 🙂,

Au fait, merci pour la macro des filtres, elle est nikel 🙂

Bah ça c'est dans le fil en question qu'il faut le mettre parce qu'ici c'est un forum (ça peut servir à d'autres), sinon autant s'écrire

Oui, j'ai réussi à trouver une macro toute faite pour éclater un onglet en plusieurs fichiers, et je suppose qu'une macro toute faite doit exister pour l'opération inverse.

Oui, ça j'avais bien compris, mais soit tu trouves un exemple sur le forum et tu te débrouilles pour l'adapter, soit tu nous en dis un peu plus sur le où, quoi, comment, parce qu'à preuve du contraire, une macro toute faite, ça n'existe pas
A+
kjin

 

[job75]

Re : Macro qui consolide des fichiers excel en un seul

Re,

Merci Job75 pour cette macro. Mais comment l'appliquer?

faut il l'enregister sur n'importe quel classeur?
Faut il l'enregistrer dans un module ou dans le workbook?
Faut il mettre les fichier à consolider dans un endroit particulier?

Tâcher d'abord de comprendre un peu la macro.

Il est facile de voir que la consolidation se fait dans la 1ère feuille du classeur contenant la macro.

On peut mettre la macro n'importe où, le plus simple c'est dans un Module.

Elle peut être lancée par un bouton, ou par un raccourci clavier...

A+