Discussion :

[gege765]

Bonsoir,

Voila actuellement dans une macro j'utilise ce petit morceau de code pour choisir des fichiers csv.

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
 
' Sélection des fichiers csv
MesFichiers = Application.GetOpenFilename( _
    FileFilter:="Fichier CSV (*.csv), *.txt,Tous fichiers (*.*), *.*", _
    FilterIndex:=1, Title:="Sélection fichiers (test)", MultiSelect:=True)
 
For Each X In MesFichiers
	' traitement de chacun des fichiers sélectionnés
	' ouverture du fichier
    Workbooks.Open Filename:=X
	With ActiveSheet
		...
	End With
	' on passe au fichier suivant
Next X

J'aimerai ne plus passer par cette étape de sélection pour utiliser directement les fichiers csv présents dans le répertoire courant du fichier xlsm qui contient la macro, j'ai pensé faire cela mais sans succès

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim chemin, encours
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    chemin = ThisWorkbook.Path
    ChDir chemin
    encours = Dir("*.csv")
    'tant qu'il reste encore un fichier .xls
    While encours <> ""
        On Error Resume Next
        Workbooks.Open encours
        On Error GoTo 0
        encours = Dir
    Wend

Merci de votre aide.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Chemin As String, EnCours As String
 
Application.ScreenUpdating = False
Chemin = ThisWorkbook.Path
EnCours = Dir(Chemin & "\*.csv")
 
While EnCours <> ""
    Workbooks.Open EnCours
    '.....
    EnCours = Dir()
Wend

[gege765]

Merci.

Bon a priori on est obligé d'ajouter le chemin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TEST()
    Dim Chemin As String, EnCours As String
 
    Application.ScreenUpdating = False
    Chemin = ThisWorkbook.Path
    EnCours = Dir(Chemin & "\*.csv")
 
    While EnCours <> ""
        Workbooks.Open Chemin & "\" & EnCours
        '.....
        EnCours = Dir()
    Wend
End Sub