Bonjour,
J'ai une macro qui m'importe des données :
Je souhaite que ces données soient sauvegarder dans un répertoire dont le chemin est indiqué dans la cellule E13 de ma feuille 1 selon fichier type csv de la manière suivante :
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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34 'Déclarations des variables Dim Fso As Object Dim FsoRepertoire As Object Dim FsoFichier As Object Dim i As Long Dim c As Integer Dim strLigne As String Dim str() As String 'Attribution de valeurs Set Fso = CreateObject("Scripting.FileSystemObject") Set FsoRepertoire = Fso.GetFolder(Sheets("Macro").Range("E11").Value) 'nom du répertoire 'Boucle sur fichiers du repertoire c = 2 For Each FsoFichier In FsoRepertoire.Files i = 1 'Vérifie si le fichier a l'extension souhaité str = Split(FsoFichier.Name, ".") If str(UBound(str)) = "dpt" Then 'ouvre le fichier Open FsoFichier.Path For Input As #1 'Boucle sur chaque ligne du fichier Do While Not EOF(1) Line Input #1, strLigne str = Split(strLigne, Chr(9)) 'insere la ligne dans la cellule Sheets("Données brutes").Cells(i, c).Value = str(1) i = i + 1 Loop Close #1 c = c + 1 End If Next
- fichier csv n°1 colonne A et B de la feuille 2
- fichier csv n°2 colonne A et C de la feuille 2
- ...
- fichier csv n°"x" colonne A et "x" de la feuille 2
La colonne "x" correspond à la dernière colonne comportant des données
Cordialement
Vincent
Partager