Macro pour ajouter l'heure dans le nom du classeur

Bonjour,

J'ai créé un formulaire de demande de transport de marchandise. Le but est que les gens cliquent sur un bouton et le mail part directement avec la pièce jointe vers le bon destinataire tout en s'enregistrant dans un dossier.

Actuellement, le formulaire s'enregistre avec la date du jour, ce qui est déjà pas mal. Le problème est que plusieurs formulaires sont susceptibles d'être envoyés le même jour, ce qui complique les choses car forcément, ils s'écrasent les uns les autres...

Vous me direz, les gens peuvent renommer et déplacer leurs fichiers au fur et à mesure... Oui, mais vont-ils le faire ?

Ce serait donc génial que l'heure s'ajoute dans le nom du fichier, ainsi plus de problème...

Merci pour vos éventuelles réponses !

Essaie avec la fonction Now. Pour les formats il y a la focntion Format.

Code:

---

1 2	dim heure as String heure = Format(Now, "##:##")

---

quoique je croie que le format avec ":" ne fonctionnera pas dans un nom de fichier.

l'aide fournit l'info sur le formatage des nombres.

Merci

Voici ce que cela donne :
nom0702201140582

140582 correspondrait à quoi ?

Bonjour,
Le format est à modifier

Code:

---

1 2 3

Dim Nom As String Nom = Format(Now, "yymmdd-hh:mm")

---

Bonsoir, Bonsoir le Forum

Je pense que tu as obtenu la date entière.

Essaie

Code:

---

Format(Now, "hh:mm")

---

Voici ma macro complète :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1()   ActiveWorkbook.SaveAs Filename:="U:\transport" & Format(DateAdd("D", 0, Date), "DDMMYYYY") & ".xls" ActiveWorkbook.SendMail Recipients:=Array("raths@foyer-handicap.ch"), Subject:="demande de livraison" ActiveWorkbook.Close ' ' Macro1 Macro '   ' End Sub

---

J'ai essayé de rajouter l'heure mais cela ne fonctionne pas car cela me dit qu'un fichier existe déjà... Est-ce que cela veut dire que la commande format "now" ajoute uniquement l'heure et non les minutes ?

Super, ça marche mais sans les ":" !

Merci beaucoup et cordialement,

Emmanuelle

Bonsoir Emmanuelle,
La fonction FORMAT() de VBA fonctionne comme la fonction TEXTE d'Excel.

Code:

---

=TEXTE(MAINTENANT();"aammjj-hh:mm")

---

Donnera "110207-11:50" (Pour le 7 février 2011 à 11h50)
Avec la version Excel anglaise

Code:

---

TEXT(NOW(),"yymmdd-hh:mm")

---

Et si les ':' ne fonctionne pas , évidemment c'est parce-que l'on ne peut pas sauver un fichier avec ce caractère.

Citation:

---

Envoyé par EmmanuelleFFH

Super, ça marche mais sans les ":" !

Merci beaucoup et cordialement,

Emmanuelle

---

C'est à peu de choses près ce que je disait...

oublie pas de cliquer sur :resolu:

en passant, il y a un bouton # pour mettre les balises code autour des listing. Ça aide à la lecture.

bonne soirée