Message de rapport:   Re: Importation csv impossible Sujet: Re: Importation csv impossible par JYM sur 21/12/2006 16:07:33 Bonjour, j'ai fait quelques simplifications, Cordialement, JYM nIdFic=fOuvre(Fichiercsv,foLecture) SI nIdFic=-1 ALORS Erreur("Impossible d'ouvrir le fichier.",... "Vérifier qu'il n'est pas déjà ouvert sur une autre application.",xlsMsgErreur(nIdFic))<=== c'est pas un fichier excel RETOUR FIN TableSupprimeTout(TableImport) sLigne= fLitLigne(nIdFic) //Premiere ligne contenant les données nPremièreLigne = 1 sinon nPremièreLigne=2 nNbColonnes est un entier= ChaîneOccurrence(sLigne, ";")+1 liLigne est un entier TANTQUE sLigne <> EOT et sLigne<>"" // on remplit la table mémoire liligne=TableAjouteLigne(TableImport) // on construit la ligne lue POUR nColonne =1 A nNbColonnes sdonnee=ExtraitChaîne(sLigne,nColonne,";") // on supprime les guillemets sdonnee=remplace(sdonnee,"""","") tableimport[nColonne][liligne]=sdonnee // si c'est un numérique SI NumériqueVersChaine(Val(sdonnee))=sdonnee ALORS tableimport[nColonne][liligne]..CadrageHorizontal=iDroite SINON tableimport[nColonne][liligne]..CadrageHorizontal=iGauche FIN FIN sLigne = fLitLigne(nIdFic) FIN

Connexion Pseudo :  Mot de passe :  Perdu le mot de passe ? Inscrivez-vous maintenant ! Menu Accueil Dossiers Articles Forums Petites Annonces Téléchargements FAQ Gabarits Glossaire Partenaires Livre d'or Réaliser un lien Plan du site Chercher WDForge avancée Chercher Web options Partenaires Visualiser tous les Partenaires...

WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |