nougitch
Messages postés431Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention17 novembre 2008
-
23 janv. 2007 à 12:21
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
23 janv. 2007 à 23:40
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
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 23 janv. 2007 à 14:16
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) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #