One Time

tototiti2008

XLDnaute Barbatruc

• 23 Octobre 2009

• #2

Re : One Time

Bonjour tallia,

ce n'est pas "OneTime" mais "OnTime"

il faut faire attention parce que si le classeur qui contient ce code n'est pas ouvert à 17h00 mais qu'excel l'est encore, Excel essayera de rouvrir le classeur contenant le code... pas sûr que ce soit clair, ça 😉

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 23 Octobre 2009

• #3

Re : One Time

Bonjour,


Essayez la démarche suivante

1) copiez le code suivant dans la fenêtre de code de ThisWorkbook

Code:

Private Sub Workbook_Open()
Application.OnTime TimeValue("17:00:00"), "Ferme1"
End Sub

2) copiez le code suivant dans un module standard

Code:

Sub Ferme1()
Workbooks("Base.xls").Close savechanges:=False
End Sub

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 24 Octobre 2009

• #4

Re : One Time

Bonsoir merci pour votre aide. J'ai testé le code mais malheureusement ça ne fonctionne pas mon application excel ne se ferme pas il ne se passe rien. Pourtant je l'ai mis dans le "workbook_open". Bonne soirée.

Tallia64 🙂

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Octobre 2009

• #5

Re : One Time

Bonjour,

Voir PJ

Code:

Sub auto_open()
  heure = "07:45:00"
  Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
End Sub

Sub ferme()
   ActiveWorkbook.Close savechanges = True
End Sub

JB

 

Pièces jointes

• OntimeFermeHeure.xls

  20 KB · Affichages: 103

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 27 Octobre 2009

• #6

Re : One Time

Bonsoir boisgontier,
Je viens de tester la pièce jointe mais ça ne fonctionne pas mon fichier ne se ferme pas et excel non plus. Je vous remercie pour votre aide.
Bonne soirée tallia 🙂

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 27 Octobre 2009

• #7

Re : One Time

Bonjour le fil et Tallia,
Tallia dans l'editeur affiche la fenêtre exécution
copie ceci....

application.EnableEvents=true

place le curseur en bout de ligne et tape Enter
cette commande remets la gestion des événements (peut être là tu déja utilisée)
Sinon les codes proposés fonctionnent.

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 27 Octobre 2009

• #8

Re : One Time

Bonsoir Youky j'ai suivi ton indication mais je dois être nulle ça ne fonctionne pas mon application ne se ferme pas. Quand je mets application.EnableEvents=true
dans la fenêtre d'exécution et je tape sur enter il ne se passe rien.
Je te remercie pour ton aide je vais continuer à chercher ce qui bloque.
bonne soirée
tallia 🙂

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 30 Octobre 2009

• #9

Re : One Time

Je reviens à nouveau vers vous avec mon problème de ontime j'ai essayé plusieurs fois mais sans succès. Mais peut être que je ne place pas les codes que l'on m'a transmis dans le bon endroit? Si quelqu'un peut m'éclairer je vous en remercie d'avance.
bonne journée 🙂

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 30 Octobre 2009

• #10

Re : One Time

Bonjour Tallia

Il manque peut-être ton fichier pour t'aider au mieux.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Octobre 2009

• #11

Re : One Time

Bonjour à tous

regarde l'article de notre ami Didier sur la méthode "OnTime", tu y trouveras peut être la solution à ton problème.

Articles : myDearFriend! Excel Pages

Bon après midi
@+

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 30 Octobre 2009

• #12

Re : One Time

bonjour pierrot merci pour ton message je vais aller consulter l'article de suite.
tallia 🙂

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 30 Octobre 2009

• #13

Re : One Time

Je viens de lire attentivement l'arcticle sur ontime et appliquer les codes mais sans succès ma macro ne se déclenche pas. Peut être un problème de paramètre sur mon ordi ou les codes mal placés je ne sais pas ??? Par contre est ce que c'est possible d'enregistrer et fermer un fichier excel par une tâche planifié ? Merci à tout le forum.
tallia 🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Octobre 2009

• #14

Re : One Time

Re

comprends pas trop, tu as bien exécuté pas à pas (via la touche F8) le code d'initialisation, en modifiant l'heure bien sur...

Code:

Private Sub Workbook_Open()
Application.OnTime TimeValue("17:00:00"), "Ferme1"
End Sub

@+

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 30 Octobre 2009

• #15

Re : One Time

oui je viens de le refaire en modifiant l'heure ça ne fonctionne pas la macro ferme ne se déclenche pas.

 

Vote positif 0 Vote négatif