Nommer un fichier excel avec la date du jour
Résolu
Raskass
-
Raskass -
Raskass -
Bonjour,
Je cherche à nommer ou à renommer un fichier excel créé avec une macro :
quand le fichier est nommé:
ChDir "\\rfo1\U_co$\Desktop\Porte-docs\Macros\TRS_RS_RO"
ActiveWorkbook.SaveAs Filename:= _
"\\rfo1\U_co$\Desktop\Porte-docs\Macros\TRS_RS_RO\Remp.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ou en le renommant, mais ça ne fonctionne pas:
ActiveWorkbook.Windows(1).Caption = Date
merci de votre aide
Je cherche à nommer ou à renommer un fichier excel créé avec une macro :
quand le fichier est nommé:
ChDir "\\rfo1\U_co$\Desktop\Porte-docs\Macros\TRS_RS_RO"
ActiveWorkbook.SaveAs Filename:= _
"\\rfo1\U_co$\Desktop\Porte-docs\Macros\TRS_RS_RO\Remp.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ou en le renommant, mais ça ne fonctionne pas:
ActiveWorkbook.Windows(1).Caption = Date
merci de votre aide
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
Voilà mon code exemple bon courage :P
Sub copiersousunautrenom()
' déplacer un fichier et le renommer
'pour ne pas perdre le travail effectué sous fichier d'origine avec le nom d'origine
ActiveWorkbook.Save
fich = "ZNS"
origine = Workbooks(ArbeitName).Sheets("Thermo_ZNS").Range("Chemin_travail") + fich + ".xls"
'nom de la copie
copie = Workbooks(ArbeitName).Sheets("Thermo_ZNS").Range("Chemin_travail") + datedujour + "\" + fich + "_" + datedujour + ".xls"
If Dir(copie) <> "" Then
Kill copie
End If
ActiveWorkbook.SaveAs FileName:= _
copie, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'réouvrir fichier d'origine
Workbooks.Open FileName:= _
origine
Windows(fich & "_" & datedujour & ".xls").Activate
ActiveWindow.Close
Windows(fich & ".xls").Activate
End Sub
PS: ce code est très batard mais tu peux le modifier ;) -
Ok,
sur cette piste j'ai trouvé ça: j'ouvre le fichier et j'en fait une copie, c'est pas encore clean : je voudrai éviter de faire une copie pour le nommer directement:
ChDir "\\rfomscnxfp1\U_cozb$\Desktop\Porte-docs\Macros\TRS_RS_RO"
Workbooks.Open Filename:= _
"\\rfomscnxfp1\U_cozb$\Desktop\Porte-docs\Macros\TRS_RS_RO\Remp.xls"
fName = Date
fName = Format(fName, "jjmmaa")
ActiveWorkbook.SaveAs Filename:=fName
merci de votre aide
Raskass -
ok, tout est dans la déclaration de la variable :
fName = Date
fName = Format(fName, "ddmmyy")
Rempl = "\\rfomscnxfp1\U_cozb$\Desktop\Porte-docs\Macros\TRS_RS_RO\Rempli_" + fName + ".xls"
ChDir "\\rfo1\U_co$\Desktop\Porte-docs\Macros\TRS_RS_RO"
ActiveWorkbook.SaveAs Filename:=Rempl
et là ça marche, merci redonky
a+
