FORUM MP | Bureautique - Excel : Fermeture automatique d'un classeur

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Fermeture automatique d'un classeur
	Forum : BUREAUTIQUE - EXCEL Sous Catégorie : Excel Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE - EXCEL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM BUREAUTIQUE - EXCEL
	Page précedente	Page suivante

Veltins
Nouveau membre

Inscrit : 02/07/2007
Messages : 29

#138191 Posté le 11/07/07 à 19:09

Bpnsoir,

Mon classeur s'ouvre automatiquement à 8h45, se met à jour automatiquement et s'imprime aussi automatiquement. Je voudrais qu'il se ferme tout seul également. Est-ce que cette macro peut me permettre de fermer mon classeur en l'enregistrant juste avant ?

Meri d'avance.

Hélène

Dans un module:

Public HeureFermeture Sub FermeClasseur() ActiveWorkbook.Close True End Sub

Dans thisWorkbook:

Private Sub Workbook_Open() HeureFermeture = Now + TimeValue("00:09:00") Application.OnTime HeureFermeture, "FermeClasseur" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnTime EarliestTime:=HeureFermeture, Procedure:="fermeClasseur", Schedule:=False End Sub

Bonne soirée !

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#138220 Posté le 12/07/07 à 10:59

Bonjour

si l'activeworkbook est bien celui qu'il faut fermer ça doit fonctionner

sinon dans le module mettre

thisworkbook.close

et dans le thisworkbook il n'y a pas besoin du code se trouvant dans le before

mais il faut y mettre

thisworkbook.save
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Veltins
Nouveau membre

Inscrit : 02/07/2007
Messages : 29

#138268 Posté le 12/07/07 à 18:53

J'ai une erreur sur la ligne :
Application.OnTime EarliestTime:=HeureFermeture,Procedure:="fermeClasseur", Schedule:=False

Quand je mets ma souris dessus, ca m'écrit "Procedure vide".

(AU passage, "fermeclasseur" c'est bien le nom de ma macro ?).

En modifiant, ça reviendrait à ceci ? :

Public HeureFermeture

Sub FermeClasseur()
This Workbook.Close
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
thisworkbook.save
End Sub

---

Par contre, je ne comprends pas trop "si l'activeworkbook est bien celui qu'il faut fermer ça doit fonctionner". Si j n'ai qu'un classeur d'ouvert ça devrait marcher non ?

Merci d'avance

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#138279 Posté le 12/07/07 à 20:49

veltins dit :
Par contre, je ne comprends pas trop "si l'activeworkbook est bien celui qu'il faut fermer ça doit fonctionner". Si j n'ai qu'un classeur d'ouvert ça devrait marcher non ?

oui

faire l'essai pour t'en convaincre Smiley

__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE - EXCEL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.