Option Explicit
'=====================
'Macro pour récupérer et remplacer 3 onglets d'un classeur extérieur
'voir aussi dans le module "this workook" l'activation et désactivation de la barre d'outil personnalisée
'==========================================================
Sub Récupération_des_onglets_source()
Dim Source As Workbook, Bis As Workbook
Dim i As Byte
Set Bis = ThisWorkbook
' desactive la mise à jour de l'écran
Application.ScreenUpdating = False
'==========================================================
'vérifie que le classeurSource est ouvert, sinon demande ouverture et sortie macro
On Error Resume Next
Set Source = Workbooks("Source.xls")
If Source Is Nothing Then MsgBox " Vous devez d'abord ouvrir le fichier Source!": Exit Sub
On Error GoTo 0
'=============================================================
'Suppression et remplacement des donées de feuilles
With Bis
.Worksheets("A_ca").Rows(1).CurrentRegion.ClearContents
Source.Sheets("A_ca").Rows(1).CurrentRegion.Copy Destination:=.Worksheets("A_ca").Range("A1")
.Worksheets("A_un").Rows(1).CurrentRegion.ClearContents
Source.Sheets("A_un").Rows(1).CurrentRegion.Copy Destination:=.Worksheets("A_un").Range("A1")
.Worksheets("Recap").Rows(1).CurrentRegion.ClearContents
Source.Sheets("Recap").Rows(1).CurrentRegion.Copy Destination:=.Worksheets("Recap").Range("A1")
End With
'===============================================================
Application.ScreenUpdating = True
Bis.Activate
End Sub