[excel VBA] copier une feuille de classeur
Viouu
Messages postés
11
Statut
Membre
-
Viouu Messages postés 11 Statut Membre -
Viouu Messages postés 11 Statut Membre -
Bonjour,
Voila je recherche un peu d'aide pour coder cet etape :
Ouvrir un fichier quelquonque xls
copier coller la feuil1 du premier fichier dans la feuil2 du classeur actif.
Sub copy()
'selection le classeur à ouvrir'
Application.Workbooks.Open Application.GetOpenFilename()
'selection de la feuil1 du fichier recuperer'
Workbooks("Recap10.xlsx").Worksheets("feuil1").Select ===> comment recuperer le nom du classeur ouver avec la commande precedente ?
'copier la selection'
Selection.copy
'passer sur le classeur actif et selectionner la feuil2'
Workbooks("classeur2.xls").Worksheets("feuil2").Select
'copier dans la feuille la selection précedente'
ActivewokSheet.Paste
'fermer le fichier ouvert en premier'
??????
End sub.
Si quelqu'un peut m'aider.
Cordialement.
Viouu
Voila je recherche un peu d'aide pour coder cet etape :
Ouvrir un fichier quelquonque xls
copier coller la feuil1 du premier fichier dans la feuil2 du classeur actif.
Sub copy()
'selection le classeur à ouvrir'
Application.Workbooks.Open Application.GetOpenFilename()
'selection de la feuil1 du fichier recuperer'
Workbooks("Recap10.xlsx").Worksheets("feuil1").Select ===> comment recuperer le nom du classeur ouver avec la commande precedente ?
'copier la selection'
Selection.copy
'passer sur le classeur actif et selectionner la feuil2'
Workbooks("classeur2.xls").Worksheets("feuil2").Select
'copier dans la feuille la selection précedente'
ActivewokSheet.Paste
'fermer le fichier ouvert en premier'
??????
End sub.
Si quelqu'un peut m'aider.
Cordialement.
Viouu
Configuration: Windows XP Internet Explorer 6.0
