Discussion :

[Bashaq]

Bonjour,

Je cherche à faire une macro qui enregistre la page courante d'un fichier excell sous un fichier de format spécifique.
J'utilise :

ActiveWorkbook.SaveCopyAs Filename:=str_FileName, FileFormat:=xlTextPrinter, CreateBackup:=False

Mon problème est que lors de l'enregistrement le fichier avec la macro est fermé et je me retrouve sur mon nouveau fichier.

Connaissez vous un moyen d'enregistrer mon fichier en arrière plan sans l'ouvrir et surtout sans fermer mon fichier excell contenant la macro de base ??

Merci !

[leroissejp]

Bonsoir,
Ce code devrait résoudre ton problème.

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
 
Sub EnregisrterFeuille()
Dim wbkNew As Workbook
  Dim wbkExisting As Workbook
  Set wbkExisting = ActiveWorkbook
  Set wbkNew = Workbooks.Add
  Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    wbkNew.Sheets(1).Delete
  wbkExisting.Sheets("Feuil1").Copy Before:=wbkNew.Sheets(1)
  wbkNew.SaveAs "C:\MonClasseur.csv", True
    wbkNew.Close
  Application.ScreenUpdating = True
 
End Sub

jpleroisse