maval
XLDnaute Barbatruc
Bonjour
J'ai un code pour enregistrer mon onglet actif je recherche a modifier mon code pour enregistrer les deux première feuille
je vous remercie d'avance
mon code:
J'ai un code pour enregistrer mon onglet actif je recherche a modifier mon code pour enregistrer les deux première feuille
je vous remercie d'avance
mon code:
Code:
Sub Archiver()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsm"
chemin = "C:\Users\Max\Desktop\Test\"
nomfichier = ActiveSheet.Range("A1") ' & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects(2).Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub