| Posté le 07 janvier 2005 - 15:23 |
avec le l'exemple code ci dessous
bon courage
i,NbrEnr,x sont des entiers
selectok est un booléen
NomFichierXls est une chaîne
NumFichierXls est un entier
NbLigneXls est une entier
Iter est un entier
an est une chaîne
mm est une chaîne
jj est une chaîne
clepro est un entier
nomsoc est une chaîne
NomFichierXls = fSélecteur("","","Sélection d'un fichier xls","Excel"+TAB+"*.xls","xls")
//Si la séléction est annulée, arrêt de la procédure
SI NomFichierXls = "" ALORS RETOUR
//Import du fichier
//Ouverture du fichier
NumFichierXls = xlsOuvre(NomFichierXls)
//Si le fichier ne s'ouvre pas, message d'erreur
SI NumFichierXls = -1 ALORS
Erreur("Impossible d'ouvrir le fichier "+NomFichierXls+RC+...
"trôp volumineux")
RETOUR
FIN
Sablier(Vrai)
//Nombre de lignes à importer
Iter = 0
HLitDernier(PROSPECT,PRCLEUNIK)
x=PROSPECT.PRCLEUNIK
NbLigneXls = xlsNbLignes(NumFichierXls)
//Boucle sur le nombre de ligne
POUR Iter =2 A NbLigneXls
Jauge(Iter,NbLigneXls,"Importation en cours")
SI HDoublon() ALORS Jauge(Iter,NbLigneXls,"Importation en cours")
PROSPECT.COCLEUNIK=2
PROSPECT.PRCLEUNIK=Iter+x
PROSPECT.RAISON_SOC =xlsDonnée(NumFichierXls,Iter,1,Faux)
SI xlsDonnée(NumFichierXls,Iter,2,Faux)=1 ALORS PROSPECT.CIVI1="Mr"
SI xlsDonnée(NumFichierXls,Iter,2,Faux)=2 ALORS PROSPECT.CIVI1="Mme"
SI xlsDonnée(NumFichierXls,Iter,2,Faux)=3 ALORS PROSPECT.CIVI1="Melle"
PROSPECT.RESPONSABL=xlsDonnée(NumFichierXls,Iter,3,Faux)+" "+xlsDonnée(NumFichierXls,Iter,4,Faux)
PROSPECT.TEL_FAC=xlsDonnée(NumFichierXls,Iter,5,Faux)
PROSPECT.ADRESSE =xlsDonnée(NumFichierXls,Iter,17,Faux)
PROSPECT.CODEP=xlsDonnée(NumFichierXls,Iter,11,Faux)
PROSPECT.VILLE=xlsDonnée(NumFichierXls,Iter,12,Faux)
PROSPECT.TELEPHONE =xlsDonnée(NumFichierXls,Iter,5,Faux)
PROSPECT.TELECOPIE =xlsDonnée(NumFichierXls,Iter,8,Faux)
PROSPECT.ACTIVITE =xlsDonnée(NumFichierXls,Iter,20,Faux)
PROSPECT.ADR_FAC=xlsDonnée(NumFichierXls,Iter,17,Faux)
PROSPECT.CPVFAC=xlsDonnée(NumFichierXls,Iter,11,Faux)
PROSPECT.VILLEFAC=xlsDonnée(NumFichierXls,Iter,12,Faux)
PROSPECT.TELECOPFAC=xlsDonnée(NumFichierXls,Iter,8,Faux)
PROSPECT.CREATION=xlsDonnée(NumFichierXls,Iter,14,Faux)
PROSPECT.CLIPRO=2
PROSPECT.NUM_CLIENT=""
PROSPECT.CYCLE=1
PROSPECT.DATE_CYCLE=DateSys()
PROSPECT.ORIGINE=6
PROSPECT.DECISION=""
PROSPECT.PRESCRIPT=""
PROSPECT.SIGNATAIRE=""
PROSPECT.ACTIVITE=xlsDonnée(NumFichierXls,Iter,22,Faux)
PROSPECT.NOTES=xlsDonnée(NumFichierXls,Iter,25,Faux)
PROSPECT.affaire=""
PROSPECT.mt_affaire=0
PROSPECT.FAMILLE=""
PROSPECT.STATUT=""
PROSPECT.CAPITAL=0
PROSPECT.SIRET=""
PROSPECT.APE=""
PROSPECT.ASSISTANTE=xlsDonnée(NumFichierXls,Iter,10,Faux)
PROSPECT.AD_MAIL=xlsDonnée(NumFichierXls,Iter,19,Faux)
PROSPECT.PORTABLE=xlsDonnée(NumFichierXls,Iter,9,Faux)
PROSPECT.PROCH_ACTION=xlsDonnée(NumFichierXls,Iter,15,Faux)
PROSPECT.N_DIRECT=xlsDonnée(NumFichierXls,Iter,18,Faux)
PROSPECT.SITE_INTER=xlsDonnée(NumFichierXls,Iter,21,Faux)
PROSPECT.FONC_res=xlsDonnée(NumFichierXls,Iter,18,Faux)
HAjoute("prospect")
FIN
//Fermeture du fichier xls
xlsFerme(NumFichierXls)
//Réaffichage de la table
Sablier(Faux)
Ferme |
| |
| |
|