Copier feuil classeur vers classeur

[Florian53]

Bonjour à tous,

Je souhaiterais pouvoir copier une feuille d'un classeur que vers un autre classeur tout en gardant les mises en formes.

Je bloque au moment de la déclaration du Wb actif. Pouvez vous me guider svp ?

Option Explicit
Public Continuer As Boolean
Public FichierAOuvrir As Variant
Public Wb, ActiveWorkbook As Workbook
Public MonFichier, WB_Principal As String
Public MonRepertoire As String

Sub OuvrirFichierExcelALOuverture()
  Continuer = False
    With UserForm2
   .Show
   End With
   If Not Continuer Then Exit Sub
        OuvertureFichiers MonRepertoire, MonFichier
     End Sub

Sub OuvertureFichiers(RepertoireFichier, NomFichier)
   
  Set ActiveWorkbook = ActiveWorkbook
    ' Condition pour activer la macro
    If Continuer = True Then
    For Each Wb In Workbooks
            Select Case Wb.Name
                Case NomFichier
                    Wb.Activate
                    Continuer = False
                    Exit For
            End Select
    Next Wb
   
   
    If Continuer = True Then Workbooks.Open Filename:=RepertoireFichier & "\" & NomFichier
    ' Copie la base de données
   Workbooks(NomFichier).Sheets("BDD").Copy Wb(ActiveWorkbook).Sheets(1)
    Sheets(1).Activate
End sub

Merci

 

[Florian53]

J'aurais peut etre dû chercher encore un peu plus longtemps je pense avoir trouver, en tout cas sa fonctionne. Pouvez vous me dire si une chose vous choque dans la macro ?

Option Explicit
Public Continuer As Boolean
Public FichierAOuvrir As Variant
Public Wb As Workbook
Public MonFichier, FichierP As String
Public MonRepertoire As String

Sub OuvrirFichierExcelALOuverture()
  Continuer = False
    With UserForm2
   .Show
   End With
   If Not Continuer Then Exit Sub
        OuvertureFichiers MonRepertoire, MonFichier
     End Sub

Sub OuvertureFichiers(RepertoireFichier, NomFichier)
   
   FichierP = ActiveWorkbook.Name
    ' Condition pour activer la macro
    If Continuer = True Then
    For Each Wb In Workbooks
            Select Case Wb.Name
                Case NomFichier
                    Wb.Activate
                    Continuer = False
                    Exit For
            End Select
    Next Wb
   
   
    If Continuer = True Then Workbooks.Open Filename:=RepertoireFichier & "\" & NomFichier
    ' Copie la base de données
   Workbooks(NomFichier).Sheets("BDD").Copy Workbooks(FichierP).Sheets(1)
    Sheets(1).Activate
End sub

Merci