Bonjour,
Alors voila une nouvel question pour la suite de mon petit programme (Topic précédant ICI)
Donc mon problème ici est que je cherche a comparer des date stocker sur une base de donné .CVS a la date actuelle
alors voila mon code pour le moment


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
'----Verification de la citerne
Dim ImaCITERNE
Dim fso, fichier, T,recherche
Dim ContenuFichier, TblLgn, TblCol
Dim CarteG,ADR,code,destinataire,IDs,etancheite
     '---Ouverture du fichier.csv
     Set fso = CreateObject("Scripting.FileSystemObject")
    Set fichier = fso.opentextfile("C:\Users\PRODERGIE\Documents\InTouch Machine Edition v8.1 Projects\Vitogaz\Donné.csv", 1)
    ContenuFichier = fichier.ReadAll
    fichier.Close
    Set fichier = Nothing
    '---Lecture et recherche de l'imat
    recherche = $GetTagValue("imatriculation_citerne",1)
    TblLgn = Split(ContenuFichier,vbNewline)
    For T = 0 To UBound(TblLgn) - 1
        TblCol = Split(TblLgn(T), ";", -1, vbTextCompare) 
        If TblCol(0) = recherche Then
            carteG = TblCol(1)
            ADR = TblCol(2)
            epreuve = Tblecole(3)
            etencheite = Tblecol(4)
            Ids = Tblecol(5)
        End If
    Next
'---Verification de la citerne
 
If  Ids<> "2" Then
'--- Comparaison de la date  pour la CarteG ADR epreuve et etencheite si ID =2
Else
    MsgBox("L'Imatriclation de votre citerne est incorecte ou abstante de notre base de donné")
End If
Voila le fichier contenant les infos

Donné.txt


Merci d'avance