Discussion :

[tristan02]

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

[AlainTech]

Bonjour,

Et...
Message d'erreur?

Déjà, cette ligne me tracasse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

localhost = AdresseIP = "192.0.0.0"

Qu'est-elle sensée faire?
Tu vas obtenir True ou False dans localhost.

[tristan02]

Cette ligne a été supprimer , le problème c'est qu'il ne trouve pas l'adresse de l'automate pour pouvoir établir la connexion et de ce fait commencer la lecture des mots

[AlainTech]

Re,

Si tu nous mettais le code réel?

De plus, ton adresse IP me paraît fantaisiste.
Quel est le range d'adresses du réseau où est connectée ton interface?
Une bonne adresse IP non-routable serait 192.168.x.x en évitant le zéro en dernière position.

[tristan02]

Je pourrais mettre le code réel lundi mais pas avant , pour l'adresse ce n'est pas celle-ci , la vrai adresse est propre au réseaux ou s'effectue la connexion
Merci

[tristan02]

voici le programme que j'utilise :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub connection_click() 'Affiche la fenêtre de connection
 
    If MsgBox("Etes-vous certain de vouloir vous connecter ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
 
        OpenConnection (AdresseIP) 'Si le bouton Oui est préssé alors on appelle la fct de connection
 
    End If
 
End Sub
' Ouverture de la connection avec l'automate
Private Sub OpenConnection(AdresseIP)
   AdresseIP = "172.25.118.42" 'adresse IP de l'automate de la chaufferie
 
   If winsock <> sckconnected Then
         winsock.RemoteHost = AdresseIP
         winsock.RemotePort = 4096
 
         winsock.Connect
         MsgBox ("connection établie")
   Else
       CloseConnection (AdresseIP)
   End If
 
End Sub
 
Private Sub DECONNECTION_Click()
 If MsgBox("Etes-vous certain de vouloir vous déconnecter ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
 
        CloseConnection (AdresseIP) 'Si bouton Oui est préssé alors on appelle la fct de
 
    End If
End Sub
 
 
Public Sub CloseConnection(AdresseIP)
  AdresseIP = "172.25.118.42" 'adresse IP de l'automate de la chaufferie
    If Winsok = sckconnected Then
        winsock.closewinsock
 
    End If
 
    'Enregistrement du fichier
    For i = 1 To Workbooks.Count Step 1
        If Workbooks(i).Name = Fichier Then
            Workbooks(Fichier).Save
           Workbooks(Fichier).Close
        End If
    Next
 
    End Sub

merci