Boujour à tous,
quelqu'un peut-il regarder mon code et me dire ce qu'il en pense? je débute et ce que j'ai fais ne fonctionne pas.
Merci de votre aide. [file name=EXEMPLE_20051218141821.zip size=23525]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EXEMPLE_20051218141821.zip[/file]
quelqu'un peut-il regarder mon code et me dire ce qu'il en pense? je débute et ce que j'ai fais ne fonctionne pas.
Code:
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
Merci de votre aide. [file name=EXEMPLE_20051218141821.zip size=23525]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EXEMPLE_20051218141821.zip[/file]