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,