Problème GIF dans Userform

**oliv481** · 03/07/2020, 09h41

Bonjour,
Tout est dans le titre, je m'explique.

J'ai un Userform à plusieurs pages,
Sur la page 0, je fais apparaitre un GIF par un Webbrowser pendant le chargement d'une action :

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
Sub AfficheGIF()
' Permet d'afficher un GIF pendant le chargement de la nomenclature
Dim Fs As Object
 
Sommaire.WebBrowser1.Visible = True
 
Set Fs = CreateObject("Scripting.FileSystemObject")
'Supprime l'image temporaire si elle existe
If Fs.FileExists(ThisWorkbook.Path & "\imageTemp.gif") Then
    Kill ThisWorkbook.Path & "\imageTemp.gif"
End If
 
Dim i As Long, k As Long, P As Long, F As Long
Dim Hauteur As Long, Largeur As Long
Dim S As String
Dim j As Integer
Dim B() As Byte
Dim Tb
 
With ThisWorkbook.Worksheets("GIF").UsedRange
    Tb = .Value
    P = .Count
End With
 
ReDim Preserve B(1 To P)
For i = 1 To UBound(Tb, 1)
    For j = 1 To UBound(Tb, 2)
        k = k + 1
        B(k) = Tb(i, j)
    Next j
Next i
 
F = FreeFile
S = ThisWorkbook.Path & "\imageTemp.gif"
Open S For Binary Access Write As F
Put #F, , B
Close F
 
With Sommaire.WebBrowser1
    Largeur = .Width * 96 / 72
    Hauteur = .Height * 96 / 72
    .Navigate _
        "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" _
        & Largeur & " HEIGHT=" & Hauteur & " SRC='" & S & _
        "'</IMG></BODY></CENTER></HTML>"
End With
 
End Sub

Une fois cette action terminé, je cache le Webbrowser et supprime l'image du GIF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sommaire.WebBrowser1.Visible = False
 
Dim Fs As Object
 
Set Fs = CreateObject("Scripting.FileSystemObject")
'Supprime l'image temporaire si elle existe
If Fs.FileExists(ThisWorkbook.Path & "\imageTemp.gif") Then
    Kill ThisWorkbook.Path & "\imageTemp.gif"
End If

A côté de ça, dans la page 1, j'ai un bouton "RESET" qui me permet de tout remettre à zéro et de retourner sur la page 0 pour recommencer une nouvelle action.
Dans lequel j'ai mis le code suivant, me permettant d'effacer le contenu du Webbrowser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Hauteur As Long, Largeur As Long
 
With Sommaire.WebBrowser1
    Largeur = .Width * 96 / 72
    Hauteur = .Height * 96 / 72
    .Navigate _
        "ABOUT:BLANK"
End With

Voila le début de mon problème, ça me donne une erreur : Erreur d'exécution, la méthode 'Navigate' de l'objet 'IWebBrowser2' a échoué.

Par contre, si je créer un bouton sur la page 0 et que je lui met le code d'effacement du Webbrowser, je n'ai plus cette erreur et tout fonctionne.

Auriez-vous une idée ?
Merci.

**Jean-Philippe André** · 03/07/2020, 19h04

Salut,

je ne suis pas un pro ultime du html, mais tu as des balises ouvertes qui ne se ferment pas…

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" _
        & Largeur & " HEIGHT=" & Hauteur & " SRC='" & S & _
        "'</IMG></BODY></CENTER></HTML>"

Si tu faisais une page propre pour voir ce que ca donne ensuite ?

**oliv481** · 05/07/2020, 17h40

Bonjour et merci de votre réponse,
Moi non plus je ne suis pas un pro (plutôt un débutant +)
Le code dont vous parlez a été pris sur https://silkyroad.developpez.com/VBA/ExcelImageGIF/.
J'ai juste changé le chemin du GIF.
La seul différence que j'ai trouvé, c'est la position du bouton "Reset".
S'il est positionné sur la page 1, sa me donne l'erreur cité dans le post 1.
Par contre si je le déplace sur la page 0, je n'ai aucune erreur.

