Problème de date lors de l'enregistrement.
Bonjour à tous,
J'ai un petit souci lorsque je veux enregistrer mon fichier à une date donnée, à l'aide d'un userform, il s'enregistre à la date du jour...
Voici le code que j'utilise :
Sub CréerEnregistrement()
Application.DisplayAlerts = False
Dossier = Worksheets("Infos").Range("B1").Value
ChDir Dossier
ActiveSheet.Unprotect Password:="****"
Worksheets("Trame").Range("D3").Value = Now()
Worksheets("Infos").Range("D2").Value = Worksheets("Trame").Range("D5").Value
Worksheets("Infos").Range("D2").Replace What:=" ", Replacement:="_"
Worksheets("Trame").Range("B2").Value = Dossier & "Service" & Worksheets("Infos").Range("B2") & "_" & "IGP_Bâtiment" & Worksheets("Trame").Range("D4").Value & "_" & _
Worksheets("Infos").Range("D2").Value & "_" & Mid(Now(), 7, 4) & Mid(Now(), 4, 2) & Left(Now(), 2) & ".xls"
Worksheets("Questions").Delete
ActiveSheet.Protect Password:="****", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:=Worksheets("Trame").Range("B2").Value
msg = MsgBox("L'IGP a été enregistrée sous le nom : " & Worksheets("Trame").Range("B2").Value, vbInformation, "IGP enregistrée !")
End Sub
Je sais que c'est la ligne Worksheets("Trame").Range("D3").Value = Now() qui coince alors j'ai essayé de changer Now() par l'emplacement de la date dans mon fichier mais sans succès.
Je ne sais pas par quoi remplacer Now pour que ça marche.
Je vous joins un fichier test pour plus d'explication.
En attendant, je continue de chercher sur le forum, je vais peut-être trouver quelque chose qui me convient.
Bonne journée à tous.
Bonjour à tous,
J'ai un petit souci lorsque je veux enregistrer mon fichier à une date donnée, à l'aide d'un userform, il s'enregistre à la date du jour...
Voici le code que j'utilise :
Sub CréerEnregistrement()
Application.DisplayAlerts = False
Dossier = Worksheets("Infos").Range("B1").Value
ChDir Dossier
ActiveSheet.Unprotect Password:="****"
Worksheets("Trame").Range("D3").Value = Now()
Worksheets("Infos").Range("D2").Value = Worksheets("Trame").Range("D5").Value
Worksheets("Infos").Range("D2").Replace What:=" ", Replacement:="_"
Worksheets("Trame").Range("B2").Value = Dossier & "Service" & Worksheets("Infos").Range("B2") & "_" & "IGP_Bâtiment" & Worksheets("Trame").Range("D4").Value & "_" & _
Worksheets("Infos").Range("D2").Value & "_" & Mid(Now(), 7, 4) & Mid(Now(), 4, 2) & Left(Now(), 2) & ".xls"
Worksheets("Questions").Delete
ActiveSheet.Protect Password:="****", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:=Worksheets("Trame").Range("B2").Value
msg = MsgBox("L'IGP a été enregistrée sous le nom : " & Worksheets("Trame").Range("B2").Value, vbInformation, "IGP enregistrée !")
End Sub
Je sais que c'est la ligne Worksheets("Trame").Range("D3").Value = Now() qui coince alors j'ai essayé de changer Now() par l'emplacement de la date dans mon fichier mais sans succès.
Je ne sais pas par quoi remplacer Now pour que ça marche.
Je vous joins un fichier test pour plus d'explication.
En attendant, je continue de chercher sur le forum, je vais peut-être trouver quelque chose qui me convient.
Bonne journée à tous.
Pièces jointes
Dernière édition: