Fonction Save et Save As de menu Excel

Version imprimable

20/05/2009, 15h14
magninde

Fonction Save et Save As de menu Excel

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

Bonjour,

Code:

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/

20/05/2009, 16h19
DeaD78

Bonjour,

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

Bonne chance :ccool:

EDIT : et mince, y'a un dinosaure qui vient de me passer dessus 8O Carnivore en plus ! Aïe, non, pas le bras ! Salut tirex :mouarf:
20/05/2009, 16h21
Krovax
je rajouterais juste cancel=true dans le before save. Pour annuler l'enregistrement "normal"
Code:

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:

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

Re,

Citation:

Envoyé par Krovax

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

:ccool:

Citation:

Envoyé par Krovax

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

:ccool::ccool:

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

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/

21/05/2009, 06h23
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