Importer texte vers tableur

[Mat]

Bonjour,
voilà ce que j'aimerai faire: j'ai un fichier texte avec 2 colones de nombres !
J'aimerai importer ces colones vers un fichier excel existant, et ce sans ouvrir le fichier texte (avec excel ou koike ce soit d'autre)...

Si quelqu'un pouvait m'aider, c'est assez urgent !
Merci d'avance....

Mat

 

[Mat]

Pour ceux à qui ça dirait quelque chose de faire la meme chose, ben en fait j'ai fait tout simplement:

'cette fonction convertit le fichier texte en fichier excel, pas tres rapidement certes, mais bon...

Function convertir_txt(fichier)

Workbooks.OpenText FileName:=fichier _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 1), Array(2, 1))
ActiveWorkbook.SaveAs FileName:=fichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close


End Function

Ne pas oublier un senkeys "o" en amont pour virer la fenetre "etes vous sûr ... etc etc !!!
Quant à la fonction importer les valeurs, ca fait un truc comme ça :

Function GetValue(Path, file, Sheet, Ref)

Dim Arg As String

'Crée l'argument
Arg = "'" & Path & "[" & file & "]" & Sheet & "'!" & Range(Ref) _
.Range("A1").Address(, , xlR1C1)

'Exécute la macro XLM
GetValue = ExecuteExcel4Macro(Arg)

End Function

Voilà ...
@ bientot pour de nouvelles aventures