Transfert d'un fichier texte vers excel
Bonjour,
J'ai un gros soucis pour faire le transfert de données d'un fichier texte vers un fichier excel, mais en fesant le programme sous access. Si quelqu'un a un programme, je vous en serais reconnéssante.
Voilà mon code:
ChDir "E:\Recherche"
Workbooks.OpenText Filename:="E:\Recherche\FLD_001.TXT", Origin:=xlMSDOS, _
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), _
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), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _
Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _
29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _
Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array( _
42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), _
Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), Array(53, 1), Array(54, 1), Array( _
55, 1), Array(56, 1), Array(57, 1), Array(58, 1)), TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:="E:\Recherche\FLD_001.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Et ça ne passe pas, access97 me dit que j'ai une erreure de compilation et que la mémoire est insufisante, que doit-je faire en sachant que sur access2003 sa passe et que l'entreprise ne veut pas mettre 2003?
J'ai un gros soucis pour faire le transfert de données d'un fichier texte vers un fichier excel, mais en fesant le programme sous access. Si quelqu'un a un programme, je vous en serais reconnéssante.
Voilà mon code:
ChDir "E:\Recherche"
Workbooks.OpenText Filename:="E:\Recherche\FLD_001.TXT", Origin:=xlMSDOS, _
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), _
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), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _
Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _
29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _
Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array( _
42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), _
Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), Array(53, 1), Array(54, 1), Array( _
55, 1), Array(56, 1), Array(57, 1), Array(58, 1)), TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:="E:\Recherche\FLD_001.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Et ça ne passe pas, access97 me dit que j'ai une erreure de compilation et que la mémoire est insufisante, que doit-je faire en sachant que sur access2003 sa passe et que l'entreprise ne veut pas mettre 2003?
Configuration: Windows XP Internet Explorer 6.0
