Discussion :

[gabo63]

je suis nouveau sur le site et novice
pourriez vous m'aider?

je souhaiterais enregistrer un classeur excel en lui donnant comme nom :Maths,et le contenu d'une cellule sachant que ce contenu est une date qui n'est pas celle du jour de l'enregistrement mais une date de mon choix intégrée à la cellule grâce à: mDF XLcalendar (complément excel).
j'ai essayé avec ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Enreg() 'enregistrement sous nom+date+heure
Dim Path As String, valeur As String
ChDir "C:\Users\stephane\Documents\essai enreg date"
Path = ActiveWorkbook.Path & "\"
valeur = "Maths" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"
ThisWorkbook.SaveAs Path & valeur
End Sub

la date est entrée dans la cellule ("B2")

mais ça ne marche pas,Maths apparaît bien mais j'ai la date et l'heure du jour
pourriez vous m'aider?

merci par avance

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Enreg()
Dim sNomFichier As String
Dim sDossier As String, sDate As String
Dim FSO As Object
 
    sDossier = "C:\Users\stephane\Documents\essai enreg date"
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(sDossier) Then FSO.CreateFolder (sDossier)
    Set FSO = Nothing
 
    sDate = Feuil1.Range("B2")
 
    sNomFichier = "Maths_" & Format(sDate, "yyyymmdd") & "_" & Format(sDate, "hhmmss") & ".xls"
    ThisWorkbook.SaveAs sDossier & "\" & sNomFichier
End Sub

[gabo63]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Enreg()
Dim sNomFichier As String
Dim sDossier As String, sDate As String
Dim FSO As Object
 
    sDossier = "C:\Users\stephane\Documents\essai enreg date"
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(sDossier) Then FSO.CreateFolder (sDossier)
    Set FSO = Nothing
 
    sDate = Feuil1.Range("B2")
 
    sNomFichier = "Maths_" & Format(sDate, "yyyymmdd") & "_" & Format(sDate, "hhmmss") & ".xls"
    ThisWorkbook.SaveAs sDossier & "\" & sNomFichier
End Sub

[Gado2600]

Bonjour,

Tu as la date et l'heure du jour actuellement et, c'est plus que tout à fait normal...
La fonction Date retourne la date actuelle de ton ordinateur (la touche F1 sur cette fonction te l'aurait indiqué). De même pour la fonction Time, je crois.
Ces deux fonctions auraient même pu être combinées en une seule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")

=

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Now, "yyyymmdd_hhmmss")

Si tu souhaites avoir la date et l'heure de ta cellule, remplace Date et Time par la cellule en question, souvent du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

thisworkbook.worksheets("Nom_de_longlet").Range("A1")

Cordialement,