Discussion :

[ARTETA13]

Bonjour,
J'ai plusieurs fichiers CSV, que je souhaiterai compiler dans un seul fichier excel.
Je m'explique à la dernière ligne de chaque fichier dans la colonne D il y a la mention EOF.
Je voudrais donc tester le fichier, des que l'on arrive à EOF on puisse copier le 2ème fichier à la suite.
Je ne sais pas si j'ai été clair?
Résumé: Boucle de test du fichier (EOF) et copier à la suite les fichiers dans une feuille excel.

[kiki29]

Salut, à tester http://www.developpez.net/forums/d91...n-fichier-csv/

[ARTETA13]

Merci pour la réponse.
Je débute actuellement en VBA et je n'arrive pas à adapter ce bout de code.
Une personne pourrait m'aider à intégrer une fonction pour detecter la fin d'un fichier csv et coller à la suite tout mes fichiers.
Voici mon bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Fichier = Application.GetOpenFilename
If VarType(Fichier) = vbBoolean Then Exit Sub
Workbooks.Open Fichier
For i = Len(Fichier) To 1 Step -1
If Mid(Fichier, i, 1) = "\" Then Exit For
Next
shortfichier = Mid(Fichier, i + 1, Len(Fichier) - i - 4)
longfichier = shortfichier & ".csv"
onglet = ActiveSheet.Name

Merci d'avance