**Nullosse** · 06/07/2020, 07h42

Salut,
les contrôles multipages n'aiment pas trop les activex surtout si on essaie d'en commander un à partir d'une autre page.
il y a la solution d'utiliser un contrôle tabstrip on le "bricolant" pour qu'il ait un comportement similaire au multipage. Pour faire ceci on jouera sur la visibilité des composants voici un exemple
avec un webbrowser en tab1 et deux boutons en tab2 :

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
Private Sub AfficheGIF_Click()
AfficheGIF2
End Sub
 
Private Sub EffaceGif_Click()
WebBrowser1.Navigate2 "ABOUT:BLANK"
End Sub
 
Private Sub TabStrip1_Change()
Select Case TabStrip1.Value
Case 0
WebBrowser1.Visible = True
EffaceGif.Visible = False
AfficheGIF.Visible = False
Case 1
WebBrowser1.Visible = False
EffaceGif.Visible = True
AfficheGIF.Visible = True
End Select
End Sub
 
Private Sub UserForm_Activate()
TabStrip1.Value = 0
WebBrowser1.Visible = True
EffaceGif.Visible = False
AfficheGIF.Visible = False
AfficheGIF2
End Sub
 
Sub AfficheGIF2()
Dim S As String
S = "M:\Test\dance.gif"
WebBrowser1.Navigate2 S
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no"
End Sub

voici le résultat :

Nom : tabstrip_excel.gif
Affichages : 665
Taille : 107,4 Ko

Nullosse le plus nul des apprentis programmeur

**oliv481** · 06/07/2020, 09h54

Bonjour et merci de ta réponse,
Je comprends l'idée mais je ne pense pas que ça pourras fonctionner dans mon cas.
Je me suis peut-être mal expliqué.

Voila le visuel de mon Userform.
Nom : Capture.JPG
Affichages : 584
Taille : 49,8 Ko

Nom : Capture.JPG
Affichages : 584
Taille : 49,8 Ko

Dans l'encadré 1, je rentre un code article puis je clique sur le bouton "OK".
Ce qui ouvre un fichier base de donnée Access.
Le temps qu'Access fasse son boulot, j'affiche un message d'attente dans l'encadré 2 et le GIF dans l'encadré 3.
Un fois qu'Access à fini, l'opérateur sélectionne son produit "CABLE, PLATEFORME..." et clique sur "CALCULER" qui lance une macro et bascule sur l'onglet approprié.

Voila le visuel d'un onglet.
Nom : Capture2.JPG
Affichages : 576
Taille : 146,2 Ko

Nom : Capture2.JPG
Affichages : 576
Taille : 146,2 Ko

Dans chacun des onglets, il y a un bouton reset qui lance une macro pour tout RAZ et re-bascule sur l'onglet "Sommaire" (pour pouvoir recommencer un autre article).
C'est la que le problème ce créé.
Juste une précision, la macro pour le GIF est dans un Module, pas dans le Userform.

Est-ce que ça pourrait venir de la ?
Merci.

**oliv481** · 06/07/2020, 16h46

Bonjour à tous,
J'ai trouvé une solution.
Comme l'a dit @Nullosse, le Multipage n'est pas forcément le mieux pour ce control activeX.
Enfaite j'ai juste changé la position du Webbrowser.
A l'initial, j'ai créé un Userfom sur lequel j'ai mis un Multipage sur lequel j'ai mis tous mes bouton et autres (dont le Webbrowser).
Donc j'ai changé la position du Webbrowser en le déplaçant sous le Multipage.
En faisant plusieurs tests, ça fonctionne. Je n'ai plus aucune erreur.
Merci pour toutes vos propositions et à une prochaine fois.

Problème GIF dans Userform [XL-365]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager