Macro pour enregistrer le fichier sans macro

Bonjour à tous,

j'ai un fichier excel qui possède plusieurs modules avec des macros. Je souhaite, au final, créer une macro qui va enregistrer le fichier sur un lecteur défini (X), et que toutes les macros soient supprimées lors de cet enregistrement.

Avez-vous une idée ?

Bonjour,

Les classeurs au format .xlsx sont enregistrés sans macro donc YAKA enregistrer une macro qui va Enregistrer Sous... .xlsx

Au besoin on rajoutera

Application.DisplayAlerts = False 

...au début pour éviter le message de confirmation, et basta !

A+

J'ai mis ce code là car je dois encore supprimer deux trois choses avant enregistrement, dans un module :

Sub Enregistrement()
'
' Enregistrement Macro
'

'
    ActiveSheet.Shapes.Range(Array("Rectangle 2")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("TextBox 5")).Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveSheet.Shapes.Range(Array("TextBox 5", "TextBox 6")).Select
    Selection.Delete
    Range("BO26:BT32").Select
    Selection.ClearContents
    Range("BU26:BV31").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A1:BS1").Select
    ChDir "X:\"
    ActiveWorkbook.SaveAs Filename:= _
        "X:\Planning.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        Application.DisplayAlerts = False
End Sub

Mais au final, il me demande la confirmation d'enregistrer le document sans macro... on peut supprimer cette confirmation ?

il vaut mieux y mettre tout de suite... (avant qu'il te demande confirmation !)

A+

La classe merci beaucoup !!