Ouvrir et copier les onglets du classeur ouvert

Bonsoir le forum,

Depuis un fichier maître j'ouvre un fichier xls avec 12 onglets.

J'aimerais juste copier les 12 onglet dans mon fichier maître

j'ai pondu ceci mais cela ne copie aucun onglet, j'ai du louper une marche mais je tourne en rond dessus depuis hier et je vois pas ou mon code déconne

Sub OuvrirClasseur_Copie_toutes_les_feuilles()

  Dim Fichier As String
  Dim WBA As Workbook
  Dim WBO As Workbook
  Dim LaFeuille As Worksheet
 Set WBA = ActiveWorkbook
    With Application.FileDialog(3)
        .Show

        On Error Resume Next 'si annuler

        Fichier = .SelectedItems(1)

        If Err.Number <> 0 Then Exit Sub

        Workbooks.Open Fichier
    Set WBO = ActiveWorkbook
    End With
 For Each LaFeuille In WBA.Worksheets
            LaFeuille.Copy After:=WBO.Worksheets(WBO.Worksheets.Count)
    Next

End Sub

Si vous avez une petite idée,

Merci

Slt,

si si il copiait mais il faisait l'inverse de ce que tu cherches

Sub OuvrirClasseur_Copie_toutes_les_feuilles()

  Dim Fichier As String
  Dim WBA As Workbook
  Dim WBO As Workbook
  Dim LaFeuille As Worksheet
 Set WBA = ActiveWorkbook
    With Application.FileDialog(3)
        .Show

        On Error Resume Next 'si annuler

        Fichier = .SelectedItems(1)

        If Err.Number <> 0 Then Exit Sub

        Workbooks.Open Fichier
    Set WBO = ActiveWorkbook
    End With
 For Each LaFeuille In WBO.Worksheets
            LaFeuille.Copy After:=WBA.Worksheets(WBA.Worksheets.Count)
    Next

End Sub

Bonsoir,

Comme je me suis aussi penché sur le sujet, je vous livre une autre approche, peut-être plus simple :

Sub OuvrirClasseur_Copie_toutes_les_feuilles()
Dim Fichier_traité As String

Application.Dialogs(xlDialogOpen).Show

Fichier_traité = ActiveWorkbook.Name

Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")).Copy after:=Workbooks( _
    "Fichier Maître.xlsm").Sheets(Workbooks("Fichier Maître.xlsm").Sheets.Count)

Workbooks(Fichier_traité).Close Savechanges:=False

End Sub

Bonne soirée.

Merci les gas,

franchement je suis une buse, merci les deux solutions fonctionne,

J'ai honte,

encore merci je valide