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 : Sélectionner tout - Visualiser dans une fenêtre à part
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