Discussion :

[FLSK_5555]

Bonjour. Je suis grand débutant en VBA, et j'ai pour but de créer une macro qui assemble en un même classeur les feuilles de deux classeurs différents, et qui fusionne certaines feuilles portant le même nom.
Dans un premier temps, j'essaie de simplement rassembler toutes les feuilles des différents classeurs en un même classeur.
J'utilise le 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
Sub consolide()
  ChDir ActiveWorkbook.Path
  Set classeurMaitre = ActiveWorkbook
  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)
      Next k
      Workbooks(nf).Close False
    End If
    nf = Dir
  Loop
End Sub

Résultat : j'obtiens bien un classeur mais j'ai l'impression que seules deux des feuilles sont copiées à plusieurs reprises ...

Pourriez-vous m'éclairer sur le problème s'il vous plaît ?
D'avance, merci de votre aide ... et de votre indulgence

[Thautheme]

Bonjour FLSK, bonjour le forum,

Peut-être comme ça :

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
Sub consolide()
Dim CM As Workbook 'Classeur Maître
Dim CS As Workbook 'Classeur Source
Dim K As Byte
 
ChDir ActiveWorkbook.Path
Set CM = ActiveWorkbook
 
nf = Dir("*.xls")
Do While nf <> ""
    If nf <> classeurMaitre.Name Then
        Workbooks.Open Filename:=nf
        Set CS = ActiveWorkbook
        For K = 1 To CS.Sheets.Count
            CS.Sheets(K).Copy After:=CM.Sheets(CM.Sheets.Count)
        Next K
        CS.Close False
    End If
    nf = Dir
Loop
End Sub