Discussion :

[phberanger]

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

[tirex28]

Bonjour,

Essaye de copier la feuille dans un nouveau classeur avant de l'enregistrer:

Code :

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

1
2
3
     XL.ActiveWorkbook.Sheets("NOM-de-la-FEUILLE").Copy
 
     XL.ActiveWorkbook.Saveas(SOURCE & "NOM-de-la-FEUILLE.xls")

Si tu veux ensuite fermer ce classeur et non Excel lui meme:

Code :

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

     XL.ActiveWorkbook.Close 'Au lieu de XL.Quit

Cordialement,

Tirex28/

[Gorfael]

Salut phberanger et le forum
Pas d'avis éclairé! Mais une feuille n'existe que dans un classeur (elle existe pour Excel et pas pour windows)
Dans ta macro, tu ouvres une 2me instance d'Excel. Pourquoi ?
Macro1 ? Pourquoi Run et pas Call ? Que fait-Elle ?
Tu Crées un classeur du nom de la feuille avec "Saveas" => il l'applique automatiquement au classeur.
Regardes dans l'aide de Saveas.
A+

[phberanger]

Bonjour à toutes et tous

Merci pour vos réponses. C'est bon, j'ai bien la copie de ma feuille dans un autre fichier excel avec le code

Code :

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

1
2
XL.ActiveWorkbook.Sheets("NOM-de-la-FEUILLE").Copy
XL.ActiveWorkbook.Saveas(SOURCE & "NOM-de-la-FEUILLE.xls")

Pour répondre à Gorfael, la macro va chercher des infos dans une base de données. Je fais un run car le call me renvoie une erreur. Par contre, je ne vois pas ou j'ouvre 2 instances d'excel? Ceci dit, je ne maitrise pas du tout le code.

Encore merci

[Gorfael]

Salut phberanger et le forum

Code :

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

Set XL = CreateObject("Excel.application")

Pour moi, ça crée une 2ème application, mais comme je ne l'utilise jamais, je préfère poser la question.
Pour Run, même problème. Je ne l'utilise que pour lancer une macro qui n'est pas en VBA d'Excel (access, word). Donc, je pose des questions. Mais plus par curiosité intellectuelle que pour préconiser un "meilleur" code.
A+