Private Sub SAVERAPPRO_Click()
'déclare la variable Ori
Dim Ori As Workbook
'déclare la variable His
Dim His As Workbook
'déclare la variable ChemHis
Dim ChemHis As String
'définit la variable ChemHis
ChemHis = Sheets('DONNEES').Range('b7').Value
'définit la variable Ori
Set Ori = ThisWorkbook
With Ori
'copie la feuille 'RAPPRO'
.Sheets('RAPPRO').Copy after:=Sheets(Sheets.Count)
'supprime le boutton
.ActiveSheet.Shapes('SAVERAPPRO').Select
SELECTION.Delete
'supprime la colonne avec lien hypertexte 'RETOUR'
Columns('I:I').Select
SELECTION.Delete Shift:=xlToLeft
'remplace les formules par les résultats
.ActiveSheet.Cells.Select
SELECTION.Copy
SELECTION.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, skipblans:=False, Transpose:=False
Range('a1').Select
'sauve le classeur
.save
End With
'ouvre le classeur 'HISTORIQUE RAPPRO.xls'
Application.Workbooks.Open (ChemHis)
'définit la variable His
Set His = active.Workbook
'copie l'onglet 'RAPPRO' dans le classeur 'HISTORIQUE RAPPRO.xls'
Ori.Sheets('RAPPRO').Copy after:=His.Sheets(Sheets.Count)
'donne le nom à l'onglet en fonction de la cellule A2
ActiveSheet.Name = Range('a2').Value
'sauve 'HISTORIQUE RAPPRO.xls'
His.save
'ferme 'HISTORIQUE RAPPRO.xls'
His.Close
End Sub