Comment insérer date et heure (datetime) dans une cellule

Bonjour tout le monde,


J'ai une macro excel qui me répertorie les fichiers d'un répertoire avec la taille. Les fichiers sont horodaté, je me suis donc créé une petite fonction de parsing avec regex.

Code:

---

1 2 3 4 5

Dim annee As Integer, mois As Integer, jour As Integer, heure As Integer, minute As Integer 'oFile.Name => correspond au nom du fichier que je passe en premier paramère (par valeur)   parseDate oFile.Name, annee, mois, jour, heure, minute

---

Je récupère donc annee, mois, jour, heure, minute sont passé par référence et je récupère donc les valeurs.

Code:

---

1 2 3 4 5 6 7

Columns("E:E").NumberFormat = "dd/mm/yyyy" With wksDest ... ... .Cells(iRow, 5) = DateSerial(annee, mois, jour) ... End With

---

PS : Je ne mets pas tout le code parce que ce n'est pas intéressant je pense et cela complexifierai la compréhension.



Dans mon feuille excel, j'ai donc les colonnes suivantes :
- le nom du fichier => ok, c'est bon
- la taille => ok
- la date => ok
- le datetime (au format dd/mm/yyyy hh:mm) => ko

Et c'est là que je bloque.

J'ai vu qu'il existait une fonction Date : https://msdn.microsoft.com/en-us/lib...=vs.90%29.aspx
mais il semblerait que ce ne soit que du VB à moins peut être qu'il faille insérer une dll dans l'éditeur (Menu outil => référence)

Comment puis je insérer les valeurs de annee, mois, jour, heure, minute dans une cellule Excel ?
Quel fonction dois je utiliser ?



NB : merci à toi Pierre pour l'insertion d'une date avec DateSerial.
http://www.developpez.net/forums/d28...ba-reutiliser/

Bon j'ai trouvé une solution vraiment pas propre du tout. Je fais une affectation de la date dans la variable puis j'aditionne les heures puis les minutes


Pour ma colonne F :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Columns("F:F").NumberFormat = "dd/mm/yyyy hh:mm"   parseDate oFile.Name, annee, mois, jour, heure, minute dateTime = DateSerial(annee, mois, jour) dateTime = DateAdd("h", heure, dateTime) dateTime = DateAdd("n", minute, dateTime)   Set wksDest = ActiveSheet With wksDest .Cells(iRow, 6).Formula = dateTime End With

---

Je ne mets pas pour le moment en résolu au cas ou il y ait une solution plus propre.

Je me suis aidé des pages suivantes :
http://www.classanytime.com/mis333k/sjdatetime.html => liste l'ensemble des fonctions Date
http://www.globaliconnect.com/excel/index.php => avec quelques exemples en plus

TimeSerial + Date Serial

Code:

---

msgbox dateserial(2016,12,16)+timeserial(16,03,00)

---