For Each objEvent In colEvents
'On convertit objEvent.TimeWritten en un format plus lisible
'dtmWritten = UTCToDate(objEvent.TimeWritten)
'dtmWritten = DateAdd("h", Val(Q_strbiaslocal) / 60, dtmWritten)
'
'intteststrings = InStr(1, strStringaTester, EC_strStrings(i), vbTextCompare)
StrValeurBiasApplique = Mid(objEvent.TimeWritten, InStr(1, objEvent.TimeWritten, "-", vbTextCompare), Len(objEvent.TimeWritten))
'StrValeurBiasApplique = DateAdd("h", Val(IntPositionSeparateur) / 60, UTCToDate(objEvent.TimeWritten))
If Q_strbiaslocal <> Val(StrValeurBiasApplique) Then
dtmWritten = DateAdd("h", Val(Q_strbiaslocal) / 60, UTCToDate(objEvent.TimeWritten))
Else
dtmWritten = UTCToDate(objEvent.TimeWritten)
End If
If Day(dtmWritten) <> Day(Q_dateDatefintest) And _
((Month(dtmWritten) = Month(dateDateDebut)) Or (Month(dtmWritten) = Month(dateDateFin))) Then
With Sheets(Q_VFeuilExtractData(1))
'Nom du serveur
.Cells(y, VDataCol1(1)) = objEvent.ComputerName
.Cells(y, VDataCol2(1)) = objEvent.Logfile
.Cells(y, VDataCol3(1)) = objEvent.SourceName
'Type d'alerte (Avertissement ou Erreur ou dans certains cas Informations)
Select Case objEvent.Type 'Si le terme est en anglais on le convertie en français
Case "Warning"
.Cells(y, VDataCol4(1)) = "Avertissement"
Case "Error"
.Cells(y, VDataCol4(1)) = "Erreur"
Case Else
.Cells(y, VDataCol4(1)) = objEvent.Type
End Select
'Catégorie
.Cells(y, VDataCol5(1)) = objEvent.Category
'Incrémentation des compteurs
Select Case objEvent.Type 'Si le terme est en anglais on le convertie en français
Case "Warning"
Q_IntTotalAvertissementsPertinents = Q_IntTotalAvertissementsPertinents + 1
Case "Error"
Q_IntTotalErreursPertinentes = Q_IntTotalErreursPertinentes + 1
Case "Avertissement"
Q_IntTotalAvertissementsPertinents = Q_IntTotalAvertissementsPertinents + 1
Case "Erreur"
Q_IntTotalErreursPertinentes = Q_IntTotalErreursPertinentes + 1
Case "Informations"
Q_IntTotalInformationsPertinentes = Q_IntTotalInformationsPertinentes + 1
End Select
'Code d'événement
.Cells(y, VDataCol6(1)) = objEvent.EventCode
'Moment de l'inscription
.Cells(y, VDataCol7(1)) = dtmWritten
'No de l'enregistrement
.Cells(y, VDataCol8(1)) = objEvent.RecordNumber
'Utilisateur
If IsNull(objEvent.User) Then
.Cells(y, VDataCol9(1)) = "-"
Else
.Cells(y, VDataCol9(1)) = objEvent.User
End If
.Cells(y, VDataCol10(1)) = objEvent.InsertionStrings
'Pour extraire éventuellement une information pertinente du message
.Cells(y, VDataCol11(1)) = "-"
'Message d'erreur
.Cells(y, VDataCol15(1)) = objEvent.Message
End With
y = y + 1
End If
Next