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 en rouge. Il s'agit d'un Run-time error '13' type mismatch

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

configInitPath est une chaine de caractère.

La methode Init de lta classe ConfigList attend surrement autrechose qu'une chaine de caractère en paramètre.

Ceci dit, difficile d'en dire plus sans savoir à quoi correspond cette classe.

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Casy,

Je te remercie pour ton aide.

De quoi peut-il s'agir si ce n'est pas une chaîne de caractères ?
Quelles sont les solutions possibles ?

Merci encore.

"Ceci dit, difficile d'en dire plus sans savoir à quoi correspond cette classe."

signé Casy et approuvé ici

Merci pour ton aide jmfmarques. Un post de plus !

Alors quelles sont les différents types de classe ?
Quelles sont les informations que je peux vous fournir qui pourraient vous être utiles ?

++

Un "post" de plus (et le dernier ici en ce qui me concerne) :
"à quoi correspond cette classe" ???????

Ce n'est pas une question de type de classe ou autre.

C'est la classe elle même qu'il faut.

C'est quoi cette classe, une classe que tu as codé toi même ???
Sinon tu dois quand même avoir une doc pour savoir quelles methodes utiliser et les paramètres à passer à ces méthodes.

Tu ne devine pas tout par magie, je pense

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Si je comprend bien.............., et je ne connais que très peu les classes

Dans la classe ConfigListClass
il y a un paramètre attendu dans Init ?
Si oui, de quel type est-il ?

MPi