Discussion :

[jedebuteenvb]

Bonjour à tous,

J'ai un gros souci avec une appli Excel, j'ai une erreur de type mismatch, impossible de savoir pourquoi.

Pouvez-vous m'aider svp.

Merci par avance !

Voivi mon code. L'erreur est sur la ligne ConfigList.Init configFilePath.
Il s'agit d'un Run-time error '13' type mismatch

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
82
83
84
85
Option Explicit
 
Private configFilePath As String
Private viewFilePath As String 
 
Dim TibViewList As TibcoViewListClass
Dim ConfigList As ConfigListClass
Dim GlobalConfig As ConfigClass
Public ParamCls As ParamClass
Public LogCls As LogClass 
 
Dim IsInit As Boolean
Dim DispTimer As String
Dim DispAuto As Boolean 
 
Public Sub InitPathes()
    ' configFilePath = "C:\Homeware\Domino\ExcelLinkFiles\config.xml"
    configFilePath = "C:\HOMEWARE\Domino\ExcelLinkFiles\config.xml"
    viewFilePath = "C:\Homeware\Domino\ExcelLinkFiles\view.xml"
End Sub 
 
Public Sub InitClass()
    If ParamCls Is Nothing Then Set ParamCls = New ParamClass
    If LogCls Is Nothing Then Set LogCls = New LogClass
    InitPathes
End Sub 
 
Sub TibStart()
    Dim vbAnswer As Integer
    vbAnswer = MsgBox("Start listening ?", vbYesNo)
    If vbAnswer <> vbNo Then
 
        InitClass
        Set ConfigList = New ConfigListClass
        'ConfigList.Init configFilePath
        ConfigList.Init configFilePath ' <== Erreur ici
        Set GlobalConfig = ConfigList.CurrentConfig
        LogCls.Filename = GlobalConfig.LogFileName
        LogCls.IsActive = GlobalConfig.LogIsActive
        DispTimer = GlobalConfig.DisplayTimer
        DispAuto = GlobalConfig.AutoDisplay
        LogCls.Add "ACTION", "START <ReqInit = " & True & ", AutoDisplay = " & DispAuto & ", TimerDisplay = " & DispTimer & ">"
        Set TibViewList = New TibcoViewListClass
        TibViewList.Init GlobalConfig, ParamCls, LogCls, GlobalConfig.TibcoFilePath, viewFilePath
        If TibViewList.ViewCount > 0 And TibViewList.TibcoCount > 0 Then
            TibViewList.Clean
            TibViewList.Connect
            IsInit = True
            TibDisplay
            TibUpdateMenu (IsInit)
        Else
            MsgBox ("No view or Tibco listener available ...")
        End If
    End If
End Sub 
 
Sub TibDisplayOnce()
    If Not (LogCls Is Nothing) Then LogCls.Add "ACTION", "DISPLAY"
    If IsInit Then TibViewList.Display
End Sub 
 
Sub TibDisplay()
    If IsInit Then TibDisplayOnce
    If DispAuto And IsInit Then Application.OnTime Now + TimeValue("00:" & DispTimer), "TibDisplay"
End Sub 
 
Sub TibStop()
    If Not LogCls Is Nothing Then
        LogCls.Add "ACTION", "STOP"
        If IsInit Then
            TibViewList.DisConnect
            Set TibViewList = Nothing
        End If
    End If
    IsInit = False
    TibUpdateMenu (IsInit)
End Sub 
 
Sub TibConfig()
    If Not IsInit Then
        InitClass
        ConfigForm.Execute configFilePath, viewFilePath
        Set TibViewList = Nothing
    End If
End Sub

[SfJ5Rpw8]

pour t'aider il nous manque peu-être la fonction init de la classe : ConfigListClass
...