Lone-wolf
XLDnaute Barbatruc
Bonjour à tous
avec la macro ci-dessous, je n'arrive pas à supprimer le module lors de la sauvegarde(Enregistrer sous).
Mais, ce qui me surprend le plus, c'est que la feuille "Data" est bien supprimée mais pas le module. J'aimerais y inclure aussi une condition: si le module n'existe pas, ne pas prendre en considération la ligne de suppression.
avec la macro ci-dessous, je n'arrive pas à supprimer le module lors de la sauvegarde(Enregistrer sous).
Code:
Sub Enrg_Sous()
Dim WbSource, WbDest As Workbook, chemin As String, nom As String
Application.ScreenUpdating = False
Set WbSource = Workbooks("Tableau.xls")
chemin = "C:\Users\" & Environ("username") & "\Desktop\Macro Test\"
With WbSource
.Sheets("Data").Range("a1:i37").AutoFilter Field:=1, Criteria1:=ActiveCell, Operator:=xlAnd
.Sheets("Data").Range("a2:i37").SpecialCells(xlCellTypeVisible).Copy .Sheets("Report").Range("a65536").End(xlUp)(2)
.Sheets("Report").Range("A:I").Columns.AutoFit
.Sheets("Report").Activate
nom = Activesheet.Range("a2")
ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xls", FileFormat:=xlExcel8
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Data").Delete
'ActiveWorkbook.VBProject.VBComponents.Remove _
ActiveWorkbook.VBProject.VBComponents.Item("Module1")
ActiveWorkbook.Save
Application.Quit
End With
End Sub
Mais, ce qui me surprend le plus, c'est que la feuille "Data" est bien supprimée mais pas le module. J'aimerais y inclure aussi une condition: si le module n'existe pas, ne pas prendre en considération la ligne de suppression.
Dernière édition: