substitution dans un nom d'objet

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:

---

1 2 3

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

---

ce qui aurait été équivalent à

Code:

---

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.

Bonjour,

C'est un objet OLE donc :

Code:

---

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

---

Merci beaucoup.:applo:
C'est ce que je cherchais