Runtime error 9 Subscript out of range [Résolu]
cs_Enyx
- Messages postés
- 16
- Date d'inscription
- dimanche 25 juin 2006
- Statut
- Membre
- Dernière intervention
- 19 juin 2007
- Messages postés
- 14
- Date d'inscription
- mardi 29 mai 2007
- Statut
- Membre
- Dernière intervention
- 15 juin 2007
A voir également:
- Run time error 9
- Runtime error 9 - Meilleures réponses
- Visual basic runtime error 9 - Meilleures réponses
- Run time error '9', grosse macro, compatibilite excel 2003 - excel 2007 ✓ - Forum - Visual Basic 6
- Run time error 9 subscript out of range ✓ - Forum - Visual Basic 6
- Run time error 94 ✓ - Forum - Visual Basic
- Run time error 62 input past end of file - Forum - Visual Basic
- Run time error 424 - Forum - Visual Basic
17 réponses
Meilleure réponse
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
Seule conclusion possible après lecture et relecture de tout depuis le début :
Je voisque ton fichier texte contient une virgule !
Et que tu utilises input, ce qui fait que texte = "17.04" !!!
Utilise Line Input ...
Je voisque ton fichier texte contient une virgule !
Et que tu utilises input, ce qui fait que texte = "17.04" !!!
Utilise Line Input ...
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
203 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
- Messages postés
- 16
- Date d'inscription
- dimanche 25 juin 2006
- Statut
- Membre
- Dernière intervention
- 19 juin 2007
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
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
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
- Messages postés
- 17280
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 21 juillet 2019
BIEN VU jmfmarques !
en passant, Enyx,
Vous êtes ici :
Thèmes / VB.NET et VB 2005 /
trompé de catégorie, non ?
Renfield
Admin CodeS-SourceS- MVP Visual Basic
en passant, Enyx,
Vous êtes ici :
Thèmes / VB.NET et VB 2005 /
trompé de catégorie, non ?
Renfield
Admin CodeS-SourceS- MVP Visual Basic
- Messages postés
- 7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
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.
M'enfin...
@+: Ju£i?n
Pensez: Réponse acceptée
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.
M'enfin...
@+: Ju£i?n
Pensez: Réponse acceptée
- Messages postés
- 16
- Date d'inscription
- dimanche 25 juin 2006
- Statut
- Membre
- Dernière intervention
- 19 juin 2007
Je vous est comuniqué le contenu de la variable texte car jai effectué la fonction msgbox
Enyx à dit :
La variable texte contien le contenu d'un fichier texte
Voila texte= "17.04,07.06.2007|réseaux|hh:mm:ss|jj/mm/aaaa"
Je ne le peut étre pas mis dans mon code que j'ai afficher en suite mais je les bien réalisé
Bon je ne veut continuer sur ce sujet...
Je tien juste à dire merci à jmfmarques et aux membres de Vbfrance pour leurs aide et leurs rapiditées
Tchao
Enyx à dit :
La variable texte contien le contenu d'un fichier texte
Voila texte= "17.04,07.06.2007|réseaux|hh:mm:ss|jj/mm/aaaa"
Je ne le peut étre pas mis dans mon code que j'ai afficher en suite mais je les bien réalisé
Bon je ne veut continuer sur ce sujet...
Je tien juste à dire merci à jmfmarques et aux membres de Vbfrance pour leurs aide et leurs rapiditées
Tchao
- Messages postés
- 14
- Date d'inscription
- mardi 29 mai 2007
- Statut
- Membre
- Dernière intervention
- 15 juin 2007