D
darib52
Guest
bonjour à tous,
j'utilise la macro ci-dessous.
mais je voudrais que 'monchoix' soit copié dans la cellule R1 de la feuille 'modele'.
et là je bute.
si l'une ou l'un d'entre vous pouvait avoir une idée, ce dont je ne doute absolument pas.
merci d'avance.
amitiés.
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('aide')
Application.CutCopyMode = False
WB.Close 'fermeture du classeur copié
End Sub
j'utilise la macro ci-dessous.
mais je voudrais que 'monchoix' soit copié dans la cellule R1 de la feuille 'modele'.
et là je bute.
si l'une ou l'un d'entre vous pouvait avoir une idée, ce dont je ne doute absolument pas.
merci d'avance.
amitiés.
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('aide')
Application.CutCopyMode = False
WB.Close 'fermeture du classeur copié
End Sub