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 ?
Merci
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 ?
VB:
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