Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim toto As InlineShape
For Each toto In ActiveDocument.InlineShapes
If toto.OLEFormat.ClassType Like "*Excel*" Then nb = nb + 1
Next
MsgBox nb & " "" tableau(x) "" excel trouvé(s) dans ce document word"
6 juil. 2016 à 16:24
merci.