Declare Function TouchFileTimes Lib "imagehlp.dll" (ByVal FileHandle As Long, ByRef pSystemTime As Any) As Long

Private Sub m_ChangerFichierDateHeure(p_NomCheminFichier As String)
 
    Dim FileDate As SYSTEMTIME
    Dim FileName() As String
    Dim strFile As String
    Dim lngHandle As Long
     
    If InStr(1, p_NomFichier, "\" ) <> 0 Then
    ' il faut découper la chaine
        FileName = Split(p_NomFichier, "\" )
        strFile = FileName(UBound(FileName))
    End If
     
    FileDate.wDay = Mid(strFile, 5, 2)
    FileDate.wHour = Mid(strFile, 8, 2) - 2 ' pasque l'api est bizarre elle compte les heures - 2 !
    FileDate.wMilliseconds = 0
    FileDate.wMinute = Mid(strFile, 10, 2)
    FileDate.wMonth = Mid(strFile, 3, 2)
    FileDate.wSecond = Mid(strFile, 12, 2)
    FileDate.wYear = Year(Date)
 
     
    lngHandle = CreateFile(p_NomFichier, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
         
    Call TouchFileTimes(lngHandle, ByVal FileDate)
         
    CloseHandle lngHandle
 
 
End Sub

Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Declare Function TouchFileTimes Lib "imagehlp.dll" (ByVal FileHandle As Long, ByRef pSystemTime As Any) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
 
End Type