[XL-2003] Besoin d'aide pour importation de fichiers [Résolu]

[Vincent32]

Bonjour à tous,

Je souhaiterais pouvoir importer des fichiers .dpt (ça ressemble à du .csv) à l'aide d'une macro.

Un peu plus de détails :
Les fichiers à importer sont dans un même dossier (une trentaine de fichier constitués d'environ 1750 lignes chacun avec une seule colonne). Je souhaiterais qu'il m'importe le premier fichier du dossier colonne A, le deuxième colonne B et ainsi de suite jusqu'au dernier fichier. Le tout sur la même feuille.


Merci d'avance pour votre aide.

PS je n'ai aucune idée de la façon dont je dois m'y prendre

Cordialement

Vincent

[jfontaine]

Bonjour,

Regarde ce code, il devrait faire ce que tu souhaites

Code :

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
35
 
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
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder("c:\Mon_repertoire")
 
 
'Boucle sur fichiers du repertoire
c = 1
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
            'insere la ligne dans la cellule
            Cells(i, c).Value = strLigne
            i = i + 1
        Loop
        Close #1
        c = c + 1
    End If
 
Next

[Vincent32]

Merci beaucoup,

C'est parfait (exactement ce que je voulais)

Un grand grand grand immense merci

Bonne journée