J
j marc
Guest
'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é pour que la macro puisse fonctionner en 2004, ou me dire comment faire pour que lorsque cette macro s'exécute elle ferme un fichier et en ouvre un autre .
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é pour que la macro puisse fonctionner en 2004, ou me dire comment faire pour que lorsque cette macro s'exécute elle ferme un fichier et en ouvre un autre .