zeltron
XLDnaute Occasionnel
Bonjour a tout le forum,
Voici mon problème:
Mon but est qu'en cliquant sur le webbrowser d'un Userform cela fasse apparaître un Frame sur ce Userform.
Lorsque le Webbrowser "charge" une image gif animée le code pour pouvoir cliquer sur le Webbrowser fonctionne bien.
Mais lorsque que le webbrowser "charge" une animation pps, cela ne fonctionne plus quand le code nécessaire pour cliquer sur le webbroswer est présent
Mon code est le suivant:
Option Explicit
Dim WithEvents maPageHtml As HTMLDocument
Dim s As String
Dim i As String
Private Sub UserForm_Initialize()
i = Sheets("Feuil1").Range("H6").Value
s = ThisWorkbook.Path & "\" & i
WebBrowser1.Navigate s
End Sub
'*******lignes de code utile pour pouvoir cliquer sur le webbrowser
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 'permet de pouvoir cliquer sur webbrowser3
Set maPageHtml = WebBrowser1.Document
End Sub
Private Function maPageHtml_onclick() As Boolean
Frame1.Visible = True
End Function
'***********
Pourriez vous m'aider??
Je joins à ce message un exemple de fichier avec un doc pps et une image gif animée à mettre dans le même répertoire afin que vous puissiez mieux comprendre mon problème.
Nb: Pour que cela fonctionne il faut activer la référence: Microsoft HTML object library
Vous remerciant par avance
Cordialement
Zeltron
Voici mon problème:
Mon but est qu'en cliquant sur le webbrowser d'un Userform cela fasse apparaître un Frame sur ce Userform.
Lorsque le Webbrowser "charge" une image gif animée le code pour pouvoir cliquer sur le Webbrowser fonctionne bien.
Mais lorsque que le webbrowser "charge" une animation pps, cela ne fonctionne plus quand le code nécessaire pour cliquer sur le webbroswer est présent
Mon code est le suivant:
Option Explicit
Dim WithEvents maPageHtml As HTMLDocument
Dim s As String
Dim i As String
Private Sub UserForm_Initialize()
i = Sheets("Feuil1").Range("H6").Value
s = ThisWorkbook.Path & "\" & i
WebBrowser1.Navigate s
End Sub
'*******lignes de code utile pour pouvoir cliquer sur le webbrowser
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 'permet de pouvoir cliquer sur webbrowser3
Set maPageHtml = WebBrowser1.Document
End Sub
Private Function maPageHtml_onclick() As Boolean
Frame1.Visible = True
End Function
'***********
Pourriez vous m'aider??
Je joins à ce message un exemple de fichier avec un doc pps et une image gif animée à mettre dans le même répertoire afin que vous puissiez mieux comprendre mon problème.
Nb: Pour que cela fonctionne il faut activer la référence: Microsoft HTML object library
Vous remerciant par avance
Cordialement
Zeltron
