Bonjour, Ne serait-ce pas plus simple d'importer le fichier de données au format CSV en spécifiant le séparateur?
Cdlt, Emmanuel > -----Message d'origine----- > De : Sebastien Remy [mailto:[EMAIL PROTECTED] > Envoyé : vendredi 2 juin 2006 10:15 > À : prog@fr.openoffice.org > Objet : Re: [prog] importer un fichier de données dans calc > > > Olivier Villatte a écrit : > > > Bonjour Sebastien, > > > > J'ai aussi besoin de cette fonctionnalité pour intégrer > dans calc des > > résultats de requetes. > > > > tu peux essayer ce bout de code (séparateur |) > > > > ' Définit le nom du fichier > > Filename = "X:\fichier.txt" > > Doc = StarDesktop.loadComponentFromURL("private:factory/scalc", > > "_blank", 0, arg) > > Sheet = Doc.Sheets(0) > > Ligne = 0 > > FileNo = Freefile > > Open Filename For Input As FileNo > > Do While not eof(FileNo) > > ' Lit la ligne > > Line Input #FileNo, CurrentLine > > If CurrentLine <>"" then > > TmpString = CurrentLine & "|" > > Colonne = 0 > > Do while len(TmpString) >1 > > cell = Sheet.getCellByPosition(colonne,Ligne) > > 'myTemp sert juste à verifier qu'une chaine comportant > > juste un E ou D et des numériques ne > > 'sera pas importé comme un nombre en ecriture > scientifique > > (ex 02E03) > > myTemp = InStr(rtrim(left(TmpString, InStr(TmpString, > > "|")-1)), "E") + _ > > InStr(rtrim(left(TmpString, InStr(TmpString, > > "|")-1)), "D") > > if myTemp <> 0 then > > cell.String = ltrim(rtrim(rtrim(left(TmpString, > > InStr(TmpString, "|")-1)))) > > else > > cell.FormulaLocal = ltrim(rtrim(left(TmpString, > > InStr(TmpString, "|")-1))) > > endif > > TmpString = right(TmpString, > > len(TmpString)-InStr(TmpString, "|")) > > colonne = colonne +1 > > Loop > > Ligne = Ligne +1 > > end if > > Loop > > ' Ferme le fichier > > Close #FileNo > > > > > > Olivier > > > Ca marche !!! Merci beaucoup Olivier > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
