Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Enregistrer sous un nom et l'obtenir comme nom de fichier

Enregistrer sous un nom et l'obtenir comme nom de fichier

8 réponses
Avatar
bismut
Bonjour,

je veux pourvoir prendre la date courante : exemple dans
le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables pour que
le programme enregistre sous un nom de fichier comme suit :
frm_200312301053.xls

Je declare mes variables comme suit, mais il me reste a
modifier le format de l'annee ainsi qu'enregistrer sous le
nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
Bonsoir,

Est-ce que cette macro convient ?

Sub Enregistre()
a = Year(Now)
m = Month(Now)
j = Day(Now)
h = Hour(Now)
mi = Minute(Now)
nom = "frm_" & a & m & j & h & mi & ".xls"
ActiveWorkbook.SaveAs Filename:=nom
End Sub

Serge

"bismut" a écrit dans le message de
news: 403e01c3ceed$925d87c0$
Bonjour,

je veux pourvoir prendre la date courante : exemple dans
le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables pour que
le programme enregistre sous un nom de fichier comme suit :
frm_200312301053.xls

Je declare mes variables comme suit, mais il me reste a
modifier le format de l'annee ainsi qu'enregistrer sous le
nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci


Avatar
Jacky
En complément de Serge avec le chemin complet:

chemin = "c:" 'A ADAPTER
chemin = chemin & "frm_" & myYear & myMonth & myDay & myHour & myMinute &
".xls"
ActiveWorkbook.SaveAs FileName:=chemin

Salutations
JJ

"bismut" a écrit dans le message news:
403e01c3ceed$925d87c0$
Bonjour,

je veux pourvoir prendre la date courante : exemple dans
le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables pour que
le programme enregistre sous un nom de fichier comme suit :
frm_200312301053.xls

Je declare mes variables comme suit, mais il me reste a
modifier le format de l'annee ainsi qu'enregistrer sous le
nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci


Avatar
garnote
Tipeu plus court :

Sub Enregistre_Classeur_Actif_Quelque_Part()
Dossier = "D:Mes documents"
Nom = Dossier & "frm_" & Year(Now) & Month(Now) & _
Day(Now) & Hour(Now) & Minute(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:=Nom
End Sub

Serge

"Jacky" a écrit dans le message de news:

En complément de Serge avec le chemin complet:

chemin = "c:" 'A ADAPTER
chemin = chemin & "frm_" & myYear & myMonth & myDay & myHour & myMinute &
".xls"
ActiveWorkbook.SaveAs FileName:=chemin

Salutations
JJ

"bismut" a écrit dans le message
news:

403e01c3ceed$925d87c0$
Bonjour,

je veux pourvoir prendre la date courante : exemple dans
le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables pour que
le programme enregistre sous un nom de fichier comme suit :
frm_200312301053.xls

Je declare mes variables comme suit, mais il me reste a
modifier le format de l'annee ainsi qu'enregistrer sous le
nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci






Avatar
Jacky
A peine Serge, à peine ;o)

JJ

"garnote" a écrit dans le message news:
fliIb.24378$
Tipeu plus court :

Sub Enregistre_Classeur_Actif_Quelque_Part()
Dossier = "D:Mes documents"
Nom = Dossier & "frm_" & Year(Now) & Month(Now) & _
Day(Now) & Hour(Now) & Minute(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:=Nom
End Sub

Serge

"Jacky" a écrit dans le message de news:

En complément de Serge avec le chemin complet:

chemin = "c:" 'A ADAPTER
chemin = chemin & "frm_" & myYear & myMonth & myDay & myHour & myMinute
&


".xls"
ActiveWorkbook.SaveAs FileName:=chemin

Salutations
JJ

"bismut" a écrit dans le message
news:

403e01c3ceed$925d87c0$
Bonjour,

je veux pourvoir prendre la date courante : exemple dans
le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables pour que
le programme enregistre sous un nom de fichier comme suit :
frm_200312301053.xls

Je declare mes variables comme suit, mais il me reste a
modifier le format de l'annee ainsi qu'enregistrer sous le
nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci










Avatar
Bismut
Merci beaucoup, mais est-ce que je peux extraire seulement
les deux chiffres de l'annee et aussi obtenir les minutes
avec deux caracteres : exemple 05 au lieu de 5. Dans
excel il est tres simple de changer le format de date,
mais dans VBA c'est une autre histoire.

Merci!


-----Message d'origine-----
A peine Serge, à peine ;o)

JJ

"garnote" a écrit dans le message news:
fliIb.24378$
Tipeu plus court :

Sub Enregistre_Classeur_Actif_Quelque_Part()
Dossier = "D:Mes documents"
Nom = Dossier & "frm_" & Year(Now) & Month(Now) & _
Day(Now) & Hour(Now) & Minute(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:=Nom
End Sub

Serge

"Jacky" a écrit dans le
message de news:



En complément de Serge avec le chemin complet:

chemin = "c:" 'A ADAPTER
chemin = chemin & "frm_" & myYear & myMonth & myDay &
myHour & myMinute



&
".xls"
ActiveWorkbook.SaveAs FileName:=chemin

Salutations
JJ

"bismut" a
écrit dans le message



news:
403e01c3ceed$925d87c0$
Bonjour,

je veux pourvoir prendre la date courante : exemple
dans




le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables
pour que




le programme enregistre sous un nom de fichier
comme suit :




frm_200312301053.xls

Je declare mes variables comme suit, mais il me
reste a




modifier le format de l'annee ainsi qu'enregistrer
sous le




nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci









.






Avatar
garnote
Directement, je ne sais pas mais avec une entourloupette
ça semble fonctionner :

Sub Conversion()
a = Year(Now)
m = Minute(Now)
ac = Right(a, 2)
If Len(m) < 2 Then m = 0 & m
MsgBox ac & " " & m
End Sub

Serge

"Bismut" a écrit dans le message de
news: 023901c3cf0f$a2af91a0$
Merci beaucoup, mais est-ce que je peux extraire seulement
les deux chiffres de l'annee et aussi obtenir les minutes
avec deux caracteres : exemple 05 au lieu de 5. Dans
excel il est tres simple de changer le format de date,
mais dans VBA c'est une autre histoire.

Merci!


-----Message d'origine-----
A peine Serge, à peine ;o)

