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)
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 ! :
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]