bonsoir
voici ce que j'ai fait ça ne me parait pas très harmonieux mais ça fonctionne:
Public Sub client()
...
Form1.tcpClient.RemoteHost = Adresse
Form1.tcpClient.RemotePort = 1001
Mod_Réseau.Connexion
While Connecté = False
DoEvents
Wend
Form1.tcpClient.SendData "NOM" & Nom
...
end sub
Private Sub tcpClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'Se produit lorsqu'une erreur survient lors d'une exécution en tâche de fond _
(par exemple, échec de la connexion, ou échec de l'envoi ou de la réception en arrière-plan).
'si le server n'est pas encore disponible
Form1.tcpClient.Close
Connecté = False
Form1.tcpClient.Connect
End Sub
Private Sub tcpClient_Connect()
Connecté = True
End Sub
merci encore