cs_Enyx
Messages postés16Date d'inscriptiondimanche 25 juin 2006StatutMembreDernière intervention19 juin 2007
-
11 juin 2007 à 12:08
gordonbrown
Messages postés14Date d'inscriptionmardi 29 mai 2007StatutMembreDernière intervention15 juin 2007
-
11 juin 2007 à 16:28
Bonjour a tous
Voila jai une erreur Runtime error 9 Subscript out of range quand j'execute mon prog sur un autre PC...
J'ai mis des msgbox pour savoir où mon code a un probléme
Et l'erreur ce trouve ici
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 11 juin 2007 à 12:15
Bonjour ,
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 !
cs_Enyx
Messages postés16Date d'inscriptiondimanche 25 juin 2006StatutMembreDernière intervention19 juin 2007 11 juin 2007 à 12:20
Désolé voila mon code
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
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 11 juin 2007 à 14:04
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.