Discussion :

[rossemma]

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

[joe.levrai]

Bonjour,

comme ça ?

Code :

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

1
2
3
4
5
Sub toto()
    Dim StrDate As String
        StrDate = Replace(Now, "/", "-")
 MsgBox StrDate
End Sub

[Docmarti]

Les caracteres suivants sont interdits dans le nom du fichier

\/|?*<>":

[joe.levrai]

Of course, bien vu, j'ai pas traité le ":"

ici, les secondes sont supprimées, le ":" remplacé par un "h" pour heure

Code :

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

1
2
3
4
5
Sub toto()
    Dim StrDate As String
        StrDate = Replace(Replace(VBA.Left(Now, 16), "/", "-"), ":", "h")
MsgBox StrDate
End Sub

A adapter aux souhaits ... j'ai utilisé Left sur 16 caractères par simplicité, mais dans un projet personnel, j'utiliserais plutôt len() - 2

[Marc-L]

Salut !

Ou simplement utiliser   Format(Now, "yyyy-mm-dd hh""h""mm")   …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[joe.levrai]

des -1 pour moi .... deux messages où je répond à côté ! je traite le format jj/mm/aaaa hh:mm alors que c'est pas du tout ce qu'a demandé l'auteur de la discussion !


je pars cueillir des fraises pour la journée ... et j'espère ne pas revenir avec des oranges !