Discussion :

[boboss123]

Bonjour,

Est-il possible de faire une macro qui modifie le fonctionnement de bouton enregistrer sous excel ?
=> je voudrais que lorsque l'utilisateur clic sur le bouton enregistrer (ou qu'il passe pas le menu enregistrer) faire une macro qui enregistre uniquement la page nommé "toto" dans un nouveau classeur à un emplacement particulier (les macro ne doivent pas être enregistré pour alléger la taille du classeur)
=> je ne veux pas que le nouveau classeur créer soit ouvert dans excel : je veux garder le classeur excel courant ouvert

=> c'est possible à faire ?

Merci d'avance

[ctac_]

Bonjour,

Il est possible de faire comme ça mais attention, l'original n'est jamais sauvegardé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim WK As Workbook
    Application.ScreenUpdating = False
    Set WK = Workbooks.Add(xlWBATWorksheet)
    ThisWorkbook.Worksheets("toto").Copy
    WK.ActiveSheet.Paste
    WK.Close True, "toto"
    Set WK = Nothing
    Cancel = True
    Application.ScreenUpdating = True
End Sub

ctac

[boboss123]

merci, c'est parfait