Discussion :

[nioko]

Boujour pouvez vous m'aidez a regler ce soucis ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   ThisWorkbook.Sheets("Feuil2").Range("A" & DerLig) = CDate(Mid(ActiveWorkbook.ActiveSheet.Range("A" & j), 10, 17))
        ThisWorkbook.Sheets("Feuil2").Range("B" & DerLig) = Mid(ActiveWorkbook.ActiveSheet.Range("A" & j), 179, 11)

Erreur 13 : Imcompatibilité de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Fichier_traite As String, j As Long
Dim Chemin As String, DerLig_Fichier_traite As Integer, DerLig As Integer
Dim Premiere_Ligne As Integer, Derniere_Ligne As Integer, i As Integer, DerLig_IP As Integer

[Jean-Philippe André]

Salut,

s'il est possible d'avoir les valeurs de tes variables au moment du plantage, ca devrait surement pouvoir nous aider à te donner les raisons de l'erreur, et par conséquent comment l'éviter/la corriger

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.ActiveSheet.Range("A" & j)

[nioko]

Oui bien sur

"P0002181"

[Jean-Philippe André]

D'accord, donc on a bien un problème.
Comment souhaites-tu interpréter la valeur "P0002181" sous forme de date si elle ne contient pas les 10 caractères dont tu fais notion dans ton code ?

Un test de blindage (avec une valeur par défaut par exemple) serait peut-être pertinent ici

[nioko]

Enfaite le resultat donne sa :

"P0002181;18/12/12 15:45:05;Type du SE:Windows XP"

Le probleme c'est que le code est vraiment mauvais
et je n'arrive pas a regler mon probleme ...

[Theze]

Bonjour,

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Mid(ActiveWorkbook.ActiveSheet.Range("A" & j), 10, 17)

ta valeur doit contenir au moins 27 caractères car tu extrait 17 caractères à partir du 10 ème donc avec "P0002181" tu as forcément une incompatibilité de type car Mid ne retourne pas de date valide (il ne retourne rien en fait) mais surtout, une date qui fait 17 caractères je doute que la fonction de convertion CDate puisse retourner une date valide.
Un petit exemple qui ne produit pas d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    Dim Texte As String
 
    Texte = "abcdefghi20/03/2013abcdefghi"
 
    MsgBox CDate(Mid(Texte, 10, 10))
 
End Sub

Hervé.

[nioko]

Voici le code que j'ai utilisé

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Option Explicit
 
Sub En_revue()
 
Dim Fichier_traite As String, j As Integer
Dim Chemin As String, DerLig_Fichier_traite As Integer, DerLig As Integer
Dim Premiere_Ligne As Integer, Derniere_Ligne As Integer, i As Integer, DerLig_IP As Integer
 
Application.ScreenUpdating = False
 
ThisWorkbook.Sheets("Feuil1").Range("A2:F1048576").ClearContents
ThisWorkbook.Sheets("Feuil2").Range("A1:C1048576").ClearContents
 
Chemin = ThisWorkbook.Path & "\"
Fichier_traite = Dir(Chemin & "*.*")
 
Do While Fichier_traite <> ""
        If Fichier_traite = ThisWorkbook.Name Then GoTo Etiquette
 
        Workbooks.Open Chemin & Fichier_traite
        DerLig_Fichier_traite = ActiveWorkbook.ActiveSheet.Range("A1048576").End(xlUp).Row
        For j = 1 To DerLig_Fichier_traite
        If ThisWorkbook.Sheets("Feuil2").Range("A1048576").End(xlUp) = "" Then
            DerLig = 1
        Else
            DerLig = ThisWorkbook.Sheets("Feuil2").Range("A1048576").End(xlUp).Row + 1
        End If
 
        ThisWorkbook.Sheets("Feuil2").Range("A" & DerLig) = CDate(Mid(ActiveWorkbook.ActiveSheet.Range("A" & j), 10, 17))
        ThisWorkbook.Sheets("Feuil2").Range("B" & DerLig) = Mid(ActiveWorkbook.ActiveSheet.Range("A" & j), 181, 11)
        ThisWorkbook.Sheets("Feuil2").Range("C" & DerLig) = Fichier_traite
        Next
        Workbooks(Fichier_traite).Close False
Etiquette:
Fichier_traite = Dir
 
Loop
 
Sheets("Feuil2").Activate
Range("A1:C" & Range("A1048576").End(xlUp).Row).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo, Key2:=Range("A1"), Order1:=xlAscending, Header:=xlNo
 
Range("B1").Activate
 
Retour:
 
Premiere_Ligne = ActiveCell.Row
 
Do Until ActiveCell.Offset(1, 0) <> ActiveCell
    If ActiveCell = "" Then GoTo Etiquette_bis
    ActiveCell.Offset(1, 0).Activate
Loop
 
Derniere_Ligne = ActiveCell.Row
 
    With Sheets("Feuil1")
        DerLig_IP = .Range("A1048576").End(xlUp).Row + 1
 
        .Range("A" & DerLig_IP) = Range("B" & Premiere_Ligne)
        .Range("B" & DerLig_IP) = Derniere_Ligne - Premiere_Ligne + 1
        .Range("C" & DerLig_IP) = Range("A" & Premiere_Ligne)
        .Range("D" & DerLig_IP) = Range("C" & Premiere_Ligne)
 
        If .Range("B" & DerLig_IP) > 1 Then
            .Range("E" & DerLig_IP) = Range("A" & Derniere_Ligne)
            .Range("F" & DerLig_IP) = Range("C" & Derniere_Ligne)
        End If
 
    End With
 
 
ActiveCell.Offset(1, 0).Activate
 
GoTo Retour
 
Etiquette_bis:
 
Cells.ClearContents
 
Sheets("Feuil1").Activate
 
End Sub

Ce que je cherche a faire c'est recuperer l'adresse IP et la date de chaque ligne de chaque fichier
et le metre dans un fichier de synthese a part afin de determiner la frequence d'apparition de chaque adresse IP