Extraire du texte des Shape Excel

Bonjour à tous,

J'ai des shapes que je copie de PPT à Excel (je connais un peu de VBA Excel ...) et je voudrais copier le contenu des shapes dans des cellules.
Le probleme est que je n'arrive pas à accéder au texte des shapes.
J'ai essayer pas un enregistrement manuel, mais des que je touche à quoi que ce soit, plus rien ne marche ...
Connaissez vous la facon d'acceder au texte d'une shape ???

MErci !!

Bonjour,

Pour accéder au texte d'une forme (Shape) la syntaxe est la suivante :

Code:

---

Shapes("NomForme").TextFrame.Characters.Text

---

Un exemple pour récupérer les textes de toutes les formes de la feuille 1 et coller ces textes dans la colonne A

Code:

---

1 2 3 4 5 6 7 8

Sub test_fring() Dim Shp As Shape   For Each Shp In Sheets("Feuil1").Shapes Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp)(2) = Shp.TextFrame.Characters.Text Next   End Sub

---

:merci:
C'est exactement ce que je cherchais !!!
Un grand merci pour ton aide !
:ccool: