Mettre ma variable date au format "ddmmyyyy&q
Résolu
bigboss60
Messages postés
42
Date d'inscription
Statut
Membre
Dernière intervention
-
néné -
néné -
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.
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.
A voir également:
- Mettre ma variable date au format "ddmmyyyy&q
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
- Format doc - Guide
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
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
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