Discussion :

[Soizic]

Bonjour,

J'ai une trentaine de fichiers excel dans un même dossier pour lesquels je veux supprimer les 4 premières lignes sans avoir à le faire manuellement.
Est ce possible d'exécuter une macro à partir de l'un des fichiers qui mettrait à jour tous les autres? si oui comment?

Merci d'avance

[jfontaine]

Bonjour,

Je n'ai pas testé mais c'est dans l'idée

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
'Ajouter la référence "Microsoft Scripting Runtime"
 
Dim fso As New FileSystemObject
Dim Fichier As File
Dim Fichiers As Files
Dim wrk As Workbook
 
Set Fichiers = fso.GetFolder(C:\FichiersATraiter).Files
 
For Each Fichier In Fichiers
 
    Set wrk = Workbooks.Open(Fichier.Name)
    wrk.Sheets("Feuil1").Rows("1:4").Delete
    wrk.Close True
 
Next