[VBA-E] Enregistrer sous un autre format
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 !
Enregistrer sous un autre format
Bonsoir,
Ce code devrait résoudre ton problème.
Code:
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
