En fait la macro ne vérifie que le premier fichier de la liste...
Si le premier fichier de la liste à moins de 400 lignes > Message d'alerte
mais
Si un fichier "en plein milieu" de la liste à moins de 400 lignes, ça marche pas, pas d'alerte... (message ok)
![Sad :(](./images/smilies/icon_e_sad.gif)
J'ai essayé de faire une macro avec une boucle, mais elle ne marche pas non plus... pourtant je suis sur qu'il ne manque pas grand chose !
![Smile :)](./images/smilies/icon_e_smile.gif)
Code : Tout sélectionner
Variable <var_Nom>;;Alpha;
Variable <var_Compteur>;0;Numerique;
Variable [CLIPBOARD];[CLIPBOARD];Alpha;
Variable <Var_Nbre_d_enregistrements>;0;Numerique;
Variable <compter_lignes>;0;Numerique;
Variable <fichier>;;Alpha;
Fonction <Var_Nbre_d_enregistrements>;Fichier;Nombre d'enregistrement;D:\mails-a-vérifier.txt;
Boucle <Var_Nbre_d_enregistrements>
Calcul <var_Compteur>;+;1;
Lire D:\mails-a-vérifier.txt;<var_Nom>;<var_Compteur>;
Calcul évolué [CLIPBOARD]=<var_Nom>
Calcul évolué <fichier>=<var_Nom>+.txt
Fonction <compter_lignes>;Fichier;Nombre d'enregistrement;D:\listes\<fichier>;
Examine <compter_lignes>;<;400;
Goto <Fichier_inférieur_a_400_lignes>
Goto <Fichier_superieur_a_400_lignes>
Pause 00:00:01
Label <Fichier_inférieur_a_400_lignes>
Message Message;Fichier inférieur à 400 lignes;
Goto <continuer>
Label <Fichier_superieur_a_400_lignes>
Message Message;Fichier Ok;
Label <continuer>
Boucle [FIN]