VBA Excel Copie feuille dans autre classeur
Résolu
Infest
-
VBA75 -
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
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:
- Vba copier une feuille dans un autre classeur sans ouvrir
- Copier une feuille excel - Meilleures réponses
- Excel copier une feuille - Meilleures réponses
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment copier une vidéo youtube - Guide
6 réponses
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
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
Merci!
Et juste un petit détail en plus : pour que la nouvelle page se place en dernière position tu fais comment?