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