IMPORT FICHIER CSV VARIABLE NOM DE FICHIER

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

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:

---

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 dirais en ajoutant un filtre "*_EXP.csv"

Code:

---

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

Citation:

---

Envoyé par 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:

---

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.

Bonjour Unfred,

Citation:

---

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.

Citation:

---

Envoyé par 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:

---

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é ?

Bonjour,

Citation:

---

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:

---

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

---