Trop de données à importer dans une seule feuille excel
2 réponses
droudrounne
Bonjour
Je veux importer des données depuis un fichier texte mais le nombre
d'enregistrement dépasse le nb de ligne dans Excel.
Quelqu'un connait-il la procédure qui me permettrais de reprendre l'import
des données là ou excel s'est arreté et qu'il mette les lignes restantes sur
une autre feuille?
Je suis bloquée et je n'ai pas encore trouvé la réponse...
Merci à qui voudra bien me dépatouiller de ce simple mais épineux pb!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
Le principe
Sub ImportLargeFile()
'Imports text file into Excel workbook using ADO. 'If the number of records exceeds 65536 then it splits it over more than one sheet.
Dim strFilePath As String, strFilename As String, strFullPath As String Dim lngCounter As Long Dim oConn As Object, oRS As Object, oFSObj As Object
'Get a text file name strFullPath = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "Please select text file...")
If strFullPath = "False" Then Exit Sub 'User pressed Cancel on the open file dialog Application.ScreenUpdating = False
'This gives us a full path name e.g. C:folderfile.txt 'We need to split this into path and file name Set oFSObj = CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Je veux importer des données depuis un fichier texte mais le nombre d'enregistrement dépasse le nb de ligne dans Excel. Quelqu'un connait-il la procédure qui me permettrais de reprendre l'import des données là ou excel s'est arreté et qu'il mette les lignes restantes sur une autre feuille? Je suis bloquée et je n'ai pas encore trouvé la réponse... Merci à qui voudra bien me dépatouiller de ce simple mais épineux pb!
Bonjour,
Le principe
Sub ImportLargeFile()
'Imports text file into Excel workbook using ADO.
'If the number of records exceeds 65536 then it splits it over more than one sheet.
Dim strFilePath As String, strFilename As String, strFullPath As String
Dim lngCounter As Long
Dim oConn As Object, oRS As Object, oFSObj As Object
'Get a text file name
strFullPath = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "Please
select text file...")
If strFullPath = "False" Then Exit Sub 'User pressed Cancel on the open file dialog
Application.ScreenUpdating = False
'This gives us a full path name e.g. C:folderfile.txt
'We need to split this into path and file name
Set oFSObj = CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Je veux importer des données depuis un fichier texte mais le nombre
d'enregistrement dépasse le nb de ligne dans Excel.
Quelqu'un connait-il la procédure qui me permettrais de reprendre l'import
des données là ou excel s'est arreté et qu'il mette les lignes restantes sur
une autre feuille?
Je suis bloquée et je n'ai pas encore trouvé la réponse...
Merci à qui voudra bien me dépatouiller de ce simple mais épineux pb!
'Imports text file into Excel workbook using ADO. 'If the number of records exceeds 65536 then it splits it over more than one sheet.
Dim strFilePath As String, strFilename As String, strFullPath As String Dim lngCounter As Long Dim oConn As Object, oRS As Object, oFSObj As Object
'Get a text file name strFullPath = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "Please select text file...")
If strFullPath = "False" Then Exit Sub 'User pressed Cancel on the open file dialog Application.ScreenUpdating = False
'This gives us a full path name e.g. C:folderfile.txt 'We need to split this into path and file name Set oFSObj = CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Je veux importer des données depuis un fichier texte mais le nombre d'enregistrement dépasse le nb de ligne dans Excel. Quelqu'un connait-il la procédure qui me permettrais de reprendre l'import des données là ou excel s'est arreté et qu'il mette les lignes restantes sur une autre feuille? Je suis bloquée et je n'ai pas encore trouvé la réponse... Merci à qui voudra bien me dépatouiller de ce simple mais épineux pb!
Clément Marcotte
Bonjour,
Quelques exemples par là:
http://frederic.sigonneau.free.fr/Formats.htm
"droudrounne" a écrit dans le message de news:
Bonjour
Je veux importer des données depuis un fichier texte mais le nombre d'enregistrement dépasse le nb de ligne dans Excel. Quelqu'un connait-il la procédure qui me permettrais de reprendre l'import des données là ou excel s'est arreté et qu'il mette les lignes restantes sur une autre feuille? Je suis bloquée et je n'ai pas encore trouvé la réponse... Merci à qui voudra bien me dépatouiller de ce simple mais épineux pb!
Bonjour,
Quelques exemples par là:
http://frederic.sigonneau.free.fr/Formats.htm
"droudrounne" <droudrounne@discussions.microsoft.com> a écrit dans le
message de news: F69216B9-0959-45C9-A95D-3CA02E262E20@microsoft.com...
Bonjour
Je veux importer des données depuis un fichier texte mais le nombre
d'enregistrement dépasse le nb de ligne dans Excel.
Quelqu'un connait-il la procédure qui me permettrais de reprendre l'import
des données là ou excel s'est arreté et qu'il mette les lignes restantes
sur
une autre feuille?
Je suis bloquée et je n'ai pas encore trouvé la réponse...
Merci à qui voudra bien me dépatouiller de ce simple mais épineux pb!
Je veux importer des données depuis un fichier texte mais le nombre d'enregistrement dépasse le nb de ligne dans Excel. Quelqu'un connait-il la procédure qui me permettrais de reprendre l'import des données là ou excel s'est arreté et qu'il mette les lignes restantes sur une autre feuille? Je suis bloquée et je n'ai pas encore trouvé la réponse... Merci à qui voudra bien me dépatouiller de ce simple mais épineux pb!