XL 2010 Mofifier tous les fichiers d'un dossier

[Blafi]

Bonjour à tous et bon dimanche,

Tout d'abord un grand merci à tous les forumeurs qui prennent du temps à répondre et à aider les moins bons en excel...

Justement, je me demande s'il est possible de modifier par macro un certain nombre de fichiers excel contenus dans un même dossier : Perso j'ai 40 fichiers qui sont tous dans le même dossier et sur lesquels je dois supprimer les colonnes X et Y dans la seule feuille qu'ils contiennent.

Je pensais créer un fichier dans lequel je mettrai une macro du genre :
For each Fifi in Mondossier
workbook.open
column(X:Y).delete
workbook.save
worbook.close
next Fifi

Tout ce que je viens d'écrire est un peu du charabia naturellement....

Est-ce possible de faire cette chose ??

Merci d'avance de votre aide et à bientôt.

 

[Jacky67]

Bonjour à tous et bon dimanche,

Tout d'abord un grand merci à tous les forumeurs qui prennent du temps à répondre et à aider les moins bons en excel...

Justement, je me demande s'il est possible de modifier par macro un certain nombre de fichiers excel contenus dans un même dossier : Perso j'ai 40 fichiers qui sont tous dans le même dossier et sur lesquels je dois supprimer les colonnes X et Y dans la seule feuille qu'ils contiennent.

Je pensais créer un fichier dans lequel je mettrai une macro du genre :
For each Fifi in Mondossier
workbook.open
column(X:Y).delete
workbook.save
worbook.close
next Fifi

Tout ce que je viens d'écrire est un peu du charabia naturellement....

Est-ce possible de faire cette chose ??

Merci d'avance de votre aide et à bientôt.

Bonjour,
Cela pourrait ressembler à ceci
Le classeur contenant ce code ne doit pas être dans le même dossier que les classeurs à traiter

Sub supprime()
Dim Chemin$, Fichier$
Chemin = "D:\xxxx\yyyy\"  ' ***A adapter
Fichier = Dir(Chemin & "*.xls*")
Do While Fichier <> ""
  Workbooks.Open Filename:=Chemin & Fichier
  Sheets(1).Columns("X:Y").Delete Shift:=xlToLeft
  Workbooks(Fichier).Close True
  Fichier = Dir
Loop
End Sub

 

[Blafi]

Merci Jacky67 pour ce bout de code..
J'essaye (demain sans doute) et je te tiens au courant.
A ++