J
jo
Guest
Bonjour le forum,
Est il possible d'enregistrer dans un autre classeur sans
l'ouvrir?
Voici mon code:
Sub Save_file()
Dim D, m, Y
ChDir ActiveWorkbook.Path
Sheets(Array("Sheet1", "sheet2")).Copy
D = Format(Day(Date), "00")
m = Format(Month(Date), "00")
Y = Format(Year(Date), "00")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="G:\TEST_ " & D & m & Y & ".XLS"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub
Comme vous pouvez le voir, j'utilise "ActiveWorkbook.Close" pour refermer
le classeur qui est entrain de s'enregistrer et qui s'affiche ...
Peut être qu'il existe un autre moyen ?
Merci !
Est il possible d'enregistrer dans un autre classeur sans
l'ouvrir?
Voici mon code:
Sub Save_file()
Dim D, m, Y
ChDir ActiveWorkbook.Path
Sheets(Array("Sheet1", "sheet2")).Copy
D = Format(Day(Date), "00")
m = Format(Month(Date), "00")
Y = Format(Year(Date), "00")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="G:\TEST_ " & D & m & Y & ".XLS"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub
Comme vous pouvez le voir, j'utilise "ActiveWorkbook.Close" pour refermer
le classeur qui est entrain de s'enregistrer et qui s'affiche ...
Peut être qu'il existe un autre moyen ?
Merci !