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