× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Problème de macro " fermeture du fichier"Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
au secours
  Posté le 01/09/2007 @ 15:21 
Aller en bas de la page 
Petite astucienne

Bonjour,

J'ai un petit problème avec une de mes macros.

Sachant que le but de l'opération est que:

1 : l'utilisateur ne puisse quitter le fichier qu'à partir du bouton auquel est associé la macro "quitter"

2: lorque l'utilisateur quitte le fichier, il n'ait pas le message "voulez vous enregistrer...."

3: qu'il ne puisse pas utiliser la croix de fermeture d'excel pour fermer le dit "fichier" et que des qu'il essai il soit renvoyé à la feuille Menu

4: qu' un message apparaît avant la fermeture

Afin de réaliser les conditions décrites si dessus :

1 :J'ai écrit la macro suivante associer au bouton quitter:

Sub quitter()

Application.CommandBars(1).Enabled = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
MsgBox " Bonne journée ", vbInformation, "A bientôt"
FlagFin = True
ActiveWorkbook.Saved = True
ActiveWorkbook.Close

End Sub

2: j'ai écrit dans Thiswoorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not FlagFin
Exit Sub
Sheets("Menu").Select


End Sub

Cependant le résultat obtenu n'est pas celui que j'attendais

L'utilisateur ne peux pas utiliser la croix excel pour quitter l'application

Mais il n'est pas automatiquement renvoyé sur la feuille Menu

Quand l'utilisateur clic sur le bouton quitter: le message s'affiche

Mais le fichier ne se ferme pas

Pouvez-vous m'aider ????

NB: J'utilise Excel 2000.

Publicité
m@rina
 Posté le 01/09/2007 à 15:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonjour

Sans analyser ta macro de près, d'autant plus que je ne sais pas ce qu'est FlagFin, tu as un Exit Sub qui te fait quitter la macro avant l'affichage de ta feuille Menu.

Donc, ton problème me paraît normal.

au secours
 Posté le 01/09/2007 à 15:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Merci Marina ,

tu as parfaitement raison: Le code Exit Sub était de trop et empêcher l'execution de la fin de la macro.

La première partie du problème est donc résolue.

Reste la fermeture du fichier.

Le code relatif à "FlagFin", inséré au niveau de "Thiswoorkbook" est supposé empécher l'utilisateur de quitter le fichier à l'aide de la "croix Excel" mais je me demande si il n'empêche pas également d'empêcher toute procèdure de fermeture du fichier!!! (ce qui n'est pas le but recherché)

Je continue à chercher .

Merci en tout cas de ton aide

m@rina
 Posté le 01/09/2007 à 16:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Tu peux regarder dans les trucs du supermacroteur, Frédéric Sigonneau ici :

http://frederic.sigonneau.free.fr/Bricolos.htm

et plus précisément ici :

http://frederic.sigonneau.free.fr/code/Bricolos/CroixFermetureFeuilleCalcul.txt

où il nous dit que la croix de fermeture se désactive avec les boutons minimiser et agrandir (c'est tout ou rien).

galopin01
 Posté le 01/09/2007 à 16:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Dans un module standart (Module1 par exemple) mettre avant toute macro

Public FlagFin

A+

au secours
 Posté le 01/09/2007 à 17:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Merci à Galopin01 et Marina

Grâce à votre aide, mon fichier fonctionne correctement maintenant.

m@rina
 Posté le 01/09/2007 à 17:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Ah ben super !!!

J'avais cru lire quelque part que notre supermacroteur Galopin était très occupé, et qu'il fallait prendre rendez-vous !!!!

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
62,66 €Outil 3 en 1 Coupe-bordure/Tondeuse/Dresse-bordure 550 W 30 cm Black + Decker à 62,66 €
Valable jusqu'au 24 Octobre

Amazon fait une promotion sur l'outil 3 en 1 Black + Decker ST5530CM qui passe à 62,66 € livré gratuitement alors qu'on le trouve ailleurs à partir de 80 €. Cet outil de 550W pour le jardin regroupe un coupe-bordure, une tondeuse 30 cm et un dresse-bordure.


> Voir l'offre
36,99 €Disque dur Western Digital Blue 1 To à 36,99 €
Valable jusqu'au 24 Octobre

Cdiscount fait une belle promotion sur le disque dur Western Digital Blue 1 To à 36,90 €. Ce disque dur 3.5 pouces SATA III  tourne à 7200 tr/min.


> Voir l'offre
299,95 €Ecran 31,5 pouces LG Ultragear 32GK650F-B (QHD, 144 Hz) à 299,95 €
Valable jusqu'au 31 Octobre

LDLC fait une promotion sur l'écran LG 31,5 pouces LG Ultragear 32GK650F-B qui passe à 299,95 € au lieu de 349 € ailleurs. Cet écran possède une dalle 31,5 pouces QHD (2560x1440) à 144 Hz, un temps de réponse de 5 ms. Il est compatible FreeSync.


> Voir l'offre

Sujets relatifs
problème macro
Probleme excel - tri dans macro Excel 2007
probleme macro excel 2010
problème de macro
Problème macro open office
probleme macro fermeture de fichier !!
Problème macro
probleme avec macro sur excel 2007
Problème macro
problème macro
Plus de sujets relatifs à Problème de macro " fermeture du fichier"
 > Tous les forums > Forum Bureautique