Discussion :

[brutus437]

Bonjour à tous

Je cherche une solution pour importer un fichier CSV en ne filtrant que le fichiers dont la fin du nom est (par exemple) EXP

Exemple dan ma liste de fichier j'ai plusieurs noms similaires :

Pays_AA_IMP. CSV
Pays_AA_EXP. CSV

Comment intégrer dans un code de type "Application.GetOpenFilename" le choix des fichiers se terminant par IMP ou EXP?

Merci de vos conseils éclairés

Bien à tous

[Philippe Tulliez]

Bonjour,
Je ne suis pas certain que l'on puisse filtrer les fichiers avec GetOpenFilename en revanche c'est tout à fait possible avec FileDialog(msoFileDialogFilePicker)

Exemple où l'on affiche les fichiers csv dont le nom se termine par 2019 se trouvant dans le même répertoire que le classeur actif

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 t()
 Dim fd As FileDialog
 Dim fn As String
 Dim e As Integer
 Dim t As String
 Set fd = Application.FileDialog(msoFileDialogFilePicker)
 With fd
 .Filters.Clear
 .Filters.Add "Fichiers Texte", "*.csv"
 .Title = "Sélectionnez le document"
 .InitialFileName = ActiveWorkbook.Path & "\*2019.csv*"
 End With
 If fd.Show = True Then
    For e = 1 To fd.SelectedItems.Count
     t = t & vbCrLf & fd.SelectedItems(e)
    Next
    MsgBox "Vous avez sélectionné " & t
 End If
 Set fd = Nothing
End Sub

[umfred]

Bonjour,
Je ne suis pas certain que l'on puisse filtrer les fichiers avec GetOpenFilename en revanche c'est tout à fait possible avec FileDialog(msoFileDialogFilePicker)

Exemple où l'on affiche les fichiers csv dont le nom se termine par 2019 se trouvant dans le même répertoire que le classeur actif

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 t()
 Dim fd As FileDialog
 Dim fn As String
 Dim e As Integer
 Dim t As String
 Set fd = Application.FileDialog(msoFileDialogFilePicker)
 With fd
 .Filters.Clear
 .Filters.Add "Fichiers Texte", "*.csv"
 .Title = "Sélectionnez le document"
 .InitialFileName = ActiveWorkbook.Path & "\*2019.csv*"
 End With
 If fd.Show = True Then
    For e = 1 To fd.SelectedItems.Count
     t = t & vbCrLf & fd.SelectedItems(e)
    Next
    MsgBox "Vous avez sélectionné " & t
 End If
 Set fd = Nothing
End Sub

Je pense qu'en modifiant la ligne 9, on peut directement filtrer les fichiers se finissant par 2019.txt
.Filters.Add "Fichiers Texte 2019", "*2019.csv" (pas testé)

Ce n'est pas "standard" (dans le sens où on filtre en général juste l'extension du fichier) mais ça doit pouvoir se faire.

[Philippe Tulliez]

Bonjour Unfred,

Je pense qu'en modifiant la ligne 9, on peut directement filtrer les fichiers se finissant par 2019.txt
.Filters.Add "Fichiers Texte 2019", "*2019.csv" (pas testé)
Ce n'est pas "standard" (dans le sens où on filtre en général juste l'extension du fichier) mais ça doit pouvoir se faire.

Je teste tous les codes que je publie et donc je peux confirmer que cela fonctionne.

[brutus437]

Bonjour,
Je ne suis pas certain que l'on puisse filtrer les fichiers avec GetOpenFilename en revanche c'est tout à fait possible avec FileDialog(msoFileDialogFilePicker)

Exemple où l'on affiche les fichiers csv dont le nom se termine par 2019 se trouvant dans le même répertoire que le classeur actif

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 t()
 Dim fd As FileDialog
 Dim fn As String
 Dim e As Integer
 Dim t As String
 Set fd = Application.FileDialog(msoFileDialogFilePicker)
 With fd
 .Filters.Clear
 .Filters.Add "Fichiers Texte", "*.csv"
 .Title = "Sélectionnez le document"
 .InitialFileName = ActiveWorkbook.Path & "\*2019.csv*"
 End With
 If fd.Show = True Then
    For e = 1 To fd.SelectedItems.Count
     t = t & vbCrLf & fd.SelectedItems(e)
    Next
    MsgBox "Vous avez sélectionné " & t
 End If
 Set fd = Nothing
End Sub

Bonjour Philippe et merci pour ton aide qui m'a permis de résoudre ce problème. Pour compléter, dans cette séquence, comment récupérer le nom du fichiers CVS choisi et l'intégrer dans un Msgbox une fois le fichier chargé ?

[Philippe Tulliez]

Bonjour,

comment récupérer le nom du fichiers CVS choisi et l'intégrer dans un Msgbox une fois le fichier chargé ?

Je ne sais pas si j'ai bien compris votre question mais si vous avez essayé le code, vous avez pu constater que vous avez la liste des fichiers + le nom du répertoire sélectionnés qui s'affiche dans le MsgBox
Cependant si vous ne voulez que la liste des fichiers sans le répertoire, vous pouvez utiliser la fonction InstrRev

Soit

Code :

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

1
2
3
4
5
6
 If fd.Show = True Then
    For e = 1 To fd.SelectedItems.Count
     t = t & vbCrLf & Mid(fd.SelectedItems(e), InStrRev(fd.SelectedItems(e), "\") + 1)
    Next
    MsgBox "Vous avez sélectionné " & t
 End If

[umfred]

Je dirais en ajoutant un filtre "*_EXP.csv"

Code :

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

res = Application.GetOpenFilename("*_EXP.csv/*_IMP.csv,*_EXP.csv;*_IMP.csv,*.*,*.*", FilterIndex:=1)

"*_EXP.csv/*_IMP.csv,*_EXP.csv;*_IMP.csv" définit un filtre dont le nom de filtrage est ""*_EXP.csv/*_IMP.csv"; ce nom peut être modifier pour être plus explicite; "*_EXP.csv;*_IMP.csv" indique les fichiers qui doivent être filtré (utilise les wildcards DOS) , ici on filtre pour afficher les fichiers se finissant par _EXP.csv ou par _IMP.csv.
https://learn.microsoft.com/en-us/of...etopenfilename