Bonjour le forum.

Je voudrais ouvrir de fichiers en format texte pour traiter les donnes dans un autre classeur en xls.

J'ai trouvé un code que j'ai repris en modifiant un peu le texte mais ça ne marche pas. j'ai beau checher, je ne trouve pas l'erreur (bogage au niveau de la ligne "OuvrirFichiers= Application...(ligne4)
quelqu'un peut il m'aider?

Cordialement
lps02
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
Sub OuvertureDeFichiers()
Dim OuvrirFichiers As Variant
ChDir ("C:\Documents and Settings\Portable COFA\Mes documents\aide excel\ESSAI BOIS ABATTU\donnes terrain\")
OuvrirFichiers = Application.GetOpenFilename(Filefilter = "Fichiers texte(*.csv),*.csv", FilterIndex:=2, Title:="ouverture de fichiers terrain", MultiSelect:=True)
    If OuvrirFichiers = False Then
        MsgBox "Aucun Fichiers n' a été sélectionné. Fin de la procédure", vbOKOnly + vbCritical, "Fin de la procédure"
        Exit Sub
    End If
    If UBound(OuvrirFichiers) > 1 Then
            Dim rep As Long
            Dim Liste As String
            Dim compteur As Byte
        For compteur = 1 To UBound(OuvrirFichiers)
            Liste = Liste & vbCr & OuvrirFichiers(compteur)
        Next compteur
     rep = MsgBox("Lutilisateur a sélectionné plusieurs fichiers. En voici la liste." & Liste & vbCr & "Voulez-vous les ouvrir?", vbYesNo + vbQuestion, "Ouvrir les Fichiers?")
        If rep = vbYes Then
            For compteur = 1 To UBound(OuvrirFichiers)
            Workbooks.Open Filename:=OuvrirFichiers(compteur)
            Next compteur
        End If
    Else
        Workbooks.Open Filename:=OuvrirFichiers(1)
    End If
 
 
 
End Sub