Discussion :

[tazamorte]

Ce que je voudrai c'est lors de mon parcours du document à chaque tableau trouvé je voudrais le supprimer et le remplacer par une balise numéroté

le code suivante ne marche pas mais c'est pour vous donnez la philo
ce qui marche pas c'est le delete de l'object

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
Sub BaliseTableau()
 Dim inS As InlineShape
 Dim wk
 Dim compt As Integer
 compt = 0
 For Each inS In ActiveDocument.InlineShapes
   If inS.OLEFormat.ProgID Like "Excel.Sheet*" Then
        inS.OLEFormat.Activate
        Set wk = inS.OLEFormat.Object
        wk.Delete
        Selection.TypeText Text:="#balise" & compt & "#"
        compt = compt + 1
    End If
 Next
End Sub

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each inS In ActiveDocument.InlineShapes
    If inS.OLEFormat.ProgID Like "Excel.Sheet*" Then
        inS.OLEFormat.Activate
        Selection.Delete

A+

[tazamorte]

Ca marche merci ouskel'n'or
Le seul problème est que c'est long mais pour remplacer 2 pauvre tableau
il semblerait que c la procédure d'activation qui ruine le temps d'execution
as tu une idée pour optimiser ca ?