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

[michmich94]

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...

 

[i20100_]

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

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]

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.

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