voila je fais de la supervision sous rockwell, et j'utilise vba pour allez lire des valeurs dans un fichier .tct cela marche nikel.
je voudrais maintenant allez chercher des valeurs dans un fichier en .csv (excel)
comment faire ?!
voici le code pour lire dans un fichier texte :
' *********************************************************************
' lecture du fichier et affichage des variables lues
'
' *********************************************************************
Private Sub Lecture_Fichier()
Dim sNomFichier As String
Dim sLigneCourante As String
Dim sNomTag As String ' nom du tag
Dim iIndex As Integer
Dim iValeur_Lue As Double
Dim Ecri_Tag As Tag
Dim Ecri_Tag_Group As TagGroup
' affceter le groupe de tags
Set Ecri_Tag_Group = Application.CreateTagGroup(Me.AreaName, 250)
' un coup de jeune
Ecri_Tag_Group.RemoveAll
sNomFichier = "C:\ImprimePDF\test.txt"
If Dir(sNomFichier, vbHidden) <> "" Then ' test sur la presence du fichier
Open sNomFichier For Input As #1 ' ouverture du fichier
iIndex = 1
Do While Not EOF(1)
Line Input #1, sLigneCourante ' je lis la ligne courante
If Right(sLigneCourante, 1) <> ";" Then
iValeur_Lue = CDbl(Right(sLigneCourante, Len(sLigneCourante) - InStr(sLigneCourante, ";")))
' extraction de la valeur
sNomTag = "Mesure" & CStr(iIndex)
Ecri_Tag_Group.Add (sNomTag)
Set Ecri_Tag = Ecri_Tag_Group.Item(sNomTag)
Ecri_Tag.Value = iValeur_Lue
iIndex = iIndex + 1
' increment de l'index
End If
Loop
Close #1 ' fermeture du fichier
End If ' fin du test si le fichier est present
Set Ecri_Tag = Nothing
Set Ecri_Tag_Group = Nothing
End Sub
