Microsoft 365 Macro sauvant le fichier en indiquant date et heure du jr

[limon]

bonjour à tous,

J'aimerais sur ma macro existante(ci dessous) lui demander qu'il integre ds le nom de sauvegarde le jour et si possible l'heure, auriez vous une idée?
Pour permettre un classement idéal ds le repertoire, j'aimerais que la date et heure apparaisse devant le nom du fichier

merci d'avance pour votre aide précieuse

chris


Sub TEST()

'

' TEST Macro

'

Sheets("RECLASSEMENTS").Select

ActiveSheet.Buttons.Add(1015.5, 55.5, 115.5, 55.5).Select

ActiveSheet.Buttons.Add(1023, 133.5, 116.25, 69.75).Select

ActiveSheet.Buttons.Add(1015.5, 55.5, 115.5, 55.5).Select

ActiveSheet.Buttons.Add(1015.5, 55.5, 115.5, 55.5).Select

Sheets("RECLASSEMENTS").Copy

ActiveWorkbook.SaveAs Filename:= _

"Ce lien n'existe plus" _

, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

End Sub

 

[jmfmarques]

Bonjour
Le paramètre Finemame étant une chaine de caractères, ta question se réduit donc à : comment contruire une chaine de caractères à partir de plusieurs variables (et ce : qu'il s'agisse d'un chemin de fichier ou de quoi que ce soit).
Ma manière de répondre alors --->> regarde ce que fait ceci :
Bonjour

Ma manière de répondre alors à une telle question --->> regarde ce que fait ceci :

chemin = "monchemin\"
nom = "monnom"
extension = ".ttt"
MsgBox monchemin & monnom & Format(Now, "yyyymmddhhmm") & extension

 

[Staple1600]

Bonjour le fil

[alerte covid19]
jmfmarques est contaminé, non?
Sinon pourquoi il bégaie dans ses posts sur XLD
Voir son bizarre message (le #2)
[/alerte covid19]


Sinon Excel fait cela ton seul (le versionning d'un fichier)
C'est d'ailleurs fort utile

 

[limon]

Hello merci a tous les deux.
Cela veut dire
ActiveWorkbook.SaveAs Filename:= _

"Ce lien n'existe plus& monnom & Format(Now, "yyyymmddhhmm") & xlsx"
Autre question que veut dire le versionage? Merci a ts les deux

 

[Staple1600]

Bonjour le fil, limon

•>limon

Autre question que veut dire le versionage?

Menu Fichier=> Informations

Pour plus, voir le net avec tout bon moteur de recherche.

 

[limon]

Bonjour le fil, limon

•>limon

Menu Fichier=> Informations

Pour plus, voir le net avec tout bon moteur de recherche.

La je suiss en office365 alors que j avais créé la macro sur office 2016, je ne sais pas si cela peut aider?

 

[limon]

bonsoir,
j'ai testé ceci mais cela ne marche pas, avez vs une idee?
merci

"Ce lien n'existe plus partages/General/2.PP3/1.RECLASSEMENT/0.HISTORIQUE& reclassement & Format(Now, "yyyymmddhhmm") & xlsx""

 

[Staple1600]

Bonsoir le fil, limon

•>limon
Apparemment tu veux enregistrer ton classeur sur un emplacement Sharepoint, non ?
Or ce que l'on a proposé jusqu’ici fonctionne pour un enregistrement en local (sur un PC)

 

[limon]

Oui exact sur sharepoint, la macro fonctionne j aimerais juste sauver en ajoutant date du jr et heure de sauvegarde mais je n y arrive pas, si qqun a une idee ,merci

 

[fanch55]

Salut à tous ,

Ce lien n'existe plus partages/General/2.PP3/1.RECLASSEMENT/0.HISTORIQUE& reclassement & Format(Now, "yyyymmddhhmm") & xlsx""

Il ne manquerait pas un point avant le xlsx ?
La syntaxe me semble incomplète.

Essayer :

"https://xxxxxworkplace.sharepoint.com/sites/PROGRAMMATION-COMPLAINTS/Documents partages/General/2.PP3/1.RECLASSEMENT/0.HISTORIQUE/" & _
reclassement & Format(Now, "yyyymmddhhmm") &  "." & xlsx"

 

[limon]

Salut à tous ,



Il ne manquerait pas un point avant le xlsx ?
La syntaxe me semble incomplète.

Essayer :

"https://xxxxxworkplace.sharepoint.com/sites/PROGRAMMATION-COMPLAINTS/Documents partages/General/2.PP3/1.RECLASSEMENT/0.HISTORIQUE/" & _
reclassement & Format(Now, "yyyymmddhhmm") &  "." & xlsx"

hello

j'ai testé, il ne reconnait pas ceci "yyyymmddhhmm"

merci

 

[limon]

j'ai trouvé ceci mais j'aimerais aussi avec heure et minutes, si qquu'n a une idee? merci
https://****workplace.sharepoint.com/sites/PROGRAMMATION-COMPLAINTS/Documents%20partages/General/2.PP3/1.RECLASSEMENT/0.HISTORIQUE/TestSheet_" & _
Format(Date, "ddmmmyyyy") & "_" & _
SaveTime & AMPM & ".xlsx"

 

[limon]

j'ai trouvé avec cette construction ca marche merci a tous
TestSheet_" & _
Format(Date, "ddmmmyyyy") & "_" & _
Format(Time, "hAM/PM") & ".xlsm"

 

[fanch55]

Salut,
A toi de trouver la formule qui te convient le mieux,
Ci-dessous le résultat d'une exécution :

Format(Now, "yyyymmddhhmm") ==> 202003242112
Format(Date, "ddmmmyyyy") & "_" & Format(Time, "hAM/PM") ==> 24mars2020_9PM
Format(Now, "ddmmmyyyy_hAM/PM") ==> 24mars2020_9PM

 

[limon]

Merci bonne soiree