Ouvrir tous les fichiers .csv d'un dossier

[argon1515]

Bonjour à tous voici quelques lignes de code qui devraient ouvrir les fichiers du dossier C:\tmp\macro\moulin\fic\ seulement ca marche pas.

Ces fichiers sont des fichiers .csv et sont en nombre variable ( géneralement une dizaine )
Pouvez vous m'aider Merci

Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:\tmp\macro\moulin\fic\"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
Next F
End With

 

[Compte Supprimé 979]

Re : Ouvrir tous les fichiers .csv d'un dossier

Salut Argon1515,

Essaye plutôt ça

Sub OuvreCSV()
Dim F
With Application.FileSearch
  .NewSearch
  .LookIn = "C:\tmp\macro\moulin\fic\"
  [COLOR=blue].Filename = "*.csv[/COLOR]"
  .Execute
  On Error Resume Next
  For Each F In .FoundFiles
    Workbooks.Open F
  Next F
  On Error GoTo 0
End With
End Sub

Testé chez moi, ça focntionne

 

[argon1515]

Re : Ouvrir tous les fichiers .csv d'un dossier

Merci BrunoM45 cela fonctionne.
A bientot peu etre sur un autre post
Argon1515

 

[argon1515]

Re : Ouvrir tous les fichiers .csv d'un dossier

Bonjour il reste un dernier petit point que je viens de decouvrir !
Les fichiers .csv s'ouvrent bien mais les separateurs ; sont ignorés.
les champs du fichier sont sur une colonne au lieu de x colonnes ( separateur csv j'ai essayer dans le code :

For Each F In .FoundFiles
Workbooks.Open Filename:=F, Delimiter:=";"

Next F

Ca marche pas
Merci d'avance

 

[Pierrot93]

Re : Ouvrir tous les fichiers .csv d'un dossier

Bonjour Argon, Bruno

essaye peut être comme ci dessous :

Workbooks.Open Filename:=F, Delimiter:=4

4 étant la constante du séparateur ;

bonne journée
@+

 

[argon1515]

Re : Ouvrir tous les fichiers .csv d'un dossier

bonjour Pierrot93 ça ne change rien le fichier est toujour ouvert en colonne A

 

[Pierrot93]

Re : Ouvrir tous les fichiers .csv d'un dossier

Re

rajoute alors cette ligne de code pour la conversion :

Workbooks.Open Filename:=F
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    Semicolon:=True

@+

 

[argon1515]

Re : Ouvrir tous les fichiers .csv d'un dossier

Merci cette fois ci ca marche y a t'il un moyen d'empecher les fenetres
voulez vous remplacer le contenu ...?

 

[Pierrot93]

Re : Ouvrir tous les fichiers .csv d'un dossier

Re

de quelle fenêtre parles tu ? je n'ai pas ce genre de message...

essaye peut être avec :

Application.DisplayAlerts = False

a mettre avant la ligne de code provoquant le message, et remettre à "true" après.

@+

 

[Pierrot93]

Re : Ouvrir tous les fichiers .csv d'un dossier

Aarf, sans doute provoqué par un "close", ce code devrait marcher alors.

edit : close au lieu de save

 

[argon1515]

Re : Ouvrir tous les fichiers .csv d'un dossier

Merci je vais tester la je vais en reunion
Merci encore et bon apres midi