Discussion :

[Frederic3344]

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 :

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

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

[Invité]

Bonjour,

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

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
 
 
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