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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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/