p'tit pb dans macro

[darib52]

bonjour à tous,
j'ai un p'tit souci dans une macro.
le nom de la feuille est défini par l'utilisateur grâce à une inputbox.
mais j'ai besoin de récupérer ce nom à plusieurs reprises dans la macro, et ce que j'ai fait ne fonctionne.

merci de votre secours.

Sub Macro1()

' Macro1 Macro
' Macro enregistrée le 29/11/2006 par Tr
'
' Touche de raccourci du clavier: Ctrl+a
Dim monchoix As String
Dim nom As String

nom = InputBox("Donnez un nom à la feuille (sans -, *, /, ...)")
If nom <> "" Then
nom = UCase(nom)
ActiveSheet.Name = nom
End If
Range("A5").Select
Sheets.Add
ActiveCell.FormulaR1C1 = "=nom!R[2]C"
Range("A5").Select
Sheets("nom").Select
Selection.AutoFilter
Selection.AutoFilter
monchoix = InputBox("Tapez le libellé des dettes recherchées")
Selection.AutoFilter Field:=5, Criteria1:="=*monchoix*", Operator _
:=xlAnd
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("nom").Select
ActiveSheet.Name = monchoix
ActiveSheet.Paste

 

[PascalXLD]

Re : p'tit pb dans macro

Bonjour

essaies

ActiveCell.FormulaR1C1 = "=" & nom & "!R[2]C"
Range("A5").Select
Sheets(nom).Select <---- idem pour l'autre

 

[darib52]

Re : p'tit pb dans macro

merci.
c'est OK