Bonjour, don enfait j'écris un fichier de cette façon :
Et j'aimerais gérer un nouveau contrôle puisque sur certaines périodes il n'y a aucune prises de faites donc au lieu de créer un fichier vide je voudrais afficher un MsgBox("Aucune prise de faites) puis revenir en arrière pour qu l'utilisateur change sa période.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 While ligne IsNot Nothing 'tant que je ne suis à la fin on continue fields = ligne.Split(delimiter) If fields.GetValue(1) = "PRI" And fields.GetValue(0) >= Debut And fields.GetValue(0) <= Fin Then ' Then 'si les colonnes n°1 et 2 (index de début = 0) correspondent à ma condition je la stocke JeGArde.AppendLine(ligne) End If ligne = Lect.ReadLine 'on passe à la ligne suivante End While End If 'je réécris les lignes que j'ai gardé My.Computer.FileSystem.WriteAllText(Newfilename, JeGArde.ToString, False) MsgBox("Votre nouveau fichier a été créé !")
A cet endroit :
Après l'affichage d'un de ces messages d'erreurs je voudrais retourner au début avec si possibilité mais c'est optionnel l'affichage de la faute (l'utilisateur peut ainsi se rendre compte de son erreur)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 If Debut > Now Or Fin > Now Then MsgBox("Date(s) non valide(s) !") ElseIf Fin < Debut Then MsgBox("Date de fin < Date de début !")
Merci beaucoup par avance
Partager