Importer texte vers tableur

  • Initiateur de la discussion Mat
  • Date de début
M

Mat

Guest
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
 
M

Mat

Guest
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
 

Discussions similaires

Réponses
3
Affichages
473
Compte Supprimé 979
C
Réponses
14
Affichages
564

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal