Problème : Do while

[klorane]

Bonjour à tous,

j'ai un soucis avec la fonction do while.

Quand j'essaye de lancer le programme ci dessous excel me dit pour la ligne :
" Do While (CurWnd 0) " erreur de compilation erreur de syntaxe.
Voyez vous ou se situe le problème de syntaxe?

Merci
Klorane

----
Sub EnablePersonal()
Dim CurWnd As Long
Dim Level As Integer
Dim Success As Integer
Success = 0
CurWnd = GetDesktopWindow()
CurWnd = GetWindow(CurWnd, GW_CHILD)
Level = 1
Do While (CurWnd 0)
If (Level = 1 And GetWindowClass(CurWnd) = "#32770" And GetWindowCaption(CurWnd) Like "Ins* TeamViewer*") Then
CurWnd = GetWindow(CurWnd, GW_CHILD)
Level = 2
ElseIf (Level = 2 And GetWindowClass(CurWnd) = "#32770") Then
CurWnd = GetWindow(CurWnd, GW_CHILD)
Level = 3
ElseIf (Level = 3) Then
Call EnableWindow(CurWnd, 1)
Success = Success + 1
CurWnd = GetWindow(CurWnd, GW_HWNDNEXT)
Else
CurWnd = GetWindow(CurWnd, GW_HWNDNEXT)
End If
Loop
End Sub

 

[Dranreb]

Re : Problème : Do while

Bonsoir
Elle se situe derrière CurWnd: il y a une constante 0 sans opérateur entre les deux. Ça ne forme pas une expression pouvant être évaluée différente ou non de 0.