Mettre ma variable date au format "ddmmyyyy&q
Résolu
Bonjour,
Voici un extrait de ma macro:
Dim t As String
Dim datecopie As Date
datecopie = inputbox("Entrez une date de comptabilisation des écritures dans Hibgest")
t = 1
Do While Cells(t, 1).Value <> ""
Cells(t, 5).Value = datecopie
t = t + 1
Loop
Je voudrais que le format de la date soit sous cette forme; "DDMMYYYY" par exemple la date 01/09/2007 soit au format 01092007 et en même temps je voudrais aussi pouvoir l'écrire sous cette forme "YYYYMMDD"
Merci par avance.
--
www.vdbassocies.fr | Société d'expertise comptable.
Experts comptables et commissaires aux comptes.
Voici un extrait de ma macro:
Dim t As String
Dim datecopie As Date
datecopie = inputbox("Entrez une date de comptabilisation des écritures dans Hibgest")
t = 1
Do While Cells(t, 1).Value <> ""
Cells(t, 5).Value = datecopie
t = t + 1
Loop
Je voudrais que le format de la date soit sous cette forme; "DDMMYYYY" par exemple la date 01/09/2007 soit au format 01092007 et en même temps je voudrais aussi pouvoir l'écrire sous cette forme "YYYYMMDD"
Merci par avance.
--
www.vdbassocies.fr | Société d'expertise comptable.
Experts comptables et commissaires aux comptes.
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
-
Bonjour,
Oui mais je voudrais le faire de façon automatique dans ma macro, connaissaez vous comment l'intégrer dans mon VB script?
Merci -
Bonjour,
voici le code
Dim t As String
Dim datecopie As Date
datecopie = InputBox("Entrez une date de comptabilisation des écritures dans Hibgest")
t = 1
Do While Cells(t, 1).Value <> ""
Cells(t, 5).Value = datecopie
t = t + 1
Loop
'Columns("E:E").Select
Columns("e"). _
NumberFormat = "ddmmyyyy"
ROBERT René
http://utilsfr.new.fr
