"Enregistrer sous" dans macro

[bellous]

Bonjour,

Dans une macro, je voudrai sauvegarder le classeur actuel sous un autre nom.
Comment faire pour avoir la possibilité de saisir le nouveau nom pour "Enregistrer sous".
Merci par avance

 

[MJ13]

Re : "Enregistrer sous" dans macro

Bonjour

A tester:

Sub enregistre_sous()
nomsave = InputBox("Nom d'enregistrement?")
ThisWorkbook.SaveAs (nomsave)
End Sub

 

[Kristof]

Re : "Enregistrer sous" dans macro

Bonjour,

Ce code fonctionne mais en fait peut être un peu trop daonc à toi de supprimer ce qui ne t'intéresse pas.

Sub Enregistrer_sous()
'
Dim lNum As Long
Dim strFile As String
Dim strPath As String
lNum = Application.InputBox("Message", "Enregistrer sous...", lNum, Type:=1)
'
If lNum = Empty Then Exit Sub
'
strPath = "C:\Mes documents\..." 'Chemin d'accès
'
strFile = strPath & "Nom du fichier" & lNum & ".xls"
ActiveWorkbook.SaveAs Filename:=strFile
'
End Sub


Kristof,

 

[bellous]

Re : "Enregistrer sous" dans macro

Merci beaucoup MJ13, c'est parfait.
Bonne après-midi

 

[bellous]

Re : "Enregistrer sous" dans macro

Merci Kristof mais le code de MJ13 est simple et fonctionne très bien.

 

[Staple1600]

Re : "Enregistrer sous" dans macro

Bonjour


Tu peux aussi utiliser le code de MJ13 ainsi

sub enregistrement()
ThisWorkbook.SaveAs (InputBox("Nom d'enregistrement?"))
end sub

 

[MJ13]

Re : "Enregistrer sous" dans macro

Re Bonjour

Merci Staple, j'y avais penser qu'on pouvait le faire mais je me suis dit: On va y aller doucement!

 

[Staple1600]

Re : "Enregistrer sous" dans macro

Bonjour Michel


Faudrait aussi rajouter

sub enregistrement()
On Error Resume Next
ThisWorkbook.SaveAs (InputBox("Nom d'enregistrement?"))
end sub

pour le clic sur [Annuler]

 

[MJ13]

Re : "Enregistrer sous" dans macro

Re bonjour

Attention au

On Error Resume Next

Si on met un caractère non compatible avec l'enregistrement (ex: \), on peut croire que le fcihier a été enregistrer sans qu'il le soit.