voila je veux transformer ma chaine de caractere en entier et faire la somme de ces valeurs
j'ai essayer convert.toint  et autre fonction tjs le meme probleme
la seul chose que j'arrive a faire c un somme de chaine de caractere qui donne
000000059           000000021           000000022           000000026          

voila c pas evident du tous  sa fais 2 jour que je suis dessus (je suis un super debutant et je commence a avoir des cheveux blanc a cause de cette @@@@@@)

Private Sub Moyenne_Click()
Dim udtArtEnr As ArtStruc
Dim somme As Integer
Dim Moyenne As ArtStruc
'Programation de la message box en cas d'inexistance du fichier dat
Const conMsg As String = "Fichier Inexistant."
    Const conBtns As Integer = vbOKOnly + vbInformation _
                + vbDefaultButton1 + vbApplicationModal ' doit repondre a cette page obliger

'test si le fichier dat existe

If Dir("D:\temp.dat", vbHidden) <> "" Then
 For i = 1 To click
 Get #1, i, udtArtEnr
 somme = somme + udtArtEnr.strtime
  Next i
 Text1 = somme
Else
intreponse = MsgBox(conMsg, conBtns, "Acces au fichier")
End If

End Sub

merci de vos reponse

2 choses :

1) essaie : Somme = Somme + CInt(udtArtEnr.strtime)
2) au lieu du #1, fais plutôt qqch du genre :
    dim hFile as long
    hFile = FreeFile
    Get #hFile, ...

nickel sa marche maintenant j'ai plus que a mettre en forme
merci pour ta reponse

Salut tonyock!
quand tu as ta reponse essaies de cliquer sur "reponse acceptée" au niveau de la personne qui t a repondu, comme ca tout le monde sais qu il y a eu une reponse pour cette question.
Merci!
Bonne prog ++

tOKi127