Enregistrer sous avec variable de date
Hello le forum, je cherche désespéramment à utiliser une variable de date pour enregistrer un classeur mais je n'y arrive visiblement pas.
Dim datedu_jouR As String
datedu_jouR = Range("ig16")
Fichier = "blabla " & datedu_jouR
chemin = "P:\essai99"
ActiveWorkbook.SaveAs Filename:=chemin & "\" & Fichier & ".xlsm"En cellule ig16 la date est au format habituel (19/10/2018), alors comme on ne peux pas enregistrer un fichier avec les "/", j'ai ajouter avant ce code :
Range("IG16").Select
Selection.NumberFormat = "[$-40C]d-mmm-yyyy;@"Mais toujours rien...
Une idée ?
Bonjour JdViRus, bonjour le forum,
Essaie comme ça :
Dim datedu_jouR As String
datedu_jouR = Format(Range("ig16"), "[$-40C]d-mmm-yyyy;@")
Fichier = "blabla " & datedu_jouR
chemin = "P:\essai99"
ActiveWorkbook.SaveAs Filename:=chemin & "\" & Fichier & ".xlsm"Re Jd,
Salut ThauThème,
Bonjour le Forum !
Si on veux avoir la date du jour, pas besoin de faire référence à une cellule !
Il suffit d'utiliser le Date ;D
En reprenant le code écrit pas ThauThème :
Dim datedu_jouR As String
datedu_jouR = Format(Date, "[$-40C]d-mmm-yyyy;@")
Fichier = "blabla " & datedu_jouR
chemin = "P:\essai99"
ActiveWorkbook.SaveAs Filename:=chemin & "\" & Fichier & ".xlsm"Après pour ma part, je met ma date du jour au format :
Dim DateduJour as String
DateduJour = Day(Date) & "-" & Month(Date) & "-" & Year(Date)Solution bricolage xD
Merci beaucoup ! J'étais pas loin c'est encourageant !
Re Jd,
Salut ThauThème,
Bonjour le Forum !
Si on veux avoir la date du jour, pas besoin de faire référence à une cellule !
Il suffit d'utiliser le
Date;DEn reprenant le code écrit pas ThauThème :
Dim datedu_jouR As String datedu_jouR = Format(Date, "[$-40C]d-mmm-yyyy;@") Fichier = "blabla " & datedu_jouR chemin = "P:\essai99" ActiveWorkbook.SaveAs Filename:=chemin & "\" & Fichier & ".xlsm"Après pour ma part, je met ma date du jour au format :
Dim DateduJour as String DateduJour = Day(Date) & "-" & Month(Date) & "-" & Year(Date)Solution bricolage xD
NOn, je ne veux pas le jour d'aujourd'hui mais la date d'une cellule en rapport avec le fichier sur lequel je travaille.
Bonjour
si ton format de range est bon alors
datedu_jouR = Range("ig16").TextA+
Maurice