Nommer un fichier excel avec la date du jour
Résolu/Fermé
A voir également:
- Nommer un fichier excel avec la date du jour
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
3 réponses
redonky
Messages postés
102
Date d'inscription
jeudi 2 avril 2009
Statut
Membre
Dernière intervention
31 octobre 2010
23
5 août 2009 à 15:14
5 août 2009 à 15:14
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 ;)
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
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+
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+