1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125
|
vnomfic est une chaîne
Unfichier, ResListefichiers sont des chaînes
vficstatus est un xlsDocument
vnblig,vnbfeuille,vnumfeuille est un entier
vnomfeuille est une chaîne
vreptraite est une chaîne
Iligdestination,i est un entier
vbrut,vnet est un entier
vrepdeb est une chaîne
vfeuille,vresult est un booléen
vcolonne est une xlsColonne
// Paramètre le cadre
varCadre est un Cadre
varCadre..Epaisseur = 2
varCadre..Couleur = Noir
vrepdeb="G:\informatique\Applications métiers\Task Force\" // répertoire initial
ResListefichiers = fListeFichier("G:\informatique\Applications métiers\Task Force\*.xlsx",frNonRécursif) // liste des fichiers xlsx du répertoire
// Pour chaque fichier trouvé
POUR TOUTE CHAÎNE Unfichier DE ResListefichiers SEPAREE PAR RC
vnomfic = ExtraitChaîne(Unfichier,1,"\",DepuisFin) // on récupère juste le nom du fichier
vficstatus = xlsOuvre(Unfichier) // on ouvre le premier fichier xlsx
SI vficstatus = -1 ALORS
Erreur("Fichier Excel inaccessible")
RETOUR
FIN
vreptraite="G:\informatique\Applications métiers\Task Force\Traite\" + vnomfic // répertoire de destination
vnbfeuille=xlsNbFeuille(vficstatus) // on récupère le nombre de feuilles du fichier
vficstatus2 est un xlsDocument
POUR i = 1 À vnbfeuille // pour chaque feuille
vnumfeuille=i
xlsFeuilleEnCours(vficstatus,vnumfeuille) // feuille en cours
vnomfeuille=vficstatus..NomFeuille // nom de la feuille en cours
vnblig=xlsNbLigne(vficstatus) // nombre de lignes
vfeuille=xlsAjouteFeuille(vficstatus2,vnomfeuille,vnumfeuille) // on ajoute la feuille dans le nouveau fichier
vcolonne..Largeur = 300 // largeurs colonnes
vficstatus2..Colonne[1]=vcolonne
vcolonne..Largeur = 150
vficstatus2..Colonne[2]=vcolonne
vficstatus2..Colonne[3]=vcolonne
vficstatus2..Colonne[4]=vcolonne
vficstatus2..Colonne[5]=vcolonne
vficstatus2[1,"A"]="" // première entête du nouveau fichier
vficstatus2[1,"B"]="Société1"
vficstatus2[1,"C"]=""
vficstatus2[1,"D"]="Société2"
vficstatus2[1,"E"]=""
vficstatus2[2,"A"]="Rue" // 2ème entête du nouveau fichier qui
vficstatus2[2,"B"]="Brut" // est la première entête du fichier lu
vficstatus2[2,"C"]="Net"
vficstatus2[2,"D"]="Brut"
vficstatus2[2,"E"]="Net"
vficstatus2[2,"A"]..Cadre=varCadre
vficstatus2[2,"B"]..Cadre=varCadre
vficstatus2[2,"C"]..Cadre=varCadre
vficstatus2[2,"D"]..Cadre=varCadre
vficstatus2[2,"E"]..Cadre=varCadre
POUR ilig = 2 À vnblig // traitement des lignes du fichier lu et création des colonnes du nouveau fichier
Iligdestination=ilig+1 // incrémentation du numéro de ligne du nouveau fichier
vbrut=xlsDonnée(vficstatus,ilig,6) // vbrut est un entier qui contient la valeur de la colonne 6 du fichier lu
vnet=xlsDonnée(vficstatus,ilig,9) // vnet est un entier qui contient la valeur de la colonne 9 du fichier lu
vficstatus2[Iligdestination,"A"]=xlsDonnée(vficstatus,ilig,2)
vficstatus2[Iligdestination,"B"]=vbrut
vficstatus2[Iligdestination,"C"]=vnet
vficstatus2[Iligdestination,"D"]=""
vficstatus2[Iligdestination,"E"]=""
vficstatus2[Iligdestination,"B"]..AlignementH=chDroite // alignement a droite pour les valeurs numériques
vficstatus2[Iligdestination,"C"]..AlignementH=chDroite
vficstatus2[Iligdestination,"B"]..CouleurFond=OrangeClair // changement de couleur de fond
vficstatus2[Iligdestination,"C"]..CouleurFond=OrangeClair
vficstatus2[Iligdestination,"D"]..CouleurFond=JauneClair
vficstatus2[Iligdestination,"E"]..CouleurFond=JauneClair
vficstatus2[Iligdestination,"A"]..Cadre=varCadre
vficstatus2[Iligdestination,"B"]..Cadre=varCadre
vficstatus2[Iligdestination,"C"]..Cadre=varCadre
vficstatus2[Iligdestination,"D"]..Cadre=varCadre
vficstatus2[Iligdestination,"E"]..Cadre=varCadre
FIN
lib_fic_ori=vnomfic // sert à l'affichage du fichier traité
lib_feuille=vnomfeuille // sert à l'affichage de la feuille traité
FIN
Multitâche(150)
vresult=xlsSauve(vficstatus2,vreptraite)
xlsFerme(vficstatus2)
xlsFerme(vficstatus)
SI vresult = Vrai ALORS
fDéplaceFichier(Unfichier,"G:\informatique\Applications métiers\Task Force\ORI\"+vnomfic) // on déplace le fichier lu
SINON
Erreur("un fichier excel pas crée")
FIN
FIN |
Partager