C
Christophe
Guest
Bonjour à Tous,
Voila j'ai un petit problème avec une fonction que j'utilise pour tester si un objet word dans une feuille excel est vide ou pas le code est :
Sub Wvide(ByVal i)
Set WordObj = ActiveSheet.Shapes('Objet ' & i)
Set WordApp =WordObj.OLEFormat.Object.Object.Application
If WordApp.Selection.Document.Words.Count = 1 Then
test = 0
Else
test = 1
End If
End Sub
Dans i je met le numero de l'objet sur lequel je veux agir, j'ai une erreur au niveau de la ligne WordApp = WordObj.OLEFormat......
Est ce que vous souhaitez que je joigne le fichier ?
Merci et bonne aprés midi.
Voila j'ai un petit problème avec une fonction que j'utilise pour tester si un objet word dans une feuille excel est vide ou pas le code est :
Sub Wvide(ByVal i)
Set WordObj = ActiveSheet.Shapes('Objet ' & i)
Set WordApp =WordObj.OLEFormat.Object.Object.Application
If WordApp.Selection.Document.Words.Count = 1 Then
test = 0
Else
test = 1
End If
End Sub
Dans i je met le numero de l'objet sur lequel je veux agir, j'ai une erreur au niveau de la ligne WordApp = WordObj.OLEFormat......
Est ce que vous souhaitez que je joigne le fichier ?
Merci et bonne aprés midi.