choix feuille à copier

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

ça bug

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

é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

après tatonnements

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

merci pour ton aide.
bonne soirée.

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