Sujet Précédent Sujet Suivant

Syntaxe trop grande :(

cs_sangho Messages postés 57 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 27 mai 2008 - 26 sept. 2003 à 13:24
cs_sangho Messages postés 57 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 27 mai 2008 - 26 sept. 2003 à 18:47
Je vous explique :p ; dans mon load de la feuille je ve charger 108 fichiers avec 40 ligne par fichier, mais voila je teste avec un chargement de 48 fichiers (de 40 lignes) = tous ce passe bien... Au dela de 48 fichiers un pitit message apparait lorsque je test ma form 'Erreur : Syntaxe trop grande"... Je voudrais savoir si ya pas un moyen enfin une solution a mon problème...

merchi bocoup a ce ki auron l'amabilité de me répondre

+++

Sangho

6 réponses

Réponse 1 / 6
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
26 sept. 2003 à 13:27
Heu... c'est la première fois que je vois une telle erreur !

Pourrais-tu nous donner le bout de code qui pose problème, car là, je ne vois pas d'où ca peut venir !

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]
0
Réponse 2 / 6
cs_sangho Messages postés 57 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 27 mai 2008
26 sept. 2003 à 13:45
Voici le code :(Cettre fenetre sert a entrer le nom d'une personne qui reserve une salle (ya 9 salle) pamis 12 mois...Private Sub Form_Load()Dim u1 As DoubleDim u2 As DoubleDim t1 As DoubleNom2E = choixsalle.Text1.textmoisE = choixsalle.Text2.textjanv01.Caption = "Planning de la " & Nom2E & " [mois de " & moisE & "]"Text1.text = choixsalle.Text2.textText34.text = choixsalle.Text1.text'=============CORRESPONDANCE TTOUTE LES SALLE AVEC LA SALLE CHOISIELabel37.Caption = choixsalle.Option1.CaptionLabel38.Caption = choixsalle.Option2.CaptionLabel39.Caption = choixsalle.Option3.CaptionLabel40.Caption = choixsalle.Option4.CaptionLabel41.Caption = choixsalle.Option5.CaptionLabel42.Caption = choixsalle.Option6.CaptionLabel43.Caption = choixsalle.Option7.CaptionLabel44.Caption = choixsalle.Option8.CaptionLabel45.Caption = choixsalle.Option9.Caption'================= ATTRIBUTION N°If Text1.text = Label46.Caption Then Text35.text = 1If Text1.text = Label47.Caption Then Text35.text = 2If Text1.text = Label48.Caption Then Text35.text = 3If Text1.text = Label49.Caption Then Text35.text = 4If Text1.text = Label50.Caption Then Text35.text = 5If Text1.text = Label51.Caption Then Text35.text = 6If Text1.text = Label52.Caption Then Text35.text = 7If Text1.text = Label53.Caption Then Text35.text = 8If Text1.text = Label54.Caption Then Text35.text = 9If Text1.text = Label55.Caption Then Text35.text = 10If Text1.text = Label56.Caption Then Text35.text = 11If Text1.text = Label57.Caption Then Text35.text = 12If Text34.text = Label37.Caption Then Text36.text = 101If Text34.text = Label38.Caption Then Text36.text = 201If Text34.text = Label39.Caption Then Text36.text = 301If Text34.text = Label40.Caption Then Text36.text = 401If Text34.text = Label41.Caption Then Text36.text = 501If Text34.text = Label42.Caption Then Text36.text = 601If Text34.text = Label43.Caption Then Text36.text = 701If Text34.text = Label44.Caption Then Text36.text = 801If Text34.text = Label45.Caption Then Text36.text = 901u1 = Text35.textu2 = Text36.textt1 = u2 * u1Text37.text = t1'===============FIN ================================='================ PROG MOIS SELON LA SALLE N1===========If Text37.text = "101" Thenchemin1E = Text33.textOpen chemin1E & "01Janv01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Janv02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "202" Thenchemin1E = Text33.textOpen chemin1E & "01Fev01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Fev02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "303" Thenchemin1E = Text33.textOpen chemin1E & "01Mars01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Mars02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "404" Thenchemin1E = Text33.textOpen chemin1E & "01Avr01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Avr02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "505" Thenchemin1E = Text33.textOpen chemin1E & "01Mai01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Mai02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "606" Thenchemin1E = Text33.textOpen chemin1E & "01Juin01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Juin02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "707" Thenchemin1E = Text33.textOpen chemin1E & "01Juil01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Juil.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "808" Thenchemin1E = Text33.textOpen chemin1E & "01Aou01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Aou02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "909" Thenchemin1E = Text33.textOpen chemin1E & "01Sep01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Sep02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1010" Thenchemin1E = Text33.textOpen chemin1E & "01Oct01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Oct02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1111" Thenchemin1E = Text33.textOpen chemin1E & "01Nov01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Nov02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1212" Thenchemin1E = Text33.textOpen chemin1E & "01Dec01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin1E & "01Dec02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End If'=========== SALLE N°2If Text37.text = "201" Thenchemin2E = Text38.textOpen chemin2E & "02Janv01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Janv02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "402" Thenchemin2E = Text38.textOpen chemin2E & "02Fev01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Fev02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "603" Thenchemin2E = Text38.textOpen chemin2E & "02Mars01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Mars02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "804" Thenchemin2E = Text38.textOpen chemin2E & "02Avr01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Avr02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1005" Thenchemin2E = Text38.textOpen chemin2E & "02Mai01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Mai02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1206" Thenchemin2E = Text38.textOpen chemin2E & "02Juin01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Juin02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1407" Thenchemin2E = Text38.textOpen chemin2E & "02Juil01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Juil02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1608" Thenchemin2E = Text38.textOpen chemin2E & "02Aou01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Aou02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1809" Thenchemin2E = Text38.textOpen chemin2E & "02Sep01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Sep02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "2010" Thenchemin2E = Text38.textOpen chemin2E & "02Oct01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Oct02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "2211" Thenchemin2E = Text38.textOpen chemin2E & "02Nov01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Nov02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "2412" Thenchemin2E = Text38.textOpen chemin2E & "02Dec01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin2E & "02Dec02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End If'========= SALLE N°3If Text37.text = "301" Thenchemin3E = Text39.textOpen chemin3E & "03Janv01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Janv02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "602" Thenchemin3E = Text39.textOpen chemin3E & "03Fev01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Fev02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "903" Thenchemin3E = Text39.textOpen chemin3E & "03Mars01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Mars02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1204" Thenchemin3E = Text39.textOpen chemin3E & "03Avr01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Avr02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1505" Thenchemin3E = Text39.textOpen chemin3E & "03Mai01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Mai02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "1806" Thenchemin3E = Text39.textOpen chemin3E & "03Juin01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Juin02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "2107" Thenchemin3E = Text39.textOpen chemin3E & "03Juil01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Juil02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "2408" Thenchemin3E = Text39.textOpen chemin3E & "03Aou01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Aou02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "2709" Thenchemin3E = Text39.textOpen chemin3E & "03Sep01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Sep02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "3010" Thenchemin3E = Text39.textOpen chemin3E & "03Oct01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Oct02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "3311" Thenchemin3E = Text39.textOpen chemin3E & "03Nov01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Nov02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfIf Text37.text = "3612" Thenchemin3E = Text39.textOpen chemin3E & "03Dec01.txt" For Input As #1Input #1, SaveText2.text = Replace(Save, VR, R)Input #1, SaveText3.text = Replace(Save, VR, R)Input #1, SaveText4.text = Replace(Save, VR, R)Input #1, SaveText5.text = Replace(Save, VR, R)Input #1, SaveText6.text = Replace(Save, VR, R)Input #1, SaveText7.text = Replace(Save, VR, R)Input #1, SaveText8.text = Replace(Save, VR, R)Input #1, SaveText9.text = Replace(Save, VR, R)Input #1, SaveText10.text = Replace(Save, VR, R)Input #1, SaveText11.text = Replace(Save, VR, R)Input #1, SaveText12.text = Replace(Save, VR, R)Input #1, SaveText13.text = Replace(Save, VR, R)Input #1, SaveText14.text = Replace(Save, VR, R)Input #1, SaveText15.text = Replace(Save, VR, R)Input #1, SaveText16.text = Replace(Save, VR, R)Input #1, SaveText17.text = Replace(Save, VR, R)Close "1"Open chemin3E & "03Dec02.txt" For Input As #2Input #2, SaveText18.text = Replace(Save, VR, R)Input #2, SaveText19.text = Replace(Save, VR, R)Input #2, SaveText20.text = Replace(Save, VR, R)Input #2, SaveText21.text = Replace(Save, VR, R)Input #2, SaveText22.text = Replace(Save, VR, R)Input #2, SaveText23.text = Replace(Save, VR, R)Input #2, SaveText24.text = Replace(Save, VR, R)Input #2, SaveText25.text = Replace(Save, VR, R)Input #2, SaveText26.text = Replace(Save, VR, R)Input #2, SaveText27.text = Replace(Save, VR, R)Input #2, SaveText28.text = Replace(Save, VR, R)Input #2, SaveText29.text = Replace(Save, VR, R)Input #2, SaveText30.text = Replace(Save, VR, R)Input #2, SaveText31.text = Replace(Save, VR, R)Input #2, SaveText32.text = Replace(Save, VR, R)Close "2"End IfEnd SubSangho
0
Réponse 3 / 6
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 sept. 2003 à 14:24
Bonjour

Ce ne serait pas

Close 1 ou Close #1 à la place de Close "1" ?
0
Réponse 4 / 6
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
26 sept. 2003 à 14:27
ah ben oui, forcément, ca fait un peu long !

Un conseil : fait des groupes de contrôles : des contrôles qui ont le même nom, mais qui sont différent par leur numéro d'index.

Par exemple, le code : 

Open chemin1E & "01Janv01.txt" For Input As #1
Input #1, Save
Text2.text = Replace(Save, VR, R)
Input #1, Save
Text3.text = Replace(Save, VR, R)
Input #1, Save
Text4.text = Replace(Save, VR, R)
Input #1, Save
Text5.text = Replace(Save, VR, R)
Input #1, Save
Text6.text = Replace(Save, VR, R)
Input #1, Save
Text7.text = Replace(Save, VR, R)
Input #1, Save
Text8.text = Replace(Save, VR, R)
Input #1, Save
Text9.text = Replace(Save, VR, R)
Input #1, Save
Text10.text = Replace(Save, VR, R)
Input #1, Save
Text11.text = Replace(Save, VR, R)
Input #1, Save
Text12.text = Replace(Save, VR, R)
Input #1, Save
Text13.text = Replace(Save, VR, R)
Input #1, Save
Text14.text = Replace(Save, VR, R)
Input #1, Save
Text15.text = Replace(Save, VR, R)
Input #1, Save
Text16.text = Replace(Save, VR, R)
Input #1, Save
Text17.text = Replace(Save, VR, R)
Close "1"


Devient : 

Open chemin1E & "01Janv01.txt" For Input As #1
for int_for1 = 2 to 17
Input #1, Save
Text1(int_for1).text = Replace(Save, VR, R)
next int_for1
Close "1"


déjà, rien qu'avec des groupes de contrôles, tu pourrais y gagner énormément de place !

De plus, au lieu d'utiliser des If pour définir toutes les options d'un contrôle (comme tu le fais au début de ton code) utilise un Select Case, c'est beaucoup plus rapide et facile à lire !

Déjà, quand tu aura fais cà, ton code sera plus lisible, plus compact, et peut-être qu'il marchera !

Tiens nous au courant
DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
26 sept. 2003 à 14:28
Ah oui, comme le dit rené, vérifie ta syntaxe Close pour tes fichiers : il doit s'agit d'un interger normalement !

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]
0
Réponse 6 / 6
cs_sangho Messages postés 57 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 27 mai 2008
26 sept. 2003 à 18:47
Merchi bocoup tous les 2,

je V essayer cela et je vous dis ensuit :p

++++

Et ke le St PROG soit avec nous ....

Sangho
0

Discussions similaires

Erreur de compilation, procédure trop grande
AlfaDemeter -
AlfaDemeter -

7 réponses
Message d'erreur : procédure trop grande
BAUHAUS44 -
MadM@tt -

9 réponses
VBA ACCES : ERREUR DE COMPILATION : PROCEDURE TROP GRANDE
APPRENTI_CCM -
NHenry -

1 réponse
vb6 Procédure trop grande !!!
batao -
batao -

8 réponses
Erreur de compilation: La déclaration de la procédure ne correspond pas à la des
Zappam -
bouv -

1 réponse
Rejoignez-nous