ouvrir csv

[alsimbad]

Bonjour tout le monde
je cherche a ouvrir une série de fichier csv dans un répertoire unique. je comptais utiliser pour cela une routine que j'utilise depuis longtemps pour les séries de fichier excel

Application.ScreenUpdating = False
stFichier = Application.GetOpenFilename("Text Files (*.csv), *.csv")

   With Application.FileSearch
   .NewSearch
   .LookIn = Left(stFichier, InStrRev(stFichier, "\"))
   .Execute
    'On Error Resume Next
       For Each f In .FoundFiles
      Workbook.Open f
...
ActiveWorkbook.Close False
   Next f
End With

mais là, ça ne marche pas. il n'y a pas d'erreur ni quoi que ce soit, mais f est vide, donc il n'ouvre aucun fichier. qu'elqu'un saurait pourquoi ? merci d'avance

 

[Bernard_XLD]

Re : ouvrir csv

Salut

parce qu'à première, un getopenfilename n'a rien à voir avec un applicationfilesearch

je cherche la syntaxe

a+

 

[Bernard_XLD]

Re : ouvrir csv

à la deuxiéme vue un petit problème de syntaxe + un tri manquant sur les CSV

'Application.ScreenUpdating = False
    stFichier = Application.GetOpenFilename("Text Files (*.csv), *.csv")
   With Application.FileSearch
   .NewSearch
   .LookIn = Left(stFichier, InStrRev(stFichier, "\"))
   .Filename = "*.csv"
   .Execute
    'On Error Resume Next
       For Each f In .FoundFiles
    Workbooks.Open Filename:=f
    ActiveWorkbook.Close False
    Next f
    End With

 

[alsimbad]

Re : ouvrir csv

alors là merci beaucoup. je n'ai pas compris exactement le "probleme de tri", surement parce que c'est un bout de code que j'utilise et dont je ne perçois pas exactement le fonctionement, mais cette ligne que tu as rajouté fait tout la difference.
merci encore