ajouter heure dans variable

Version imprimable

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:

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

Bonjour,

comme ça ?

Code:

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

11/03/2017, 16h15
Docmarti

Les caracteres suivants sont interdits dans le nom du fichier

\/|?*<>":
11/03/2017, 16h33
joe.levrai
Of course, bien vu, j'ai pas traité le ":" :plusser:

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

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
11/03/2017, 16h46
Marc-L

Salut !

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

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
11/03/2017, 16h54
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 !
11/03/2017, 16h58
Marc-L

Non pas de -1, seul le résultat compte …

Mais n'oublie pas la bombe de Chantilly et le sucre en poudre !
11/03/2017, 17h33
Marc-L

En bonus une version Canada Dry : Format(Now,"yyyy-mm-dd hh" & ChrW(720) & "mm") !