VBA Excel Copie feuille dans autre classeur

Résolu
Infest -  
 VBA75 -
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?
Merci
A voir également:

6 réponses

CapitainCo Messages postés 126 Date d'inscription   Statut Membre Dernière intervention   61
 
apres test cela marche avec ca

Private Sub CommandButton1_Click()
Var_Chemin = "D:\Perso_JDC\Classeur2.xls"
Fichier1 = ActiveWorkbook.Name
Workbooks.Open Var_Chemin, 0, ReadOnly:=False
Fichier2 = ActiveWorkbook.Name
Workbooks(Fichier1).Sheets("Feuil1").Copy Before:=Workbooks(Fichier2).Sheets("Feuil3")
End Sub


tu n'as plus qu'à adapter a ton cas
39
Infest
 
aaaaah ça fait plaisir...
Merci!

Et juste un petit détail en plus : pour que la nouvelle page se place en dernière position tu fais comment?
0