Bonjour,

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


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
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