tamtam64

On à souvent besoin de vérifier la date de mise a jour d'un fichier et en avertire si le fichier n'est pas à jour, lors de l'extraction.

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
    'verification des donnees
Function Verif(ByVal xlbook As Workbook) As Boolean
        'Déclaration des variables
    Dim Repert1 As Object, Fic1 As Object
    Dim Syst_fic As Object, Fic_acces As Date
    Dim Fic_nom As String, response As Boolean
    
        'On parcourt le dossier
    Set Fic1 = xlbook
    Fic_nom = Fic1.Path & "\" & Fic1.Name
    
        'on récupère la date de création
    Fic_acces = FileDateTime(Fic_nom)
    Fic_acces = Format(Fic_acces, "dd/mm/yyyy")
    If Fic_acces = Date Then
        Verif = True
        Exit Function 'sortie de fonction si vrai
    Else:
        response = MsgBox("Le fichier " & Fic_nom & " a été mal extrait Nous allons interrompre" _
        & "la macro pour aller effectuer une nouvelle extraction")
        End
    End If
        'vidage
    Set Repert1 = Nothing
    Set Fic1 = Nothing
    Set Syst_fic = Nothing
End Function