[COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] ELEMENT [COLOR=blue]In[/COLOR] DOSSIERS_EXISTANTS.Items
JOUR = Val(Left(ELEMENT, InStr(1, ELEMENT, [I]","[/I]) - 1))
JOUR2 = Val(Left(.ListItems(.ListItems.Count), InStr(1, .ListItems(.ListItems.Count), [I]","[/I]) - 1))
a_TVA_REDUITE = [COLOR=blue]CDbl[/COLOR](Left(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), _
InStrRev(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), SEPARATEUR, -1) - 1))
A_TVA_NORMALE = [COLOR=blue]CDbl[/COLOR](Right(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), _
(Len(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22)) _
- InStrRev(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), SEPARATEUR, -1))))
ADDITION_TTC = ADDITION_TTC + a_TVA_REDUITE + A_TVA_NORMALE
[B][COLOR=blue]Debug[/COLOR].[COLOR=blue]Print[/COLOR] Format(JOUR, [I]"dd mmm yyyy"[/I]), a_TVA_REDUITE, A_TVA_NORMALE, ADDITION_TTC[/B]
[COLOR=blue]If[/COLOR] Format(JOUR, [I]"DD"[/I]) <> Format(JOUR2, [I]"DD"[/I]) [COLOR=blue]Then[/COLOR]
.ListItems.Add , , ELEMENT [COLOR=green]' CES FICHIERS ONT POUR NOM LEUR [COLOR=blue]DATE[/COLOR] NUMERIQUE DE CREATION[/COLOR]
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(JOUR, [I]"DDDD DD "[/I]) [COLOR=green]' TRADUCTION LISIBLE DE LA [COLOR=blue]DATE[/COLOR][/COLOR]
.ListItems(.ListItems.Count).ListSubItems.Add , , ADDITION_TTC
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]Next[/COLOR] ELEMENT