Premier réflexe :
msgbox texte
et montre-nous ce que contient cette variable quand çà "plante"
de sorte à ce que l'on puisse constater qu'elle contient bien 34 chaînes séparées par un "|"
car si tel n'est pas le cas, évidemment... çà plante !
Private Sub Timer_Timer()
'Affectation a la textBox l'heure et la date du jour
heure.Text = (Format(Time, "hh.mm") & " " & Format(Date, "dd.mm.yyyy"))
If Second(Time) = 0 Then If minute(Time) 0 Or minute(Time) 15 Or minute(Time) = 30 Or minute(Time) = 56 Then
MsgBox "1"
Open ("C:\mmbase.txt") For Input As #1
Input #1, texte
Close #1
MsgBox "2"
parabase() = Split(texte, "|")
nomtexte = parabase(0)
destination = parabase(1)
finheure = parabase(2)
findate = parabase(3)
MsgBox "3" If destination scomputername Or destination "réseaux" Then
MsgBox "4"
Open ("C:" & nomtexte & ".txt") For Input As #1
Line Input #1, niveau
Line Input #1, mess
Close #1
MsgBox "4"
info.Show
End If
End If
End If
End Sub
Salut,
Moi ce que je trouve bizarre c'est que l'on t'avais déjà proposé de mettre des msgbox texte... arrive à croire que l'on parle dans le vent des fois.