D
darib52
Guest
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
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