Transfert d'un fichier texte vers excel
Miala
Messages postés
20
Statut
Membre
-
Miala Messages postés 20 Statut Membre -
Miala Messages postés 20 Statut Membre -
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?
A voir également:
- Transfert d'un fichier texte vers excel
- Fichier bin - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
- Liste déroulante excel - Guide