Export feuille Enregistrer sous

Bonjour le forum,

Bonjour Claude,

Je souhaite adapter la macro que m'a fait Claude et y apporter la fonction enregistrer sous... chose que j'utilise pourtant dans d'autres macros, mais qui ici ne veut pas m'enregistrer le nom complet que je lui demande et pouvoir supprimer les 2 boutons a l'enregistrement.

Pouvez vous éclairer mes lanternes.

Merci à vous.

Zyglur

Salut Ziglur,

Essaie ainsi

Sub Exporter()
Dim nom As String, Chemin As String

nom = Sheets("Pas à pas").Range("B2") & "_Reach_HL.xlsm"
Chemin = ThisWorkbook.Path

Sheets("HorsLimites").Copy
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & nom _
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

ActiveSheet.Shapes("Button 1").Delete
ActiveSheet.Shapes("Button 2").Delete
ActiveWorkbook.Save
End Sub

Cordialement.

Bonjour Yvouille.

Effectivement j'ai oublié le chemin. Oups.

Merci pour la macro.

Amicalement.

Zyglur