Bonjour,

je ne suis pas programmeur et découvre les macros.
J'aimerais pouvoir ouvrir à la chaîne une série de fichiers TXT ( dont les données doivent être scindées en 2 colonnes) se trouvant dans un répertoire (ici répertoire "Fluo 29-02-2016")pour les afficher sur plusieurs onglet dans le même classeur sur excel ou à défaut dans plusieurs classeurs.
En l'absence de connaissances en VBA et après avoir fouillé sur le net, j'ai voulu essayer ça :

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
Sub Macro1()
'
' Macro1 Macro
'
 
'
Dim chemin As String
Dim monFichier As String
 
 
chemin = "C:\Users\David\Fluo 29-02-2016\ "
monFichier = Dir(chemin & "*.txt", vbNormal)
Do While monFichier <> ""
 
Workbooks.OpenText Filename:="C:\Users\David\Fluo 29-02-2016\monFichier", _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 1), Array(14, 1), Array(33, 1)), TrailingMinusNumbers:=True
monFichier = Dir
Loop
End Sub
Mais aucune action ne se passe. Pouvez-vous m'aider ?

Merci d'avance,

David