Bonjour,

Je cherche à faire une macro qui, en cliquant sur un bouton Archivage, créer une copie de sauvegarde de cette page dans un autre classeur (dont on obtient l'emplacement via Application.GetOpenFilename).

Mais ça marche pas

en supposant que "Fichier" contient l'emplacemment du fichier d'archivage :
Fichier = "C:\Archivage.xls"
Planning2008 est la feuille à copier, et dans laquelle se trouve le bouton Archivage

Je fais :

Private Sub Ok_Click()
Sheets("Planning2008").Copy After:=Workbooks(Fichier).Sheets(xlLast)
Unload UserForm4
End Sub

mais il me met une erreur dans la ligne (L'indice n'appartient pas à la sélection)

Une idée? Une méthode différente?
MerciConfiguration: Windows XP
Excel 2003