Import de fichier texte vers ExcelRésolu

Question

Bonjour, 

Une application en C++ me g&#233;n&#232;re un fichier texte avec s&#233;parateur (actuellement ';' mais &#231;a peut &#234;tre chang&#233;).

Je souhaite qu'une macro d'un classeur Excel vienne r&#233;cup&#233;rer ce
fichier, et faire des mises en forme (couleur, gras, italique...)

Mon probl&#232;me est l'import des donn&#233;es : copier l'ensemble des donn&#233;es dans la feuille Excel d&#233;j&#224; existante.



Merci pour votre aide et bonne f&#234;tes de fin d'ann&#233;e.



P.S : Si ma question n'est pas clair, n'h&#233;sitez pas &#224; me demander des d&#233;tails

Nico
Strasbourg
France

Tuning Max · Accepted Answer

Voil&#224; une petite macro qui devrait t'aider!

Sub MacroImport()
Dim wbk As Workbook, wbkTxt As Workbook, strchem


Set wbk = ActiveWorkbook
strchem = "Chemin et nom du fichier texte &#224; importer"
    Workbooks.OpenText Filename:= _
        strchem, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), TrailingMinusNumbers:=True
    ActiveSheet.Select
    ActiveSheet.Move Before:=wbk.Sheets(1)
    
End Sub

jpleroisse · Answer

Bonjour,

Ce code importe dans excel, le fichier texte, MonFichier.txt.



Sub ImporterFichier()

Dim r, Data

Range("A1").Select

Open "C:\Mes documents\MonFichier.txt" For Input As #1

r = 0

Do Until EOF(1)

 Line Input #1, Data

ActiveCell.Offset(r, 0) = Data

r = r + 1

Loop

Close #1

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

nico_fip1 · Answer

Merci pour vos 2 r&#233;ponses.

Je pr&#233;f&#232;re la 2&#232;me, car mes donn&#233;es sont importantes (env 50 000 enregistrements)

Juste une remarque :


Excel 97 n'accepte pas 



TrailingMinusNumbers:=True
voir l'aide de la fonction OpenText




Nico
Strasbourg
France

Tuning Max · Answer

tout &#224; fais, et comme tu ne l'avais pas pr&#233;cis&#233;, j'ai suppos&#233; que tu utilis&#233; un microsoft office r&#233;cent. Pour ma part cette macro &#224; &#233;t&#233; &#233;crite sous excel 2003

Import de fichier texte vers Excel

4 réponses

Discussions similaires