Problème avec macro de sauvegarde automatique

[noel33]

Bonjour à tous,

Dans un fichier de suivi que j'ai créé, j'ai un soucis de macro:

J'ai une macro qui , à l'aide d'un bouton, sauvegarde le classeur dans un fichier spécifique avec le jour de l'enregistrement.

Mon soucis, c'est qu'après cet enregistrement, je ne reste pas si le classeur sur lequel je travaillais mais sur le classeur de sauvegarde.


Je ne sais pas comment faire. Quelqu'un peut m'aider svp?

MDP titi et HLQ.


D'avance merci,

N

 

[Chris24]

Bonjour

Peut être avec un "SaveCopyAs"

Cdt

 

[Lone-wolf]

Bonjour noel

Impossible d'afficher le code, enlève le mot de passe.

EDIT: bonjour Chris

 

[Lone-wolf]

Re

Et tu nous dit toujours pas quelle est la version Excel que tu utilise, le code que je t'avais donné (OUTLOOK) est fonctionnel chez moi.

   chemin = "C:\Users\" & Environ("Username") & "\Desktop\"
    nom = Feuil1.Range("f5") & " - " & Date

    ActiveSheet.Copy
    ActiveSheet.DrawingObjects.Delete
    ActiveSheet.SaveAs Filename:=chemin & nom & ".xlsm", _
                       FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveWorkbook.Close True

 

[noel33]

re à tous, merci de votre implication.

Excel 2010, le Mdp des macro c'est titi.

Lone Wolf j'ai bien utilisé ton code, mon soucis est ailleur. (retour sur le bon fichier)


N.

 

[Lone-wolf]

Re

Sub Enregistrement()
Dim chemin As String, nom As String

    chemin = "C:\Users\Asus\Desktop\Sauvegarde CR\"
    nom = "Compte rendu du " & Format(Date, "dd mmmm yyyy") & "_" & Format(Time, "hh" & "'" & "mm" & "'" & "ss")

    If MsgBox("Voulez vous Enregistrer ?", vbYesNo, "Nom du fichier : " & nom) = vbYes Then
        ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xlsm", _
                              FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        ActiveWorkbook.Close True
    End If
End Sub