Si clique sur Enregisrer alors ... VBA

vgendron

XLDnaute Barbatruc

• 22 Décembre 2015

• #2

Re : Si clique sur Enregisrer alors ... VBA

Hello,

une piste:
tu as placé ton code dans le Workbook_Open...
ne faut il pas le mettre plutot dans le workbook_BeforeSave?

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 22 Décembre 2015

• #3

Re : Si clique sur Enregisrer alors ... VBA

Bonsoir petedesky, vgendron, le Forum,

@ petedesky,

Tu dis que ça ne fonctionne pas comme tu voudrais mais tu ne dis pas comment tu voudrais que ça fonctionne?

A +

Cordialement.

 

Vote positif 0 Vote négatif

P

petedesky

XLDnaute Nouveau

• 22 Décembre 2015

• #4

Re : Si clique sur Enregisrer alors ... VBA

Salut,

Merci pour ce tuyau, je viens d'appliquer ça et j'ai maintenant un message :

"Erreur Compilation. La déclaration de la procédure ne correspond pas à la description de lévènement ou de la procédure de même nom"


Voila mon code dans ThisWorkbook
--------------------
Private Sub workbook_BeforeSave()

If ActiveWorkbook.Save = True And ActiveWorkbook.Name = "FORMULAIRE DE DEVIS MATIERES ET CREATION D'ARTICLE V2.xlsm" Then

Application.Dialogs(xlDialogSaveAs).Show

Else

Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True

End If

End Sub
-------------

En tout cas j'avance. Merci quand même 😉

 

Vote positif 0 Vote négatif

P

petedesky

XLDnaute Nouveau

• 22 Décembre 2015

• #5

Re : Si clique sur Enregisrer alors ... VBA

Bonsoir Papou-net

@ Papou-net

Effectivement, en fait je ne sais pas si ça sauve quand même le fichier ou si ça ne fait rien.

En tout cas depuis que je suis passé en Worbook_Before Save j'ai le message d'erreur expliqué dans ma réponse juste au dessus.

 

Vote positif 0 Vote négatif

P

petedesky

XLDnaute Nouveau

• 22 Décembre 2015

• #6

Re : Si clique sur Enregisrer alors ... VBA

"FORMULAIRE DE DEVIS MATIERES ET CREATION D'ARTICLE V2.xlsm" est le nom de mon fichier modèle dans la "Vraie vie" donc faite comme si c'était "MODELE"...

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 22 Décembre 2015

• #7

Re : Si clique sur Enregisrer alors ... VBA

Re
Hello Papou

Code:

Private Sub workbook_BeforeSave()
'à priori. si tu arrives la. c'est que la condition "appuie sur le bouton" est vraie..
'donc pas besoin du activeworkbook.save (qui doit etre la source du message d'erreur??)
If ActiveWorkbook.Name = "FORMULAIRE DE DEVIS MATIERES ET CREATION D'ARTICLE V2.xlsm" Then

Application.Dialogs(xlDialogSaveAs).Show

Else

Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True

End If

End Sub

 

Vote positif 0 Vote négatif

P

petedesky

XLDnaute Nouveau

• 22 Décembre 2015

• #8

Re : Si clique sur Enregisrer alors ... VBA

Nope toujours pas, j'ai toujours le message:
"Erreur Compilation. La déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure de même nom"

J'ai l'impression que VBA attend quelque chose entre les () du BeforeSave

Merci pour ta patience.

 

Vote positif 0 Vote négatif

P

petedesky

XLDnaute Nouveau

• 22 Décembre 2015

• #9

Re : Si clique sur Enregisrer alors ... VBA

Bon j'ai trouvé, grâce à votre aide et des explications sur le BeforeSave

Voici mon code au final :

--------
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


If ActiveWorkbook.Name = "FORMULAIRE DE DEVIS MATIERES ET CREATION D'ARTICLE V2.xlsm" Then

MsgBox ("Merci de ne pas écraser ce formulaire modèle, Enregistrez sous un autre nom s'il vous plait")

Application.Dialogs(xlDialogSaveAs).Show

Else

Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True

End If

End Sub

------

Merci à tous

 

Vote positif 0 Vote négatif