One Time

[tallia64]

Bonjour j'ai créé ce petit code afin de fermer une application excel à une heure précise mais je ne sais pas où le placer. J'ai essayé dans le worbook mais ça ne fonctionne pas en voici le contenu

Application.OneTime TimeValue ("17:00:00") "Ferme1"

Macro Ferme1

Private sub Ferme1 ()
Workbook ("Base.xls").close savechanges := false
End sub

Je vous remercie pour votre aide.
Tallia64🙂

 

[Pierrot93]

Re : One Time

Re

oui, alors je ne comprends pas ... vérifie peut être ton heure système si elle est juste, sait on jamais...

 

[tallia64]

Re : One Time

Je viens de vérifier mon heure système elle est correcte je ne sais plus quoi penser ?? et avec l'assistant de tâche planifié est il possible d'enregistrer et fermer un fichier excel ? Merci 🙂

 

[Pierrot93]

Re : One Time

Re

sans doute, mais perso pas d'expérience avec le planificateur de tâche...

 

[tallia64]

Re : One Time

D'accord un grand merci pour ton aide. Tallia 🙂

 

[jeanpierre]

Re : One Time

Bonjour tallia64, Pierrot, Youky(BJ), Jacques BOISGONTIER, PMO2, toto,

Je pense que c'est possible encore faut-il essayer.... mais à mon sens, c'est dans le planificateur et non dans Excel qu'il faut agir. Si j'ai tout bien compris...

Bon AM.

Jean-Pierre

 

[youky(BJ)]

Re : One Time

Bonjour tallia64, Pierrot, Jacques BOISGONTIER, PMO2, toto,jeanpierre,

Tallia, avec le fichier que voici on va voir si vraiment ton PC a un problème.
L'aide d'un fichier résoud bien des cas.
Tiens nous au courant.....

 

[tallia64]

Re : One Time

bonsoir youki merci pour ton aide je viens de tester le fichier fonctionne très bien au bout de 15 secondes excel se ferme. je vais essayer de l'adapter pour mon application je te tiens au courant. Merci Tallia 🙂

 

[tallia64]

Re : One Time

Bonjour le forum
J'ai essayé d'intégrer le code du bouton macro directement dans le code de mon application mais ça ne fonctionne pas mon application et excel ne se ferment pas. Par contre si j'utilise le bouton macro là ça fonctionne ! Si vous avez une petite idée je vous en remercie d'avance. Tallia 🙂

 

[youky(BJ)]

Re : One Time

Tallia,
serait'il possible de savoir dans quel événement tu mets le code pour tester..
Si bien sur !!! cela n'est pas trop indiscret..........

 

[tallia64]

Re : One Time

bonsoir youki merci pour ton message je teste le code dans le feuil1Worksheet_SelectionChange et je le testé aussi dans le workbook_open mais sans succès.
Merci pour ton aide tallia 🙂

 

[UtilisateurExcel]

Re : One Time

Je suis presque sûr que tu as du collé ce morceau de code dans un module1 ou quelque chose comme ça.

Private Sub Workbook_Open()
Application.OnTime TimeValue("17:00:00"), "Ferme1"
End Sub
doit OBLIGATOIREMENT être collé dans ThisWorkbook,
qui n'est pas un module ordinaire.

Enregistre ton classeur, et réouvre-le
(macros sécurité réglées sur niveau bas)
Ca fonctionnera à la prochaine ouverture.

C'est une instruction qui se déclenche à l'ouverture de ton classeur.