Info bulle un peu spéciale

[Deneb]

Bonjour le forum !

Je me trouve devant une problèmatique un peu délicate, et je ne trouve rien à ce sujet.

l'objectif est simple : faire apparaitre une info-bulle sur le bouton enregistrer de la barre d'outil standard d'excel (dans un certain fichier et non par défaut ).

Idéalement je voudrai réafecter une macro sur le bouton enregistrer...

En effet mon fichier doit s'enregistrer sur un certain onglet (ceux qui ont participé à mes discutions précédentes sauront pourquoi). Fabriquer un bouton enregistrer ne fonctionnera pas, car un utilisateur est très attaché à ses petites habitudes... mettre une instruction dans le fichier n'est pas assez fiable (personnellement je ne les lis que très rarement).


Voilà si vous avez des idées, des solutions, tout m'intéresse !

 

[mromain]

Re : Info bulle un peu spéciale

Bonjour Deneb,

Une autre solution serait de sélectionner l'onglet avant de fermer le classeur en mettant un petit code ici :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

a+

 

[Deneb]

Re : Info bulle un peu spéciale

Merci mromain.
C'est une idée à creuser... si on selectionne un autre onglet à la fermeture il considèrera cela comme un changement et demandera donc si on veut enregistrer les modifications ... je vais essayer.

Merci encore

 

[mromain]

Re : Info bulle un peu spéciale

Re,

Effectivement, il y aura modification, mais tu peux re-enregistrer le classeur par macro

a+

 

[Deneb]

Re : Info bulle un peu spéciale

Bon la commande d'avant fermeture fonctionne, par contre il sauvegarde pas, et ne le propose même pas ...
des idées ?

 

[mromain]

Re : Info bulle un peu spéciale

Re,

essaye un truc du genre :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim memIsSaved As Boolean
    
    'mémoriser si le classeur est enregistré
    memIsSaved = ThisWorkbook.Saved
    
    'sélectionner l'onglet
    ThisWorkbook.Sheets("Feuil1").Activate
    
    'sauvegarder automatiquement si le classeur était déjà enregistré
    If memIsSaved Then ThisWorkbook.Save
End Sub

a+

 

[Deneb]

Re : Info bulle un peu spéciale

Merci ! ça marche ! bonne journée