Bonjour,
Débutant (faut bien commencer un jour) j'ai un premier jet pour récupérer 10 (ou plus) fichiers .txt (tous avec un nom différent) en .XLS.
Tout se passe bien sauf que je sèche pour afficher le résultat en colonnes et non en lignes.
Il me faut une colonne par fichier .txt.
Donc pour 10 fichiers j'ai besoin des colones A:J, j'ai bien essayé de mettre, dans mon premier Range "A1:J1" mais c'est tjrs le premier fichier .txt qui s'affiche 10 fois dans les colonnes A à J et j'ai tjrs les 10 autres fichiers .txt en lignes.

Voici ce que j'ai pour l'instant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub recup()
Sheets("Data").Select
Range("A1").Select
Chemin = "C:\Documents and Settings\Moi\Bureau\traitement\" 
Fichier = Dir(Chemin & "*.txt")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("A1:A7500").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub
Merci par avance de votre aide.