bonjours a tous , je suis actuellement en stage n automatisme et jai un petit probleme pour me conncter a mon automate SIEMENS (cpu 314).
j'ai essayer deme connecter avec ce script en vba sous excel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' Ouverture de la connection avec l'automate
Private Sub OpenConnection(AdresseIP)
localport = 4096
localhost = AdresseIP = "192.0.0.0" 'adresse IP de l'automate de la chaufferie
 
   If winsock <> sckconnected Then
         winsock.RemoteHost = localhost
         winsock.RemotePort = localport
 
         winsock.Connect
   Else
        CloseConnection (AdresseIP)
   End If
     MsgBox ("connection établie")
End Sub
merci d'avance pour vos réponse