enregistrer sous avec date et heure récente

[news]

Bonsoir à tous du forum,

Losqu'on clique sous enregistrer que le fichier est enregistré avec nom du fichier et date récente. J'utilise le vba code suivant :


Sub date_format()
Dim strDate As String
strDate = Format(Now, " dd-mmm-yyyy-hh-mm")

ActiveWorkbook.save = ActiveWorkbook.SaveAs "C:\Worksheet.Feuil2.Range("E1")" & "fichier du" & "strdate" & ".xls"
End Sub


p.ex: Range("E1") = testversion
donne come fichier enregistré sous : "testversion, fichier du 08.10.2009, 19:15"

Comment définir, afin de recevoir ce format de nom de fichier ?


merci d'avance,

news

 

[Guest]

Re : enregistrer sous avec date et heure récente

Bonsoir,

Pas sûr d'avoir tout compris.

ActiveWorkbook.save = ActiveWorkbook.SaveAs C:\Worksheet.Feuil2.Range("E1")  & "fichier du" & strdate & ".xls"

A+

 

[news]

Re : enregistrer sous avec date et heure récente

Bonsoir à tous du forum,

Re : Hasco, peut-être je ne me suis pas bien exprimé, mais ton code proposé ne fonctionne pas.

que la macro est : Si on clique sur le bouton enregistrer que le fichier est enregistré directement sous le répertoire C:\ et avec le format suivant

FormatDate = Format(Now, " dd-mmm-yyyy,_hh-mm")
strDate = Worksheets("Feuil2").Range("E1") & "_" & "fichier du" & FormatDate & ".xls"
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & strDate

Avec le vba code ci-dessus, il ne fonctionne pas encore que si je clique sur le bouton "enregistrer", que le fichier est nommé directement avec le nouveau format est enregistré sous le répertoire C:

news

 

[news]

Re : enregistrer sous avec date et heure récente

Bonjour à tous du forum,

Si on clique sur le bouton "enregistrer" que le fichier est enregistré directement sous le répertoire C:\
et avec le format suivant

FormatDate = Format(Now, " dd-mmm-yyyy,_hh-mm")
strDate = Range("E1") & "_" & FormatDate & ".xls"
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & strDate

Comment renommer ? : ActiveWorkbook.Save = ThisWorkbook.SaveAs ...

merci d'avance d'astuces éventuels,

news

 

[Paritec]

Re : enregistrer sous avec date et heure récente

Bonjour News le forum
tu retires le ligne Formatdate
et tu écris cela

strDate = Worksheets("Feuil2").Range("E1") & "_" & "fichier du" & Format(Now, " dd-mmm-yyyy,_hh-mm") & ".xls"
activeworkbook.saveas activeworkbook.path &"\" & strdate

a+
Papou 🙂

Edit : Bonjour JNP oui tu as raison j'avais pas vu les 2 points quel âne!!!

 

[JNP]

Re : enregistrer sous avec date et heure récente

Bonjour le fil 🙂,
Si j'ai compris, tu souhaiterais avoir un format

Format(Now, " dd.mm.yyyy, hh:mm")

mais le problème est que ":" n'est pas accepté comme nom de fichier... Utilise

Format(Now, " dd.mm.yyyy, hh""h""mm")

par exemple, le résultat sera aussi lisible, et compatible pour le nom de fichier.
Bon courage 😎
Ajout : Salut Paritec

 

[news]

Re : enregistrer sous avec date et heure récente

Bonjour à tous du forum,

Re: Paritec
merci pour l'astuce, ce qui réduit de format le vba code

Re: JNP
merci pour réponse,
oui j'avais essayé auparavant avec le format ":" mais cela ne fonctionnait pas.
ton code focntionne bien et je peux l'utiliser.

Dans le sujet posé initalement je n'avais pas inclus encore que besoin de :

le fichier est enregistré sous le répertoire C:\
si on clique sur le bouton "enregistrer" que le le fichier est directement enregistré sous (ThisWorkbook.SaveAs ... )

Comment modifier le vba code pour inclure ces ajoutes ?

news

 

[Paritec]

Re : enregistrer sous avec date et heure récente

Re JNP News
je comprend pas ta question ? le c:\ il est dans ton path
tu veux quoi ?
a+
papou

 

[news]

Re : enregistrer sous avec date et heure récente

Re: Paritec
p.ex. le fichier "conférence" se trouve sous C:\data\divers\documents

Si on clique sur le bouton "enregistrer", les changements de données effectuées dans le fichier "conférence" sont enregistrées, mais enregistrées dans le répertoire actuel.

Ce que besoin, si on clique sur le bouton "enregistrer" que le fichier est enregistré sous le répertoire C:\conférence
et pour connaître la version récente, que le fichier est enregistré avec le format de date :

>> C:\conférence_du_09.10.2009_08:40

news

 

[Paritec]

Re : enregistrer sous avec date et heure récente

re News le forum,
moi j'avais répondu par rapport à ta macro maintenant si tu veux ce que tu demandes

ActiveWorkbook.SaveAs "C:\Conférence " & Format(Now, " dd.mm.yyyy, hh""h""mm") & ".xls"
bonne journée
Papou 🙂

 

[Paritec]

Re : enregistrer sous avec date et heure récente

Re news le forum
j'avais oublié le du de "conférence du"
alors voilà la modif
ActiveWorkbook.SaveAs "C:\Conférence du" & Format(Now, " dd.mm.yyyy, hh""h""mm") & ".xls"

Par contre là tu enregistres à la racine de C:\ c'est pas plutôt dans le dossier Conférence que tu voulais enregistrer?
a+
papou

 

[news]

Re : enregistrer sous avec date et heure récente

Bonjour à tous du forum,

Re:

j'ai essayé le code ActiveWorkbook.SaveAs "C:\Conférence du" & Format(Now, " dd.mm.yyyy, hh""h""mm") & ".xls"
ou avec ActiveWorkbook.SaveAs "C:\" & strDate & ".xls"

mais il y a un bug avec le message "Microsoft Excel ne peut pas accèder au fichier "C", le nom du fichier ou chemin n'existe pas"

Comme le fichier n'existe pas encore sous le répertoire "C:\" un message d'erreur est affiché.

news

 

[Paritec]

Re : enregistrer sous avec date et heure récente

Bonjour News le Forum,
cela sent le Vista ??? Oui Non ??
a+
Papou

 

[kjin]

Re : enregistrer sous avec date et heure récente

Bonjour le fil, Papou 🙂,

Sub Enregistrer()
Dim strDate As String, Fichier As String, Chemin As String
strDate = Format(Date, "dd-mm-yy") & "_" & Hour(Time) & "h" & Minute(Time)
Fichier = Sheets("Feuil2").Range("E1")
Chemin = "C:\" & Fichier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin 'crée le répertoire s'il n'existe pas
ActiveWorkbook.SaveAs Chemin & "\" & "fichier du_" & strDate & ".xls"
End Sub

A+
kjin

 

[Paritec]

Re : enregistrer sous avec date et heure récente

Bonjour Kjin News le forum
oui Kjin OK mais là on est pas dans un répertoire on enregistre le fichier à la racine de C:\ ???
J'ai eu le même cas avec un ami a qui j'avais fait une macro pour enregistrer et qui n'a jamais fonctionné, il était sous Vista , chez moi sous xp le fichier se cré normalement mais pas sous Vista, tu as une solution?
si oui merci d'avance
Papou