choix feuille à copier

[darib52]

bonsoir à tous,
j'utilise la macro ci-après pour copier une feuille dans un autre claseur
Sub CopieVersUnAutreClasseur()
Dim FichRec As String
Dim WB As Workbook
FichRec = Application.GetOpenFilename('Excel files, *.xls') 'recherche le classeur
Set WB = Workbooks.Open(FileName:=FichRec) 'ouverture du classeur sélectionné
'copie de la feuille du classeur choisi
'et collage après la feuille aide du classeur contenant la macro
WB.Sheets(1).Copy After:=ThisWorkbook.Worksheets('feuil1')
Application.CutCopyMode = False
WB.Close 'fermeture du classeur copié
End Sub

mais je voudrais avoir le choix de la feuille à copier, en mettant son nom dans une inputbox.
comment est-ce possible?

merci d'avance pour vos avis toujours judicieux.
amitiés

 

[Jacques87]

Bonsoir

J'ai adapté ton code à ta demande, et te souhaite bon courage


Sub CopieVersUnAutreClasseur()
Dim FichRec As String
Dim WB As Workbook
Dim monchoix As String
FichRec = Application.GetOpenFilename('Excel files, *.xls') 'recherche le classeur
Set WB = Workbooks.Open(FileName:=FichRec) 'ouverture du classeur sélectionné
'copie de la feuille du classeur choisi
'et collage après la feuille aide du classeur contenant la macro
monchoix = InputBox('quel est le nom de la feuille que vous voulez copier ?')
WB.Sheets('monchoix').Copy After:=ThisWorkbook.Worksheets(monchoix)
Application.CutCopyMode = False
WB.Close 'fermeture du classeur copié
End Sub

Bonne soirée

Message édité par: Jacques87, à: 18/01/2006 20:39

 

[darib]

ça bug

WB.Sheets('monchoix').Copy After:=ThisWorkbook.Worksheets(monchoix)

 

[Jacques87]

évidemment

WB.Sheets('monchoix').CopyAfter:=ThisWorkbook.WorkSheets(monchoix)
n'a pas de sens , car je ne peux pas copier la feuille après elle même

change le nom (exemple Feuil1) de la feuille After

 

[darib52]

après tatonnements

WB.Sheets(monchoix).Copy After:=ThisWorkbook.Worksheets('feuil1')

merci pour ton aide.
bonne soirée.

 

[Jacques87]

je crois qu'il est temps que j'aille me coucher
En effet tu te mets à corriger mes fautes qui d'ailleurs sont des bourdes énormes (une constante entre guillemets, tu n'as pas honte Jacques87 !!)

bonne nuit darib52