Bonjour à toutes et tous,

Je voulais savoir s'il était possible de sauvegarder une feuille contenue dans un classeur. Je n'ai pas d'erreur avec mon code, mais je sauvegarde toujours le classeur complet, et nom la feuille en question.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Set XL = CreateObject("Excel.application")
SOURCE="D:\mon_chemin"
Set Folder = fso.GetFolder(SOURCE)
Set XLS_FILES = Folder.Files
  for each files in XLS_FILES
   If files.Name = "mon-fhichier.xls" Then
     XL.Workbooks.Open(SOURCE & files.Name)
     XL.Run"Macro1"
     XL.ActiveWorkbook.Sheets("NOM-de-la-FEUILLE").Saveas(SOURCE & "NOM-de-la-FEUILLE.xls")
     XL.Quit
   End if
Next
Merci par avance de vos avis éclairés