voila j importe un objet de type .doc (word) dans un tableau excel avec ceci

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
objSheet.Range("commentaire").Select
 
        Set OleObj = objSheet.OLEObjects.Add(, path_fichier_word, False, False)
        OleObj.ShapeRange.LockAspectRatio = 0
        With OleObj
            .Left = Range("commentaire").Left + 3
            .Top = Range("commentaire").Top + 3
            .Width = 365
        End With
 
        OleObj.Width = 365
        OleObj.Width = 365
        OleObj.Width = 365
        MsgBox OleObj.Height & "....." & OleObj.Width
        'objSheet.PrintOut
        objexcel.Quit
ca marche bien ouaipppppp

le probleme c est que je voudrais scinder mon oleOBJ en deux pour en avoir deux différents.

auriez vous des pistes ou la solution siouplait


merci d avance
++ le rongeur masqué