Probleme d'incompatibilité de type

Version imprimable

Boujour pouvez vous m'aidez a regler ce soucis ?

Code:

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:

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

20/03/2013, 15h23
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:

ActiveWorkbook.ActiveSheet.Range("A" & j)
20/03/2013, 15h26
nioko

Oui bien sur

"P0002181"
20/03/2013, 15h38
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 :)
20/03/2013, 15h52
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 ...
20/03/2013, 15h57
Theze
Bonjour,

Avec :
Code:

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:

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é.

Voici le code que j'ai utilisé

Code:

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

Re,

Voici un petit exemple, à adapter à tes besoins, pour récupérer les différentes partie de la chaîne que tu nous a donné :

Code:

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
 
Sub IP()
 
    Dim AdresseIP As String
    Dim MaDate As Date
    Dim Partie1 As String
    Dim PartieDate As Date
    Dim Partie3 As String
 
    AdresseIP = "P0002181;18/12/12 15:45:05;Type du SE:Windows XP"
 
    'ici, recherche le 1er slash dans la chaîne et en extrait la date
    MaDate = Mid(AdresseIP, InStr(AdresseIP, "/") - 2, 17)
 
    'ici, recherche le 1er point-virgule dans la chaîne et en extrait aussi la date
    MaDate = Mid(AdresseIP, InStr(AdresseIP, ";") + 1, 17)
 
    'ici, utilise la fonction "Split()" avec comme séparateur le point-virgule
    'pour en extraire la date puisqu'elle est bornée par deux points-virgules
    MaDate = Split(AdresseIP, ";")(1)
 
    MsgBox MaDate & vbCrLf & "La variable est bien de type " & TypeName(MaDate)
 
    'ici, on récupère les trois parties de la chaîne
    Partie1 = Split(AdresseIP, ";")(0)
    PartieDate = Split(AdresseIP, ";")(1)
    Partie3 = Split(AdresseIP, ";")(2)
 
    MsgBox "Partie 1 de la chaîne : " & Partie1 & vbCrLf & _
           "Partie 2 de la chaîne (Date) : " & PartieDate & vbCrLf & _
           "Partie 3 de la chaîne : " & Partie3
 
End Sub

Hervé.