Macro importation fichier

Bonjour,

J'ai un macro qui fait l'importation de tous les oglets d'un classeur qui se trouvent dans le même répertoire que lui.

9a fonctionne bien sauf qu'il les renomme en les numérotant à partir de 1 et moi je veux les importer sans changer leur noms.

Merci d'avance.

Sub consolide()
  ChDir ActiveWorkbook.Path
  Set classeurMaitre = ActiveWorkbook
  sup
  compteur = 1
  nf = Dir("*.xl*")
  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 = "" & compteur
        compteur = compteur + 1
      Next k
      Workbooks(nf).Close False
    End If
    nf = Dir
  Loop
End Sub

Bonjour,

Sans le support fichier, difficile de tester et ainsi proposer une solution correcte. Si je comprends ton problème, teste comme ça :

Sub consolide()
  ChDir ActiveWorkbook.Path
  Set classeurMaitre = ActiveWorkbook
  sup
  compteur = 1
  nf = Dir("*.xl*")
  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

Bonjour et merci pour ta réponse,

voici le fichier joint avec ta version aussi.

Merci.

Bonjour,

C'est mieux avec les supports en fichier. Je te retourne tes classeurs. Teste et dis-nous. J'ai rajouté la précision du classeur source dont les feuilles à copier sinon il y a confusion concernant les feuilles à copier.

Bonjour,

ça marche super bien. Mais si j'utilse ce macro dans un autre fichier d'un autre répertoire il appel ces les onglets de orig.xls alors que ya pas un chemin d'accés spicifié dans le macro.

Merci encore.