Macro pour ajouter l'heure dans le nom du classeur

**EmmanuelleFFH** · 07/02/2011, 16h29

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 !

**zazaraign�e** · 07/02/2011, 16h38

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

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

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.

**EmmanuelleFFH** · 07/02/2011, 16h45

Merci

**EmmanuelleFFH** · 07/02/2011, 16h50

Voici ce que cela donne :
nom0702201140582

140582 correspondrait � quoi ?

**Philippe Tulliez** · 07/02/2011, 17h00

Bonjour,
Le format est � modifier

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

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

**MarcelG** · 07/02/2011, 17h02

Bonsoir, Bonsoir le Forum

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

Essaie

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

Format(Now, "hh:mm")

**EmmanuelleFFH** · 07/02/2011, 17h02

Voici ma macro compl�te :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

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("[email protected]"), 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 ?

**EmmanuelleFFH** · 07/02/2011, 17h08

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

Merci beaucoup et cordialement,

Emmanuelle

**Philippe Tulliez** · 07/02/2011, 18h05

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

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

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

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

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

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.

**zazaraign�e** · 07/02/2011, 21h25

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

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

bonne soir�e

Macro pour ajouter l'heure dans le nom du classeur [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager