[VBA-W]Enregistrer sous au format excel un document Word

Bonjour

J'aimerai savoir comment je pourrai faire à partir d'un document word contenant du texte mis en forme et des objets "feuille de calcul excel contenant un tableau ou un graphique" pour créer un fichier excel gardant le texte et sa mise en forme et les tableaux et graphiques sous forme d'objet ?

Voila une ébauche si vous avez mieux je suis preneur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim xlApp As Excel.Application Dim xlBook As Workbook   Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True   'Pour les objets feuille de calcul For Each inS In ActiveDocument.InlineShapes If inS.OLEFormat.ProgID Like "Excel.Sheet*" Then inS.OLEFormat.Activate Set wk = inS.OLEFormat.Object   Selection.Copy   Set xlBook = Selection.Paste   End If   Next ' Pour le reste

---

Merci d'avance

Je ne sais pas si ton code fonctionne (j'ai pas tout compris) mais déjà, cette ligne

Citation:

---

Set wk = inS.OLEFormat.Object

---

est inutile puisqu'elle ne sert pas, en outre wk n'est pas déclaré. Enfin, s'il s'agit de l'objet que tu veux copier, comme tu mets

Code:

---

Selection.Copy

---

tu dois donc au moins l'avoir sélectionné
Par contre, s'il s'agit bien de l'objet à copier, ;)

Code:

---

wk.copy

---

serait plus mieux bien

le code n'est pas testé c'est pour donner une idée de ce que j'essay de faire oui tu as raison cela serait plutot

Code:

---

wk.copy

---

ce qui me gene dans mon cas c'est ces objets car le plsu simple aurait été de faire selectionner tout copier créer un fichierexcel et coller la selection mais pour avoir tester ce sont ses objets qui marchent pas dans la copy en fin plus exactement je ne voudrai retrouvé sur excel que le tableau contenu dans l'objet

Alors tu as une réponse dans la FAQ. SilkyRoad dit ça très bien. Fais une recherche dans la FAQ.
Si je trouve, je te mets ça ici

Regarde là
Dans word un tableau Excel est identifié comme un(e) shape