Private Sub Enregistrer ()
Call CopierFormat
Call CopieValeurs
End Sub
Public Sub CopieFormat()
'copie uniquement les formats
Windows('RAPPRO.xls').Activate
Range('A1:X150').Select
Selection.Copy
Windows('Classeur2.xls').Activate
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Public Sub CopieValeurs()
'copie uniquement les valeurs
Windows('RAPPRO.xls').Activate
Range('A1:X150').Select
Selection.Copy
Windows('Classeur2.xls').Activate
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('A2').Select
End Sub