Discussion :

[potili2]

bonjour
j'ai créé un programme qui "compacte" un fichier excel en en réduisant le nombre de lignes selon des critères personnels. Mon problème est qu'il me faut appliquer ce traitement de fichiers à tous les fichiers (environ 500) d'un repertoire. Comment procéder pour qu'excel ouvre l'un après l'autre chaque fichier, lui applique "mon traitement" et le réenregistre?
merci de votre aide.
Jean Pierre

[cwain]

Salut,
Voici un code que j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Fichier As String, Chemin As String
 
Fichier = Dir(Chemin & "*.xls")
j = 4
 
Do While Fichier <> ""
    Set Wb = Workbooks.Open(Chemin & Fichier)
    'ton traitement
    Wb.Close
    Set Wb = Nothing
    Fichier = Dir
Loop

"Chemin", c'est le chemin du dossier (M:\Dossier1\Dossier2\)

[illight]

A quoi il sert ton j ?

[cwain]

Nananana !!! J'ai oublié d'enlever une ligne de code

[potili2]

ça a le mérite d'être simple et ça me semble fonctionner. Encore qques petites choses à vérifier, mais je marque déja comme résolu.
Jean Pierre

[potili2]

diantre, j'avions pas du appuyer assez fort!!!
Jean Pierre