C
Christophe
Guest
Bonjour a tous,
J'utilise un bout de code qui me ne marche apparement pas tout le temps... c'est bizarre... j'ai un code erreur : Erreur d'execution '1004 '
Impossible de lire la propriété object de la classe OleObject.
Le bout de code est le suivant :
Public test As Integer
Public i As Integer
Sub Wvide(ByVal i)
Dim WordApp As Object
Dim WordObj As Shape
'dans cet exemple l'objet Word et le 1er objet dans la Feuille 1
Set WordObj = ActiveSheet.Shapes('Objet ' & i)
Set WordApp = WordObj.OLEFormat.Object.Object.Application
If WordApp.Selection.Document.Words.Count = 1 Then 'renvoie 0 si vide
'MsgBox 'Vide'
test = 0
Else
'MsgBox 'Non vide'
test = 1
End If
End Sub
Je devrais peut etre joindre le fichier .....
Merci a tous.
J'utilise un bout de code qui me ne marche apparement pas tout le temps... c'est bizarre... j'ai un code erreur : Erreur d'execution '1004 '
Impossible de lire la propriété object de la classe OleObject.
Le bout de code est le suivant :
Public test As Integer
Public i As Integer
Sub Wvide(ByVal i)
Dim WordApp As Object
Dim WordObj As Shape
'dans cet exemple l'objet Word et le 1er objet dans la Feuille 1
Set WordObj = ActiveSheet.Shapes('Objet ' & i)
Set WordApp = WordObj.OLEFormat.Object.Object.Application
If WordApp.Selection.Document.Words.Count = 1 Then 'renvoie 0 si vide
'MsgBox 'Vide'
test = 0
Else
'MsgBox 'Non vide'
test = 1
End If
End Sub
Je devrais peut etre joindre le fichier .....
Merci a tous.