Discussion :

[magninde]

Bonjour,

J'ai cree un bouton (Userform) qui me permet d'enregistrer ma feuille selon un processus bien precis (Nom + repertoire...)

Je souhaiterais que les fonctions Save et Save As de la barre de menu d'excel renvoie directement a ce que fait mon bouton et nom a l'enregitrement classique d'excel.
Je ne connais pas les codes pour maitriser les fonctions de la barre de menu...

merci d'avance.

christophe

[tirex28]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Dans le module ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Processus
End Sub
 
'Dans ton userform
Private Sub CommandButton1_Click()
    Processus
End Sub
 
'Dans un module standard
Sub Processus()
    'Ton processus bien précis
End Sub

Cordialement,

Tirex28/

[DeaD78]

Bonjour,

Jette un oeil à l'event BeforeSave de ton WorkBook C'est là-bas qu'il faut placer ton code ! Et dans ton UserForm bien entendu !

Bonne chance

EDIT : et mince, y'a un dinosaure qui vient de me passer dessus Carnivore en plus ! Aïe, non, pas le bras ! Salut tirex

[Krovax]

je rajouterais juste cancel=true dans le before save. Pour annuler l'enregistrement "normal"

Code :

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

1
2
3
4
5
'Dans le module ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    cancel=true
    Processus
End Sub

Par contre j'ignore ce que tu fait avec tes fonction save et save as et je ne sais pas si cela active le BeforeSave (ce qui risquerais de lancer une vilaine boucle)

Edit : Je vien de vérifier effectivement ca lance une vilaine boucle du coup il faut "encadrer" saveas par EnableEvents

Code :

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

1
2
3
Application.EnableEvents = False
ThisWorkbook.SaveAs "C:\test.xls"
Application.EnableEvents = True

[tirex28]

Re,

je rajouterais juste cancel=true dans le before save. Pour annuler l'enregistrement "normal"

Edit : Je vien de vérifier effectivement ca lance une vilaine boucle du coup il faut "encadrer" saveas par EnableEvents

Suite a ces deux remarques tres pertinentes je complete un peu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Dans le module ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
    Processus
End Sub
 
'Dans ton userform
Private Sub CommandButton1_Click()
    Processus
End Sub
 
'Dans un module standard
Sub Processus()
    Application.EnableEvents = False
    On Error GoTo ErrorHandler
 
    'Ton processus bien précis
 
    Exit Sub
ErrorHandler:
    Application.EnableEvents = True
End Sub

Bonne journée,

Tirex28/

[magninde]

Bonjour,

Merci beaucoup.

+ J'ai bien affecte mon processus de sauvegarde a mon bouton "save".

+ J'ai bien cree la macro de processus de sauvegarde (entouree par les "Application. EnableEvents...")

=> La macro fonctionne, le bouton fonctionne!

+ J'ai bien place l'Event BeforeSave dans This Workbook.

=> Lorsque je choisi 'Fichier', 'Save As' ou 'Save', mon processus de sauvegarde ne se met pas en route mais seulement la sauvegarde "classique" d'Excel.

Comment faire ?

Merci d'avance

Christophe