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

[tazamorte]

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

[ouskel'n'or]

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

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

[tazamorte]

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

[ouskel'n'or]

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