Bonsoir a tous ,
j'espere que vous pourrez m'eclairer sur ce message dans mon code qui fonctionne est soudain je le message cité en titre , malgre plusieurs recherche en vain je suis bloque
le code est le suivant :
Dim IEDoc As Object
Dim sws As SHDocVw.ShellWindows
Dim strURL As String
Dim n As Integer
strURL = "
"
Set sws = New SHDocVw.ShellWindows
'Cycle through all open IE windows and assign the window whose URL matches strURL
For n = 0 To sws.Count - 1
If Left(sws.Item(n).LocationURL, Len(strURL)) = strURL Then
Set IEDoc = sws.Item(n).Document
sws.Item(n).Visible = True
Exit For
End If
Next n
le message s'affiche sur la ligne mis en gras
je vous remercie d'avance de votre aide