M
Mike
Guest
Re le forum,
J ai une macro qui copie une feuille et qui la copie dans une autre feuille :
Option Explicit
Sub Export()
Dim Ws As Worksheet
Dim RSource As Range, RCible As Range
Application.ScreenUpdating = False
Set RSource = Sheets('SAUVEGARDE JOURNEE').Cells
Worksheets.Add
With ActiveSheet
Set RCible = .Range('A1')
RSource.Copy Destination:=RCible
End With
Sheets('SAUVEGARDE JOURNEE').Select
MsgBox 'Operation Terminée'
Application.ScreenUpdating = True
End Sub
J aimerai inclure dans cette macro une autre action, a savoir effacer la feuille d origine. Est ce possible?
J ai une macro qui copie une feuille et qui la copie dans une autre feuille :
Option Explicit
Sub Export()
Dim Ws As Worksheet
Dim RSource As Range, RCible As Range
Application.ScreenUpdating = False
Set RSource = Sheets('SAUVEGARDE JOURNEE').Cells
Worksheets.Add
With ActiveSheet
Set RCible = .Range('A1')
RSource.Copy Destination:=RCible
End With
Sheets('SAUVEGARDE JOURNEE').Select
MsgBox 'Operation Terminée'
Application.ScreenUpdating = True
End Sub
J aimerai inclure dans cette macro une autre action, a savoir effacer la feuille d origine. Est ce possible?