Inserer deux WebBrowser

Version imprimable

Bonjour,

Je voudrais inserer deux WebBrowser j'ai mis se code dans mon thisWorkbook et sa ne marche pas ?

Code:

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
Private Sub Workbook_Open()
With Worksheets("Accueil")
 
    .Shapes("WebBrowser1").Top = 20
    .Shapes("WebBrowser1").Left = 70
    .WebBrowser1.Height = 120
    .WebBrowser1.Width = 120
 
    .WebBrowser1.Navigate "C:\Users\APDF\Desktop\Carte de france\union-europeenne_pt-009.GIF"
      End With
 
     On Error Resume Next
  With WebBrowser1.Document.body
    .WebBrowser1.Style.BorderStyle = "none" 'Cadre
    .WebBrowser1.Scroll = "no" 'Barres
   End With
 
With Worksheets("Accueil")
 
 
    .Shapes("WebBrowser2").Top = 30
    .Shapes("WebBrowser2").Left = 470
    .WebBrowser2.Height = 120
    .WebBrowser2.Width = 170
 
    WebBrowser2.Navigate "C:\Users\APDF\Desktop\Carte de france\fransa.GIF"
 
     On Error Resume Next
  With WebBrowser2.Document.body
    .WebBrowser2.Style.BorderStyle = "none" 'Cadre
    .WebBrowser2.Scroll = "no" 'Barres
   End With
 
 
 End With
End Sub

Avez vous une solution?

Je vous remercie d'avance

Cordialement

Max

A mettre dans le module ThisWorkbook

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Private Sub Workbook_Open()
 
InsWb "C:\Users\APDF\Desktop\Carte de france\union-europeenne_pt-009.GIF", 70, 20, 120, 120
InsWb "C:\Users\APDF\Desktop\Carte de france\fransa.GIF", 470, 30, 170, 120
End Sub
 
Private Sub InsWb(ByVal StrUrl As String, ByVal Lf As Integer, ByVal Tp As Integer, ByVal Wd As Integer, ByVal Hg As Integer)
Dim Shp As OLEObject
 
With Worksheets("Accueil")
    Set Shp = .OLEObjects.Add(ClassType:="Shell.Explorer.2", Left:=Lf, Top:=Tp, Width:=Wd, Height:=Hg)
    Shp.Object.Navigate StrUrl
    Set Shp = Nothing
End With
End Sub

23/04/2012, 20h42
maxval18

Re,

je te remercie.

Juste une question pourquoi il créer deux WebBrowser a chaque démarage, j'ai redémarer 3 fois je me suis retrouver avec WebBrowser ?

@+

Max
23/04/2012, 20h46
mercatog

C'était ton souhait non? C'est toi qui voulait qu'à chaque ouverture, il te crée 2 WB
23/04/2012, 20h50
maxval18

Non j'ai du mal m'expliquer excuse moi

Je voulais avoir deux deux WebBrowser sur ma feuille

Excuse moi

@+

Max
23/04/2012, 21h26
mercatog

Tu n'as qu'à les insérer manuellement
23/04/2012, 21h36
maxval18

Non on va reprendre du début.

Sur ma feuille j'ai insérer deux WebBrowser manuellement en passant par Contrôle ActiveX et marteau jusque la, OK !
Maintenant je veut a l'aide du VBA mettre un code pour avoir un GIF animé a chaque WebBrowser.
En faite je ne recherche que le code a mettre dans mon VBA

@+

Max
23/04/2012, 21h49
casefayere

Bonsoir,

ci-dessous, un exemple pour t'inspirer

Bon courage
23/04/2012, 21h58
maxval18

Bonsoir Dom

Oui mais moi je veut les mettrent sur ma feuille non pas sur un USF

merci

@+
Max

A adapter

Code:

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 
With Worksheets("Accueil")
    .WebBrowser1.Navigate "C:\Users\user\Desktop\Image1.gif"
    .WebBrowser2.Navigate "C:\Users\user\Desktop\Image2.gif"
End With
End Sub

23/04/2012, 22h23
maxval18

Re,

Merci et bonne soirée

@+

Max