bonjour,
je voudrais enregistrer la copie de la feuille sous le Nom de la cellule AE10.
Merci d'avance pour la réponse.
PS: voici la macro
Sub Enregistrementdada()
'
' Enregistrementdada Macro
' Macro enregistrée le 26/07/2014 par 7009300E
'
'
Sheets("CRU Bar").Select
Sheets("CRU Bar").Copy After:=Sheets(2)
Sheets("CRU Bar").Select
Range("AE10,A20:B32,P13:AJ13,O20:AM32").Select
Range("O20").Activate
ActiveWindow.SmallScroll Down:=12
Range("AE10,A20:B32,P13:AJ13,O20:AM32,P34:AM52").Select
Range("P34").Activate
ActiveWindow.SmallScroll Down:=6
Range( _
"AE10,A20:B32,P13:AJ13,O20:AM32,P34:AM52,B57:AJ61,AL57:AM57,AL59:AM59,AL61:AM61" _
).Select
Range("AL61").Activate
Selection.ClearContents
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
Range("B7").Select
End Sub