Extrait de travail

plop petit extrait de code que j'ai fais sous webdev

Code:

//declaration des variable N, N1 ect... representant les mois sélectionnés pour l'analyse
N,N1,N2,NA1,N1A1,N2A1 sont des chaînes
//désignation du chemin tempo dans le repertoire temporaire du systeme de l'utilisateur pour stocker les infos
tempo est une chaîne
tempo=fRépertoireTemp()
N=UploadCopieFichier(Sai_Mois,tempo,"N")
N1=UploadCopieFichier(Sai_Mois,tempo,"N-1")
N2=UploadCopieFichier(Sai_Mois,tempo,"N-2")
NA1=UploadCopieFichier(Sai_Mois,tempo,"NA-1")
N1A1=UploadCopieFichier(Sai_Mois,tempo,"N-1A-1")
N2A1=UploadCopieFichier(Sai_Mois,tempo,"N-2A-1")
//verification du fichier sélectionner non vide et bien de type .txt
SI  Sai_Mois ="" OU Droite(N,4)<>".txt" OU Droite(N1,4)<>".txt" OU Droite(N2,4)<>".txt"...
OU Droite(NA1,4)<>".txt" OU Droite(N1A1,4)<>".txt" OU Droite(N2A1,4)<>".txt" ALORS
   Info("veuillez selectionner un fichier txt")
//enregistrement des données   
SINON
   SELON BTN_Choix..Libellé
   CAS "Mois N" :
      Lib_TextEtat..Visible=Vrai
      BTN_Choix..Libellé="Mois N-1"
      UploadCopieFichier(Sai_Mois,tempo,"N")
   CAS "Mois N-1" : 
      BTN_Choix..Libellé="Mois N-2"
      Lib_TextEtat..Valeur="Vous avez sélectionné le deuxième mois, merci de choisir le mois N-2 ."
      Lib_TextEtat..Couleur=iRougeFoncé
      UploadCopieFichier(Sai_Mois,tempo,"N-1")
   CAS "Mois N-2" :
      BTN_Choix..Libellé="Mois N de Année-1"
      Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-2 , merci de choisir le mois N de l'année PRECEDENTE."
      UploadCopieFichier(Sai_Mois,tempo,"N-2")
   CAS "Mois N de Année-1" :
      BTN_Choix..Libellé="Mois N-1 de Année-1"
      Lib_TextEtat..Valeur="Vous avez sélectionné le mois N de l'année PRECEDENTE , merci de choisir le mois N-1 de l'année PRECEDENTE."
      UploadCopieFichier(Sai_Mois,tempo,"NA-1")
   CAS "Mois N-1 de Année-1" :
      BTN_Choix..Libellé="Mois N-2 de Année-1"
      Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-1 de l'année PRECEDENTE , merci de choisir le mois N-2 de l'année PRECEDENTE."
      UploadCopieFichier(Sai_Mois,tempo,"N-1A-1")
   CAS "Mois N-2 de Année-1" :
      BTN_Choix..Visible=Faux
      Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-2 de l'année PRECEDENTE , cliquez sur envoyer pour voir les valeurs demandées."
      UploadCopieFichier(Sai_Mois,tempo,"N-2A-1")
FIN
FIN

je suis assez content j'arrive pour l'i,nstant a bien m'en sortir , et a mort VB et vive windev et webdev

Qu'est ce qui a,qu'est ce qui a toi tu m'engraine????
lol
Sa va mais regarde ce que moi j'ai fait!!!
Toi c'est rien par rapport à moi

//declaration des variable N, N1 ect... representant les mois sélectionnés pour l'analyse
N,N1,N2,NA1,N1A1,N2A1 sont des chaînes
//désignation du chemin tempo dans le repertoire temporaire du systeme de l'utilisateur pour stocker les infos
tempo est une chaîne
tempo=fRépertoireTemp()
N=UploadCopieFichier(Sai_Mois,tempo,"N")
N1=UploadCopieFichier(Sai_Mois,tempo,"N-1")
N2=UploadCopieFichier(Sai_Mois,tempo,"N-2")
NA1=UploadCopieFichier(Sai_Mois,tempo,"NA-1")
N1A1=UploadCopieFichier(Sai_Mois,tempo,"N-1A-1")
N2A1=UploadCopieFichier(Sai_Mois,tempo,"N-2A-1")
//verification du fichier sélectionner non vide et bien de type .txt
SI Sai_Mois ="" OU Droite(N,4)<>".txt" OU Droite(N1,4)<>".txt" OU Droite(N2,4)<>".txt"...
OU Droite(NA1,4)<>".txt" OU Droite(N1A1,4)<>".txt" OU Droite(N2A1,4)<>".txt" ALORS
Info("veuillez selectionner un fichier txt")
//enregistrement des données
SINON
SELON BTN_Choix..Libellé
CAS "Mois N" :
Lib_TextEtat..Visible=Vrai
BTN_Choix..Libellé="Mois N-1"
UploadCopieFichier(Sai_Mois,tempo,"N")
CAS "Mois N-1" :
BTN_Choix..Libellé="Mois N-2"
Lib_TextEtat..Valeur="Vous avez sélectionné le deuxième mois, merci de choisir le mois N-2 ."
Lib_TextEtat..Couleur=iRougeFoncé
UploadCopieFichier(Sai_Mois,tempo,"N-1")
CAS "Mois N-2" :
BTN_Choix..Libellé="Mois N de Année-1"
Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-2 , merci de choisir le mois N de l'année PRECEDENTE."
UploadCopieFichier(Sai_Mois,tempo,"N-2")
CAS "Mois N de Année-1" :
BTN_Choix..Libellé="Mois N-1 de Année-1"
Lib_TextEtat..Valeur="Vous avez sélectionné le mois N de l'année PRECEDENTE , merci de choisir le mois N-1 de l'année PRECEDENTE."
UploadCopieFichier(Sai_Mois,tempo,"NA-1")
CAS "Mois N-1 de Année-1" :
BTN_Choix..Libellé="Mois N-2 de Année-1"
Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-1 de l'année PRECEDENTE , merci de choisir le mois N-2 de l'année PRECEDENTE."
UploadCopieFichier(Sai_Mois,tempo,"N-1A-1")
CAS "Mois N-2 de Année-1" :
BTN_Choix..Visible=Faux
Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-2 de l'année PRECEDENTE , cliquez sur envoyer pour voir les valeurs demandées."
UploadCopieFichier(Sai_Mois,tempo,"N-2A-1")
FIN
FIN
ET REFIN ET TOK!!!!!