XL 2016 Lecture depuis un fichier et écriture dans un autre

michmich94

XLDnaute Nouveau
Bonjour je dois lire, n fichiers CSV ,
chacun à partir de la ligne 32 jusqu'à la fin.
Je veux copier ces lignes et les coller dans un fichier de récap
A la fin, mon fichier récap doit con,tenir tous les copier/coller.

en PJ les fichiers source CSV ( avec une extension TXT).

Quelqu'un aurait il déjà réalisé cela ?
je suis très rouillé en EXCEL VBA...
 

Pièces jointes

  • E1_PC_2134_ANASYN(5).txt
    12.4 KB · Affichages: 19
  • E1_PC_2134_ANASYN(4).txt
    9.1 KB · Affichages: 5
Dernière édition:

i20100_

XLDnaute Nouveau
Bonjour,

dans cette exemple, je lis tout le fichier et par la suite je supprime les 29 première lignes

ps/ n'oublie pas d'ajouter la référence Microsoft Scripting Runtime

VB:
Sub test_lire()
'ajouter la référence Microsoft Scripting Runtime
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
Dim i As Long, LastRow As Long, LastRow2 As Long

rep = "C:\Users\Test_fichier_texte\"  'à adapter
fich = "E1_PC_2134_ANASYN(5).txt"
Filename = rep & fich

Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(Filename)
Set oTxt = oFl.OpenAsTextStream(ForReading)

LastRow = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row + 1
LastRow2 = LastRow

  While Not oTxt.AtEndOfStream
  Debug.Print oTxt.AtEndOfStream
        Range("A" & LastRow2) = oTxt.ReadLine
        LastRow2 = LastRow2 + 1
  Wend

  Rows(LastRow & ":" & LastRow + 29).Delete Shift:=xlUp
End Sub
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Sans macro et avec des possibilités quasi infinies de transformations : par PowerQuery (inclus dans xl 2016).
Outils/Obtenir des données/A partir d'un fichier/A partir d'un dossier (chemin peut-être différent dans 2016)

Avant de mettre à jour la requête, ouvrir l'éditeur de requête puis :
dans la première étape de la requête 'Fichiers' du classeur joint, changer le chemin vers le dossier qui contient les fichiers.
La requête retient les fichiers dont le nom contient ANASYN et ont '.txt' pour extension. Les autres fichiers sont ignorés.
1612342058793.png


Pour ajouter ou modifier les transformations apportées, modifier les étapes de la requête 'rqTransformer l'exemple de fichier'
Les transformations apportées à cette requête seront appliquées à tous les fichiers et modifieront la fonction 'fnTransformer le ficher'

cordialement
 

Pièces jointes

  • Recap ANASYN.xlsx
    43.3 KB · Affichages: 4

Discussions similaires

Statistiques des forums

Discussions
311 741
Messages
2 082 055
Membres
101 882
dernier inscrit
XaK_