bonsoir raf26
pour activer les macros et sauvegarder le classeur dans le dossier source
dans l'évenement classeur
Private Sub Workbook_Open()
Application.Calculation = xlAutomatic
call enregistrer
End Sub
1- la macro suivante est fonctionnelle mais il est possible de l'adapter à votre classeur
copier la macro suivante et coller dans un module
Sub enregistrer()
'boite de dialogue
Dim Left1 As Variant
Dim Top1 As Variant
Dim HelpFile1 As Variant
Dim HelpContextId1 As Variant '*****************
Dim Prompt1 As String
Dim Title1 As Variant
Dim Default1 As Variant
Dim Type1 As Variant
'response est fonction du type1
Dim reponse1 As String
Dim chemin As String
Dim date1 As String
' si annuler sortie
Left1 = ""
Top1 = ""
HelpFile1 = ""
HelpContextId1 = ""
Prompt1 = "Nom du fichier" 'Message à afficher dans la boîte de dialogue
Title1 = "Enregistrer un fichier" 'Titre de la zone de saisie
Default1 = "SAUVEGARDE"
Type1 = 2
reponse1 = Application.InputBox(Prompt:=Prompt1, Title:=Title1, Default:=Default1, Type:=Type1)
If reponse1 = "" Then Exit Sub
chemin = ThisWorkbook.Path & "\"
date1 = Format(Now, "YYYY/./mm/./dd/.../'HHMM'/.")
date1 = Replace(date1, "/", "")
ActiveWorkbook.SaveAs Filename:=chemin & date1 & " " & reponse1 & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
cordialement
galougalou