XL 2013 Bloquer les fonction enregistrer et enregistrer sous

[rochethomas]

Bonjour
J’utilise un bouton avec une macro qui enregistre mon ficher dans un endroit spécifique en fonction de donné dans le classeur .
Je voulais savoir si il était possible de bloquer les fonctions enregistrer et enregistrer sous qui sont dans Excel pour utiliser que mon bouton !

 

[Compte Supprimé 979]

Bonjour Thomas

A mettre dans un module

Public FlagSave As Boolean

Sub Sauvegarde()
  MsgBox "Le bouton à été utilisé", vbInformation, "OK pour la SAUVEGARDE"
  ' Mettre le Flag à VRAI
  FlagSave = True
  ' Ici le code de sauvegarde

End Sub

Dans ThisWorkBook on utilise l'évènement BeforeSave

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If FlagSave = False Then
    MsgBox "Merci d'utiliser le bouton prévu à cet effet", vbCritical, "SAUVEGARDE IMPOSSIBLE..."
    Cancel = True
  End If
End Sub

J'espère que ce sera assez clair pour vous
A+

 

[rochethomas]

Bonjour Thomas

A mettre dans un module

Public FlagSave As Boolean

Sub Sauvegarde()
  MsgBox "Le bouton à été utilisé", vbInformation, "OK pour la SAUVEGARDE"
  ' Mettre le Flag à VRAI
  FlagSave = True
  ' Ici le code de sauvegarde

End Sub

Dans ThisWorkBook on utilise l'évènement BeforeSave

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If FlagSave = False Then
    MsgBox "Merci d'utiliser le bouton prévu à cet effet", vbCritical, "SAUVEGARDE IMPOSSIBLE..."
    Cancel = True
  End If
End Sub

J'espère que ce sera assez clair pour vous
A+

Je doit mettre ça dans le module de mon bouton de sauvegarde ?

 

[Compte Supprimé 979]

Re,

Dans le module de ton bouton de sauvegarde tu as juste à mettre ceci au tout début

Public FlagSave As Boolean

ça ensuite au tout début de ta sub

  ' Mettre le Flag à VRAI
  FlagSave = True

L'autre partie comme indiqué est à mettre dans ThisWorkbook

A+

 

[rochethomas]

Re,

Dans le module de ton bouton de sauvegarde tu as juste à mettre ceci au tout début

Public FlagSave As Boolean

ça ensuite au tout début de ta sub

  ' Mettre le Flag à VRAI
  FlagSave = True

L'autre partie comme indiqué est à mettre dans ThisWorkbook

A+

Super un grand merci pour votre aide et votre rapidité de réponse !!

Cela a l'air tellement simple ...

 

[rochethomas]

Bonjour Thomas

A mettre dans un module

Public FlagSave As Boolean

Sub Sauvegarde()
  MsgBox "Le bouton à été utilisé", vbInformation, "OK pour la SAUVEGARDE"
  ' Mettre le Flag à VRAI
  FlagSave = True
  ' Ici le code de sauvegarde

End Sub

Dans ThisWorkBook on utilise l'évènement BeforeSave

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If FlagSave = False Then
    MsgBox "Merci d'utiliser le bouton prévu à cet effet", vbCritical, "SAUVEGARDE IMPOSSIBLE..."
    Cancel = True
  End If
End Sub

J'espère que ce sera assez clair pour vous

 

[rochethomas]

Puis je vous demander une autre informations , lors de l'enregistrement de mon fichier j'utilise les donné d'une cellule qui donne la date cependant lorsque le format de la cellule est en date la macro ne marche plus (je suppose que c'est windows qui ne gere pas les / dans les titres de fichier) je voulais savoir si il existe une solution quand meme ?

 

[Compte Supprimé 979]

Bonjour Thomas

Lorsqu'on veut enregistrer un fichier avec une date, on utilise

sNomFic = Format(Range("A1"),"yyyy.mm.dd") & ".xlsx"

Comme ça le nom du fichier est Ok avec Windows et trié correctement

A+