JJ

"garnote" a écrit dans le message news:
fliIb.24378$
Tipeu plus court :

Sub Enregistre_Classeur_Actif_Quelque_Part()
Dossier = "D:Mes documents"
Nom = Dossier & "frm_" & Year(Now) & Month(Now) & _
Day(Now) & Hour(Now) & Minute(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:=Nom
End Sub

Serge

"Jacky" a écrit dans le
message de news:



En complément de Serge avec le chemin complet:

chemin = "c:" 'A ADAPTER
chemin = chemin & "frm_" & myYear & myMonth & myDay &
myHour & myMinute



&
".xls"
ActiveWorkbook.SaveAs FileName:=chemin

Salutations
JJ

"bismut" a
écrit dans le message



news:
403e01c3ceed$925d87c0$
Bonjour,

je veux pourvoir prendre la date courante : exemple
dans




le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables
pour que




le programme enregistre sous un nom de fichier
comme suit :




frm_200312301053.xls

Je declare mes variables comme suit, mais il me
reste a




modifier le format de l'annee ainsi qu'enregistrer
sous le




nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci









.






Avatar
FxM
Bonsoir,

et comme çà ? (à part ne pas passer la barrière des langues ;o) )

Sub test()
Dossier = "D:Mes documents"
Nom = Dossier & "frm_" & Format(Now, "yyyymmddhhmmss") & ".xls"
ActiveWorkbook.SaveAs Filename:=Nom
End Sub

@+
FxM





garnote wrote:
Tipeu plus court :

Sub Enregistre_Classeur_Actif_Quelque_Part()
Dossier = "D:Mes documents"
Nom = Dossier & "frm_" & Year(Now) & Month(Now) & _
Day(Now) & Hour(Now) & Minute(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:=Nom
End Sub

Serge

"Jacky" a écrit dans le message de news:


En complément de Serge avec le chemin complet:

chemin = "c:" 'A ADAPTER
chemin = chemin & "frm_" & myYear & myMonth & myDay & myHour & myMinute &
".xls"
ActiveWorkbook.SaveAs FileName:=chemin

Salutations
JJ

"bismut" a écrit dans le message


news:

403e01c3ceed$925d87c0$

Bonjour,

je veux pourvoir prendre la date courante : exemple dans
le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables pour que
le programme enregistre sous un nom de fichier comme suit :
frm_200312301053.xls

Je declare mes variables comme suit, mais il me reste a
modifier le format de l'annee ainsi qu'enregistrer sous le
nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci










Avatar
michdenis
Bonjour ,

Il y a aussi ceci :

'---------------------
Sub Conversion()
Dim A As String, M As String
A = Format(Year(Now), "YY")
M = Format(Minute(Now), "MM")
MsgBox A & " " & M
End Sub
'---------------------

Salutations!


"garnote" a écrit dans le message de news:Q9lIb.24392$
Directement, je ne sais pas mais avec une entourloupette
ça semble fonctionner :

Sub Conversion()
a = Year(Now)
m = Minute(Now)
ac = Right(a, 2)
If Len(m) < 2 Then m = 0 & m
MsgBox ac & " " & m
End Sub

Serge

"Bismut" a écrit dans le message de
news: 023901c3cf0f$a2af91a0$
Merci beaucoup, mais est-ce que je peux extraire seulement
les deux chiffres de l'annee et aussi obtenir les minutes
avec deux caracteres : exemple 05 au lieu de 5. Dans
excel il est tres simple de changer le format de date,
mais dans VBA c'est une autre histoire.

Merci!


-----Message d'origine-----
A peine Serge, à peine ;o)

JJ

"garnote" a écrit dans le message news:
fliIb.24378$
Tipeu plus court :

Sub Enregistre_Classeur_Actif_Quelque_Part()
Dossier = "D:Mes documents"
Nom = Dossier & "frm_" & Year(Now) & Month(Now) & _
Day(Now) & Hour(Now) & Minute(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:=Nom
End Sub

Serge

"Jacky" a écrit dans le
message de news:



En complément de Serge avec le chemin complet:

chemin = "c:" 'A ADAPTER
chemin = chemin & "frm_" & myYear & myMonth & myDay &
myHour & myMinute



&
".xls"
ActiveWorkbook.SaveAs FileName:=chemin

Salutations
JJ

"bismut" a
écrit dans le message



news:
403e01c3ceed$925d87c0$
Bonjour,

je veux pourvoir prendre la date courante : exemple
dans




le format YYMMDDHHmm sans aucun separateur.

Ensuite, je veux pouvoir concatener ces variables
pour que




le programme enregistre sous un nom de fichier
comme suit :




frm_200312301053.xls

Je declare mes variables comme suit, mais il me
reste a




modifier le format de l'annee ainsi qu'enregistrer
sous le




nom de fichier genere grace a la date courante :

myYear = Year(Now)
myMonth = Month(Now)
myDay = Day(Now)
myHour = Hour(Now)
myMinute = Minute(Now)

Merci









.