Re: [prog] importer un fichier de données dan s calc

Fri, 02 Jun 2006 01:14:52 -0700 

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]

Répondre à