Macro pour délimiter

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion hamza00
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

hamza00

Guest
Bonjour à tous,

j'ai un petit problème lors de l'enregistrement d'une macro !
je vous explique, je dois enregistrer une macro pour délimiter un long fichier texte mais j'y arrive pas !
pouvez vous m'aider
 
Trier par date Trier par votes
Re : Macro pour délimiter

Sub LargeFileImport()

' Dimension Variables.
Dim ResultStr As String
Dim FileName As Variant
Dim FileNum As Integer
Dim Counter As Double

' Ask User for file's name.
FileName = Application.GetOpenFilename("TEXT")

' Check for no entry.
If FileName = False Then End

' Get next available file handle number.
FileNum = FreeFile()

' Open text file for input.
Open FileName For Input As #FileNum

' Turn screen updating off.
Application.ScreenUpdating = False

' Create a new workbook with one worksheet in it.
Workbooks.Add template:=xlWorksheet

Counter = 1
' Loop until the end of file is reached.
Do While Seek(FileNum) <= LOF(FileNum)
' Display importing row number on status bar.
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
' Store one line of text from file to variable.
Line Input #FileNum, ResultStr
' Store variable data into active cell.
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
If ActiveCell.Row = 65536 Then
' If on the last row then add a new sheet.
ActiveWorkbook.Sheets.Add
Else
' If not the last row then go one cell down.
ActiveCell.Offset(1, 0).Select
End If
' Increment the counter by 1.
Counter = Counter + 1
' Start again at top of 'do while' statement.
Loop
' Close the open text file.
Close
' Remove message from status bar.
Application.StatusBar = False

End Sub

merci bcp mais il me dit Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet
 
Vote positif 0 Vote négatif
Re : Macro pour délimiter

Re

Finalement je repars sur vbscript
Code: 
Sub ab()
Dim oFSO
Dim oFS
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFS = oFSO.OpenTextFile("c:\temp\test.txt")
Do Until oFS.AtEndOfStream
i = i + 1
Cells(i, 1) = oFS.ReadLine
Loop
End Sub
PS:Bonjour Hasco 😉
C'est moi que tu assimiles à Skoobi?
Si c'est le cas, merci de l'honneur 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pour délimiter

Re

Hamza, si nous te demandons un bout de ton fichier texte c'est pour en connaître la structure exacte et voir ce que l'on peut faire pour toi.

Chaque cas est un cas particulier avec des besoins particulier.

A+

[Edit] Hey L'agrafe🙂, je m'ai encore trompé🙄
JC🙂 soleil radieux, sous le châtaigner, je me rafraichis d'une légère brise marine. (fin bulletin méto chalandaise)
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Macro pour délimiter

pour le fichier tu veux ke je te lenvoi par mail ou autre moyen pcq je narrive pa a le mettre comme piece jointe il me di qu'il est non valide !

pour ce code :
Sub LargeFileImport()

' Dimension Variables.
Dim ResultStr As String
Dim FileName As Variant
Dim FileNum As Integer
Dim Counter As Double

' Ask User for file's name.
FileName = Application.GetOpenFilename("TEXT")

' Check for no entry.
If FileName = False Then End

' Get next available file handle number.
FileNum = FreeFile()

' Open text file for input.
Open FileName For Input As #FileNum

' Turn screen updating off.
Application.ScreenUpdating = False

' Create a new workbook with one worksheet in it.
Workbooks.Add template:=xlWorksheet

Counter = 1
' Loop until the end of file is reached.
Do While Seek(FileNum) <= LOF(FileNum)
' Display importing row number on status bar.
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
' Store one line of text from file to variable.
Line Input #FileNum, ResultStr
' Store variable data into active cell.
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
If ActiveCell.Row = 65536 Then
' If on the last row then add a new sheet.
ActiveWorkbook.Sheets.Add
Else
' If not the last row then go one cell down.
ActiveCell.Offset(1, 0).Select
End If
' Increment the counter by 1.
Counter = Counter + 1
' Start again at top of 'do while' statement.
Loop
' Close the open text file.
Close
' Remove message from status bar.
Application.StatusBar = False

End Sub


L'erreur est au niveau de FileName = Application.GetOpenFilename("TEXT")
 
Vote positif 0 Vote négatif
Re : Macro pour délimiter

Bonjour à tous,

Peux-tu essayer avec :

Code: 
= Application.GetOpenFilename("Fichier Texte,*.txt")

à la place de

Code: 
= Application.GetOpenFilename("TEXT")

Pour joindre le fichier, il faut le zipper (compresser...)

A+ à tous
 
Vote positif 0 Vote négatif
Re : Macro pour délimiter

Hello le fil,

