objet word depuis excel vide ou pas ??

[christophe]

Bonsoir a tous,

Je ne sais pas si mon sujet est clair j'en suis desolé...

En fait mon probleme est que j'utilise un objet word dans une feuille et je m'amuse a le rendre visible ou pas avec un bouton.
Ce que je n'arrive pas a faire est d'empecher qu'il soit invisible si il contient quelque chose, le code doit etre a peu prés ça je pense :

if ActiveSheet.Shapes('Objet 46').Select. ...contient qulquechose then
ActiveSheet.Shapes('Object 46').Visible = msoFalse
else
ActiveSheet.Shapes('Object 46').Visible = msoTrue
end if


Merci a tous, bonne fin d'aprés midi.

 

[MichelXld]

bonsoir Christophe

ci joint un exemple pour verifier si le document Word inséré dans le classeur est vide ou pas


Dim WordApp As Object
Dim WordObj As Shape

'dans cet exemple l'objet Word et le 1er objet dans la Feuille 1
Set WordObj = Worksheets(1).Shapes(1)
Set WordApp = WordObj.OLEFormat.Object.Object.Application

If WordApp.Selection.Document.Words.Count = 1 Then 'renvoie 1 si vide
MsgBox 'Vide'
Else
MsgBox 'Non vide'
End If


bonne soiree
MichelXld

 

[christophe]

C'est super MichelXld ton code est nickel et ça marche bien sur nickel, merci beaucoup bonne soirée, et bonne soirée a tou(te)s.