Private Sub Cmdsauvegarde_Click()
Dim Cell As Range
Dim Ref$
Dim OldCalculation&
If MsgBox('Voulez vraiment réaliser la sauvegarde du mois en cours ?', vbYesNo) = vbNo Then
Cmdannuler4.SetFocus
Else
Title = 'Attention sauvegarde du mois en cours.'
usfmenu.Hide
'Selection classeur de sauvegarde :
'_______________________________________________________
Workbooks.Open Filename:= _
'C:\\Documents and Settings\\Aloa\\Mes Documents\\OGEC\\OGEC_Sauvegarde PLVT.xls'
'_______________________________________________________
'Copier feuille 'Moisencours' :
Windows('Planning ecole_2006.xls').Activate
Sheets('Moisencours').Select
Sheets('Moisencours').Copy Before:=Workbooks('OGEC_Sauvegarde PLVT.xls'). _
Sheets(1)
'Oter les formules dans feuille de sauvegarde et les remplacer par leurs valeurs :
Windows('OGEC_Sauvegarde PLVT.xls').Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('a1').Select
'Copier feuille 'AVIS PLVT' :
Windows('Planning ecole_2006.xls').Activate
Sheets('AVIS PLVT').Select
Sheets('AVIS PLVT').Copy Before:=Workbooks('OGEC_Sauvegarde PLVT.xls'). _
Sheets(2)
'Oter les formules dans feuille de sauvegarde et les remplacer par leurs valeurs :
Windows('OGEC_Sauvegarde PLVT.xls').Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('a1').Select
'Renommer les feuilles 'Moisencours' et 'AVIS PLVT' du dossier d'archives :
Windows('OGEC_Sauvegarde PLVT.xls').Activate
Sheets('Moisencours').Activate
Sheets('Moisencours').Name = Range('AF2')
Sheets('AVIS PLVT').Activate
Sheets('AVIS PLVT').Name = Range('au1')
'Revenir au menu du planning :
Windows('OGEC_Sauvegarde PLVT.xls').Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows('Planning ecole_2006.xls').Activate
Sheets('Moisencours').Activate
End Sub
j'espère que ca pourra t'aider
sinon, joint ton fichier et je regarderai
salut B)