Sub Copie_feuille_Active()
On Error Resume Next 'gère l'error
fichier = ThisWorkbook.Name
onglet = ActiveSheet.Name
If MsgBox("Envoyer " & onglet & " dans Consolidation_Exploitation ?", vbYesNo + vbExclamation, "COPIER L'ONGLET") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Workbooks("Consolidation_Exploitation.xls").Activate
If Err > 0 Then
Err.Clear
chemfich = "D:\Applis\Bordereau présence Exploitation\Collecte_Résultats_Exploitation\Consolidation_Exploitation.xls"
Workbooks.Open chemfich
If Err <> 0 Then MsgBox "fichier non trouvé": Exit Sub
End If
On Error GoTo 0
With Workbooks("Consolidation_Exploitation.xls")
Workbooks(fichier).Sheets(onglet).Copy After:=Workbooks("Consolidation_Exploitation.xls").Sheets(1)
.Sheets(2).Unprotect "AAA"
.Sheets(2).UsedRange.Value = .Sheets(2).UsedRange.Value
.Sheets(2).Protect "AAA"
.Save
.Close
End With
ThisWorkbook.Activate: Range("A1").Select
Application.ScreenUpdating = True
MsgBox onglet & " a été copié dans Consolidation_Exploitation !"
End Sub