Lire un contrôle situé dans une feuille de classeur chargée dynamiquement

Bonjour,

Si je veux lire la valeur d'une boîte à cocher (CheckBox de type controle de formulaire, pas ActiveX) depuis une feuille active dans un classeur ouvert j'y arrive sans problème via un :

Code:

---

ActiveSheet.Shapes("CB_Duplication").ControlFormat.Value

---

ou

Code:

---

ActiveSheet.CheckBoxes("CB_Duplication").Value

---

Cependant ça ne marche pas si je veux accéder à un contrôle quand il est situé dans une feuille dont je charge le classeur dynamiquement (mais j'accède sans problème à ses .Range ou .Cells ).

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim wb2 As Workbook Set wb2 = Workbooks.Open("zeworkbook.xls", True, True) If wb2 Is Nothing Then MsgBox ("Impossible de charger le fichier") Else Dim cbValue As Long cbValue = wb2.Sheets(1).Shapes("CB_Duplication").ControlFormat.Value ' <== provoque erreur "ne trouve pas d'élément de ce nom" cbValue = wb2.Sheets(1).CheckBoxes("CB_Duplication").Value ' <== provoque erreur "ne trouve pas la propriété Checkboxes de la classe Worksheet" End If

---

Le classeur ne contient qu'une seule feuille donc sheets(1).

cdlt.

Merci de ne pas citer l'intégralité du message juste précédent, aucun intérêt à part un encombrement visuel inutile !


Lignes de code n°8 & 9 : peut-être y-a-t-il une erreur quant au numéro d'index de la feuille !

Essayer déjà avec son nom …

Il n'y a pas d'erreur sur l'index car comme précisé il n'y a qu'un seule feuille dans la .xls qui est chargé dynamiquement et j'accède correctement aux cellules via .range ou .cells par exemple

Code:

---

src = wb2.Sheets(1).Range(sCellSrc).Value

---

jusqu'à présent je n'avais besoin d'accéder qu'aux contenu des cellules mais maintenant il y a des contrôles qui ont été ajouté dans la feuille sachant que son nom peut varier d'où le sheets(1) qui est indépendant du nom.

Cependant j'ai tout de même testé la suggestion et en effet j'ai un comportement différent ?!

Code:

---

1 2 3 4

cbValue = wb2.Sheets("20161206").Shapes("CB_Duplication").ControlFormat.Value ' <== OK !!!   cbValue = wb2.Sheets("20161206").CheckBoxes("CB_Duplication").ControlFormat.Value ' <= erreur propriété ou méthode non gérée pour cet objet donc il ne trouve pas l'objet "checkbox" nommé

---

En tout cas merci pour la suggestion, je vais passer par le nom en récupérant le .Name du .Sheet(1) et ça ira bien même si je ne comprends toujours pas pourquoi le problème se pose.