Discussion :

[pilote80]

bonjour,

je souhaiterais creer une macro affectée à un bouton "traitement" permettant:
- d'ouvrir un dossier precis (chercher dans un dossier precis)
- ouvrir tous les N°.csv de ce dossier
(exple: ouvrir N°1.csv + traitement fichier N°1 + enregistrer le fichier en N°1_traité.xlsx dans un nouveaux dossier"fichiers traités")
recommencer l'operation jusqu'au dernier N+1.csv

merci de votre aide

Fabrice

[patricktoulon]

bonsoir
Fait une recherche sur:

1 la fonction "Dir" pour boucler sur les items d'un dossier
2 workbooks.open (chemin complet du fichierdufichier) local:= true

[kiki29]

Salut, pour lister tu peux déjà utiliser ceci : Liste des fichiers d'un dossier + Liens

[pilote80]

bonsoir
Fait une recherche sur:

1 la fonction "Dir" pour boucler sur les items d'un dossier
2 workbooks.open (chemin complet du fichierdufichier) local:= true

merci

j'ai testé avec ces DIR et workbooks.open et fait une boucle, mais j'ai toujours le dernier fichier qui s'ouvre!!!

voici le code:

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
Private Sub Workbook_Open()
Dim chemin As String
Dim extension As String
 
chemin = "\\intra\profils\D003\r812374\D\Desktop\tests macro\"
 
Do Until extension = "csv"
 
Workbooks.Open (chemin & "*.csv"), local:=True ' ouvre fichier csv
Dir (chemin) ' cherche dans le repertoire
 
MsgBox ("fichier ouvert: " & Dir), vbOKOnly
 
Workbooks.Open (chemin & "*.csv"), local:=True ' ouvre fichier csv
extension = Dir(chemin & "*.csv")
 
Loop
 
End Sub

avez vous une idée?

[patricktoulon]

purrée un peu d'effort
tape F1 dans vbe et dir dans le moteur de recherche de l'aide
tu obtiens

c'est pourtant pas compliqué