probleme d'enregistrement dans

[j marc]

'Dim Cible as string
Cible = Range("e2").Value
ActiveWorkbook.SaveAs Filename:=Format(Cible, "yyyy")

Workbooks.Add Template:= _
"C:\WINDOWS\Application Data\Microsoft\Modèles\ca.xlt"
Sheets("données").Select
Range("b8").Select
Range("D2").Select

Windows("2003.xls").Activate
ActiveWorkbook.Close


Je voudrais que le "2003" soit en fait le nom generé en violet car en 2004 cette macro ne fonctionne plus.

 

[Mytå]

salut j_marc

Pas sur d'avoir bien saisie mais ceci .....

'Dim Cible as string
Cible = Range("e2").Value
Range("e2")=Range("e2")+1
ActiveWorkbook.SaveAs Filename:=Format(Cible, "yyyy")


Workbooks.Add Template:= _
"C:\WINDOWS\Application Data\Microsoft\Modèles\ca.xlt"
Sheets("données").Select
Range("b8").Select
Range("D2").Select

Windows(Cible & ".xls").Activate
ActiveWorkbook.Close