Bonjours,
Je programme habituellement en vbscript sous asp. Mais pour mon présent projet j'ai choisi Vb6 pour cause de rapidité(Programme qui scrute des site web d'annonce 24h/24).

Donc jai transfere mon code asp sous vb6.
Tout allais bien jusqu'a ce que je tombe sous un objet(type) que je veux passer en paramettre dans une procedure.

Lors de la compilation il me donne l'erreur suivante:

Erreur de compilation:
Type défini par l'utilisateur non défini


Voici ma procedure :
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
'********************************************************************************************
'   Procedure qui update l'annonce avec les nouveau élement
'********************************************************************************************
Sub UpdateAnnonceKijiji(objAnnonce As AnnonceAuto)
    Dim objConn As ADODB.Connection
    Dim strSqlUpdateAnnonceKijiji As String
 
    strSqlUpdateAnnonceKijiji = "UPDATE dbo.tblAnnonce SET strTitreAnnonce = '" + FixQuote(objAnnonce.strTitre) + "', strDetailAnnonce = '" + FixQuote(Trim(objAnnonce.strDetail)) + "', bActiveAnnonce = 1 WHERE ((FK_Site = 2) OR (FK_Site = 3)) AND (iNumberAnnonce = " + CStr(objAnnonce.iNumber) + ")"
    Response "strSqlUpdateAnnonceKijiji |" + strSqlUpdateAnnonceKijiji + "|"
 
    'cree la connection
    Set objConn = CreateObject("ADODB.Connection")
    objConn.ConnectionString = strConn
    objConn.Open
 
    objConn.Execute strSqlUpdateAnnonceKijiji
 
    'fermer la connection
    objConn.Close
    Set objConn = Nothing
 
End Sub
Voici ma procedure qui appele ce procedure



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
Private Sub Command1_Click()
    Dim objAds As Module1.AnnonceAuto
    Dim astrListeAnnonceVide() As Long
    Dim iBoucleRempliANnonce As Long
    Const ciNbDetailAnnonceAlaFois  As Integer = 11
 
    'trouve les X annonce vide
    astrListeAnnonceVide = astrRempliListeAnnonceVide(ciNbDetailAnnonceAlaFois)
 
    'boucle de remplissage d'annonce
    For iBoucleRempliANnonce = 0 To UBound(astrListeAnnonceVide)
            'rechercher les info de l'annonce sur la page web
        Set objAds = RempliKijiji(astrListeAnnonceVide(iBoucleRempliANnonce))
        'verifier si pas effacer
        If objAds.bDeleted = 0 Then
            UpdateAnnonceKijiji objAds
        End If
        ResponseHr
    'Fin de boucle de remplissage d'annonce
    Next
 
 
    Response.write "<hr><hr><hr><h1>ON RECOMMENCE</h1><hr><hr><hr>"
 
    'metre le timer a on
    Timer1.Enabled = True
 
End Sub

et pour fini voici ma class

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
'********************************************************************************************
'   CLASSE ANNONCE AUTO
'********************************************************************************************
Type AnnonceAuto
     bAuto As Boolean
     bVendu As Boolean
     bDeleted As Boolean
     iNumber    As Long
     strTitre As String
     strDetail As String
     curPrice As Currency
     strMake As String
     strModel As String
     iAnnee As Integer
     strVille As String
     iKm As Long
     iNbDoor As Integer
     iNbCyl As Integer
     bAutomatique As Boolean
     bAc As Boolean
     iPhone1 As Long
     iPhone2 As Long
     strUrl As String
     strImage As String
End Type

Je veux aussi dire que tout est fait dans la page de code dur form1