copie variable

[darib52]

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

 

[Jeannot45]

Bonjour darib52,

Je ne comprends pas vraiement ton problème
mais tu pourrais ajouter la ligne :

ActiveWorbook.Sheets('modèle').range('R1')=monchoix

Jeannot

 

[darib52]

mon pb est que je n'arrive pas à copier cette variable dans la cellule R1 de la feuille 'modele'.

et ta proposition triturée dans tous les sens ne fonctionne pas.

 

[darib52]

la réponse est

Sheets('modele').[R1]=monchoix

j'aurais rendance à dire, simplement.
pourquoi n'y ai-je pas pensé tout seul ?

amitiés