Discussion :

[papyxy]

Bonjour

J'ai créé un ensemble d'objets du type WebBrowserX (X allant de 1 à 48).
j'aurai voulu boucler avec un algorithme sur ceux-ci.
J'ai bien essayé avec "Shapes", mais cela provoque une erreur sur cette instruction :

Code :

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

1
2
3
Private Sub Worksheet_Activate()
         shapes(1).Navigate ActiveWorkbook.Path & "\dogrun.GIF"
End Sub

ce qui aurait été équivalent à

Code :

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

1
2
3
Private Sub Worksheet_Activate()
       WebBrowser1.Navigate ActiveWorkbook.Path & "\dogrun.GIF"
End Sub

Si une solution est possible, je serai content qu'on me la propose.

[Theze]

Bonjour,

C'est un objet OLE donc :

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
 
Sub Test()
 
    Dim Ole As OLEObject
 
    For Each Ole In Worksheets("Feuil1").OLEObjects
 
        If TypeName(Ole.Object) = "WebBrowser" Then
 
            If Ole.Name = "WebBrowser1" Then
 
                Ole.Object.Navigate ActiveWorkbook.Path & "\dogrun.GIF"
 
            End If
 
        End If
 
    Next Ole
 
End Sub

[papyxy]

Merci beaucoup.
C'est ce que je cherchais