none
Office – Problème pour importer un ToolTip dans VBA Excel RRS feed

  • Question

  • Bonjour,

    Je suis en panne d’idée car je voudrais afficher un ToolTip (VB.NET) dans VBA pour Excel. J’ai réalisé les principales tâches, à savoir la construction de la procédure dans VB.NET qui créera le ToolTip ainsi que de la procédure qui affichera le ToolTip dans VBA mais lorsque je teste le processus le message d’erreur suivant s’affiche dans VBA :

    Procédure dans VB.NET

    Imports System.Windows.Forms

    Public Class Class1

        Public Sub New()

        End Sub

        Public Sub Msg(ByVal Strg As String, ByVal Window As Object, ByVal Duration As Integer)

            Dim TTip As New ToolTip

            TTip.IsBalloon = True

            TTip.Show(Strg, Window, Duration)

            'MsgBox(Window.ToString)

        End Sub

    End Class

    Procédure dans VBA

    Private Declare Function FindWindowA Lib "user32" _

            (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Sub CommandButton1_Click()

            Dim MyObj As ClassLibrary1.Class1

            Set MyObj = New ClassLibrary1.Class1

            'Dim MeHwnd As Long

            'MeHwnd = FindWindowA(vbNullString, Me.Caption)

            Call MyObj.Msg("Visual Basic Express", Me, 5000)

    End Sub

    Que dois-je faire pour me sortir de ce mauvais pas ? Merci

    Cordialement

    SL


    mercredi 4 février 2015 11:13