Petit aparté:

Hey L'agrafe🙂, je m'ai encore trompé🙄
JC🙂 soleil radieux, sous le châtaigner, je me rafraichis d'une légère brise marine. (fin bulletin méto chalandaise)

Hamza, c'est pour éviter ce genre de problème( en autres) qu'on te demande un bout de fichier.

A+
 
Vote positif 0 Vote négatif
Re : Macro pour délimiter

Re


hamza00:
C'était juste une macro exemple.

Sinon, la macro indiquée par Hascoobi 😀 doit fonctionner

PS: tu trouveras aussi des exemples de fils de discussions relatif à l'import de fichiers de plus de 65000 lignes.
Il faut juste le temps de retrouver les fils en question avec le moteur de recherche du forum
 
Vote positif 0 Vote négatif
Re : Macro pour délimiter

pour ce code ca a laide très interessant si il decoupe mon fichier sur plusieurs feuilles comme ca je choisité les feuilles dont joré besoin mais apparement il ne marche pas !

il me laisse choisir le fichier .log ke je veux
il louvres sur un nouveau classeur mais juste une seule feuille et elle n'est même pas complète il manque bcp de données !!

Sub LargeFileImport()

' Dimension Variables.
Dim ResultStr As String
Dim FileName As Variant
Dim FileNum As Integer
Dim Counter As Double

' Ask User for file's name.
FileName = Application.GetOpenFilename("Fichier Texte,*.log")

' Check for no entry.
If FileName = False Then End

' Get next available file handle number.
FileNum = FreeFile()

' Open text file for input.
Open FileName For Input As #FileNum

' Turn screen updating off.
Application.ScreenUpdating = False

' Create a new workbook with one worksheet in it.
Workbooks.Add template:=xlWorksheet

Counter = 1
' Loop until the end of file is reached.
Do While Seek(FileNum) <= LOF(FileNum)
' Display importing row number on status bar.
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
' Store one line of text from file to variable.
Line Input #FileNum, ResultStr
' Store variable data into active cell.
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
If ActiveCell.Row = 65536 Then
' If on the last row then add a new sheet.
ActiveWorkbook.Sheets.Add
Else
' If not the last row then go one cell down.
ActiveCell.Offset(1, 0).Select
End If
' Increment the counter by 1.
Counter = Counter + 1
' Start again at top of 'do while' statement.
Loop
' Close the open text file.
Close
' Remove message from status bar.
Application.StatusBar = False

End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
Microsoft 365 Créer somme sous condition
Réponses
7
Affichages
279
gary34
G
T
  • Question Question
Microsoft 365 Problème de user form
Réponses
8
Affichages
241
patricktoulon
patricktoulon
R
  • Question Question
XL 2016 récupérer une image depuis un SharePoint et la coller dans une cellule
Réponses
4
Affichages
162
halecs93
halecs93
eastwick
  • Résolu(e)
XL 2016 recherche par macro
Réponses
5
Affichages
157
eastwick
eastwick
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
597
TooFatBoy
TooFatBoy
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
216
finarobert
F
C
  • Résolu(e)
XL 2021 MsgBox : Je ne sais pas faire...
Réponses
10
Affichages
184
Constantin
C
M
  • Question Question
Autres occurence
2
Réponses
28
Affichages
513
nullosse
N
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
194
F22Raptor
F
treza88
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
252
treza88
treza88
Titof06
  • Résolu(e)
XL 2019 Import fichier ".txt" avec des caractères cachés qui gênent l'import
2
Réponses
22
Affichages
689
job75
job75
F
  • Question Question
Microsoft 365 Générer des quiitances de Loyer
2
Réponses
15
Affichages
483
Valtrase
Valtrase
B
  • Question Question
XL 2021 création macro
Réponses
7
Affichages
344
dysorthographie
dysorthographie
C
  • Question Question
Microsoft 365 Macro avec en-tête &
Réponses
4
Affichages
173
Cami
C
L
  • Question Question
Microsoft 365 Création Excel
Réponses
6
Affichages
273
Phil69970
Phil69970
D
  • Question Question
Power Query powerquery
Réponses
4
Affichages
559
chris
chris
L
  • Question Question
XL 2013 Ordre croissant.
Réponses
7
Affichages
201
lepiouf
L
A
  • Question Question
XL 2019 Formule avec condition ET
Réponses
6
Affichages
301
sylvanu
sylvanu
aspect
  • Question Question
Microsoft 365 Retour à la case A1
2 3
Réponses
43
Affichages
799
TooFatBoy
TooFatBoy
C
  • Question Question
XL 2021 Recherche données dans une colonne...
Réponses
3
Affichages
314
gbinforme
G
Retour