[VBA - EXCEL] : Import fichier Pret 2è ligne
artamys
Messages postés
120
Date d'inscription
Statut
Membre
Dernière intervention
-
artamys Messages postés 120 Date d'inscription Statut Membre Dernière intervention -
artamys Messages postés 120 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Sous Excel, il faut que je vérifie la bonne réalisation d'un traitement.
Pour cela, il faut ouvrir tous les fichiers d'un dossier et récupérer des champs dans la deuxième ligne des fichiers présents.
Le premier problème est que les fichiers sont des *.pret
Ma question est peut on ouvrir avec VBA Excel un fichier .pret pour ne récupérer que la deuxième ligne et la recopier dans une cellule Excel ou au pire les 10 premières ? car de toutes façon, les fichiers sont trop long.
Merci.
Sous Excel, il faut que je vérifie la bonne réalisation d'un traitement.
Pour cela, il faut ouvrir tous les fichiers d'un dossier et récupérer des champs dans la deuxième ligne des fichiers présents.
Le premier problème est que les fichiers sont des *.pret
Ma question est peut on ouvrir avec VBA Excel un fichier .pret pour ne récupérer que la deuxième ligne et la recopier dans une cellule Excel ou au pire les 10 premières ? car de toutes façon, les fichiers sont trop long.
Merci.
A voir également:
- [VBA - EXCEL] : Import fichier Pret 2è ligne
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
Bonsoir,
Malgré mes recherches, rien trouvé comme logiciel qui fourbissait du "*.pret", hormis de trop nombreuses banques.....
Tu pourrais définir, le type de fichier?
Bon cour(t)age
Malgré mes recherches, rien trouvé comme logiciel qui fourbissait du "*.pret", hormis de trop nombreuses banques.....
Tu pourrais définir, le type de fichier?
Bon cour(t)age
En fait c'est un fichier d'Etablissement Bancaire.
du type :
DSIYYYYMMDDHHMMCODEP_YYYYMMDDHHMM.PRET
Il s'ouvre avec Texpad ou n'importe quel éditeur Texte.
C'est un fichier plat de type "TXT".
et les données c'est du style :
ENT1|||DSIYYYYMMDDHHMMCODEP_YYYYMMDDHHMM.PRET|YYYYMMDDHHMM|DSIYYYYMMDDHHMMCODEP_YYYYMMDDHHMM.PRET|||||P|I||XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
ENT2|||XX|X|XX|0|X
moi j'ai juste besoin de récupére la ligne qui commencerai par ENT2
Merci en tout cas.
du type :
DSIYYYYMMDDHHMMCODEP_YYYYMMDDHHMM.PRET
Il s'ouvre avec Texpad ou n'importe quel éditeur Texte.
C'est un fichier plat de type "TXT".
et les données c'est du style :
ENT1|||DSIYYYYMMDDHHMMCODEP_YYYYMMDDHHMM.PRET|YYYYMMDDHHMM|DSIYYYYMMDDHHMMCODEP_YYYYMMDDHHMM.PRET|||||P|I||XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
ENT2|||XX|X|XX|0|X
moi j'ai juste besoin de récupére la ligne qui commencerai par ENT2
Merci en tout cas.
salut,
j'ai une début de réponse avec ce code mais le problème est que pur les fichiers volumineux excel part dans les choux.
Il faudrait trouver un moyen de prendre en mémoire que les 500 premiers caractères du fichier texte par exemple ?
Mais la ????
ou sinon, faire un count d'une expression dans un fichier texte ????
ci dessous le code :
......
Dim intFic As Integer
intFic = FreeFile
Open Sheets("Liste_Fichier").Cells(1 + l, 2).Value For Input As intFic
Line Input #intFic, strLigne
expression = 3
While Right(Left(strLigne, expression), 3) <> "ETR"
If Right(Left(strLigne, expression), 3) <> "ETR" Then
expression = expression + 1
'If expression > 1000 Then Stop
'End If
End If
Wend
........
j'ai une début de réponse avec ce code mais le problème est que pur les fichiers volumineux excel part dans les choux.
Il faudrait trouver un moyen de prendre en mémoire que les 500 premiers caractères du fichier texte par exemple ?
Mais la ????
ou sinon, faire un count d'une expression dans un fichier texte ????
ci dessous le code :
......
Dim intFic As Integer
intFic = FreeFile
Open Sheets("Liste_Fichier").Cells(1 + l, 2).Value For Input As intFic
Line Input #intFic, strLigne
expression = 3
While Right(Left(strLigne, expression), 3) <> "ETR"
If Right(Left(strLigne, expression), 3) <> "ETR" Then
expression = expression + 1
'If expression > 1000 Then Stop
'End If
End If
Wend
........