VBA : Erreur 424 pour extraire le texte d'une textbox

Bonjour,
J'essaie d'accéder au contenu d'objets résultats d'une conversion d'un .Pdf en .xlsx par macro vba.
J'ai essayé plusieurs méthodes sans succès.
je vous joins le dernier essai le plus basique possible ou j'obtient le message 424 "objet requis".

Code:

---

1 2 3

Sub Macro1() MsgBox (Sheets("Table 1").Shapes(Group10.TextBox15).TextFrame.Characters.Text) End Sub

---

Je souhaite savoir comment accéder au contenu des textbox éléments d'un groupe.

Merci de votre aide.
Cdlt

Citation:

---

Envoyé par Frederic3344

---

Bonjour,

Pas très orthodoxe cette présentation... :wow:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim MonTableau As Variant Dim I As Integer   With Sheets("Table 1") With .Shapes("Group 10") With .GroupItems("Textbox 15") MonTableau = Split(.TextFrame2.TextRange, Chr(10)) For I = LBound(MonTableau) To UBound(MonTableau) Debug.Print MonTableau(I) Next I End With End With End With

---