Bonjour,

dans le code suivant, je sauve le fichier en y ajoutant la date dans le nom.
Je voudrais également ajouter l'heure.

J'essayer format(now(), "yyyy-mm-dd hh:mm") mais cela fonctionne pas


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
Sub CopyWorkbook()
 
    Dim fullname As String, chemin As String, user As String
    Dim pos As Integer
    Dim folder As Variant, mydate As Variant
 
    mydate = Format(Now(), "yyyy-mm-dd") 'format de la date
    user = Environ("username")
    chemin = ThisWorkbook.Path & Application.PathSeparator
    folder = "BackupFile\"
    fullname = ActiveWorkbook.Name
    pos = InStr(fullname, ".xlsm")
 
    ActiveWorkbook.SaveCopyAs (chemin & folder & Left(fullname, pos - 1) & "_COPY_" & user & "_" & mydate & ".xlsm")
    'copie du fichier avec ajout du login utilisateur et de la date
 
End Sub