[VBA-W]Export d'un document word contenant des feuilles excel vers excel

[tazamorte]

Bonjour

j'aimerai exporter ou enregistrer sous si possible mon document word contenant du texte et des objets feuilles de calcul vers Excel.
Un simple copie coller ne marche pas.
Avez vous une idée pour réaliser ceci ?

[tazamorte]

Pour l'application permet de créer des rapports sous word
ces rapports sont constitués de zone de texte et de tableau les tableaux sont générer par un pilotage d'excel sans que l'utilisateur ne voit la chose le résultat du tableau s'affiche dans une feuille de calcul.

Exemple

----------
Titre 1
Titre 2

Présentation

Tableau(dans une feuille excel )
-------------------------------- répéter n fois

Le client veut une fonctionnalité ou le rapport sera enregistrer sous excel.

j'espere etre plus claire.

[Thomas69]

oki je vois

désoler je n'est pas les connaissances requises pour cela
car je dois faire la meme chose que toi actuellement
avec d'autres petits détails
et je galere

[ouskel'n'or]

Et Insérer un objet doc, ça ne fonctionne pas
Dans Excel -> Menu Insertion -> Document Word

Code :

    ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8").Activate

Ensuite, tu colles le contenu du doc dans l'objet
Tu dis
PS - Tu veux faire ça depuis Excel ou depuis Word ?

[tazamorte]

Super idée ouskel'n'or merci beaucoup même si dans l'absolue ce sera je pense inexploitable sous excel la demande est tellement conne que ca mérite une solution de ce type.

Je flague de suite en résolu

Je veux le faire depuis word

donc j'aurai un code comme cela je pense

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
With ActiveDocument
        .Selection.WholeStory
        .Selection.Copy
    End With
 
Dim xlApp   As Excel.Application
Dim xlBook  As Workbook
 
 Set xlApp = CreateObject("Excel.Application")
 xlApp.Visible = false
 xlApp.ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.12", Link:=False, _
        DisplayAsIcon:=False).Activate
Selection.Paste
 
xlApp.