Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur 438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" a écrit dans le message de news:Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" <ffo@discussions.microsoft.com> a écrit dans le message de news:
B1FD6193-C05F-4D04-A80C-4E5F6AF61FD7@microsoft.com...
Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" a écrit dans le message de news:Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" a écrit dans le message de news:Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" <ffo@discussions.microsoft.com> a écrit dans le message de news:
B1FD6193-C05F-4D04-A80C-4E5F6AF61FD7@microsoft.com...
Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" a écrit dans le message de news:Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
ffo je suis d'accord avec toi que le code fonctionne nikel sous Excel mais
sous Office Outlook 2003 de mon coté cela ne fonctionne pas...
Il m'indique que l'objet Application.OnTime n'est pas géré...
De ton coté tu as autre chose ??
Merci
Cdlt,
Mathieu
"Mathieu" a écrit dans le message de news:merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" a écrit dans le message de news:Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
ffo je suis d'accord avec toi que le code fonctionne nikel sous Excel mais
sous Office Outlook 2003 de mon coté cela ne fonctionne pas...
Il m'indique que l'objet Application.OnTime n'est pas géré...
De ton coté tu as autre chose ??
Merci
Cdlt,
Mathieu
"Mathieu" <matoo7254@hotmail.com> a écrit dans le message de news:
eEMsDV8lHHA.596@TK2MSFTNGP06.phx.gbl...
merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" <ffo@discussions.microsoft.com> a écrit dans le message de news:
B1FD6193-C05F-4D04-A80C-4E5F6AF61FD7@microsoft.com...
Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
ffo je suis d'accord avec toi que le code fonctionne nikel sous Excel mais
sous Office Outlook 2003 de mon coté cela ne fonctionne pas...
Il m'indique que l'objet Application.OnTime n'est pas géré...
De ton coté tu as autre chose ??
Merci
Cdlt,
Mathieu
"Mathieu" a écrit dans le message de news:merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" a écrit dans le message de news:Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook ??
car si je met le meme code ds outlook il m'affiche un message d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Hé hé !!!!
Encore eusse t'il falut que je susse que tu était sous Office Outlook !!!!
Aucun de tes messages n'en fait état
D'ou le quiproquo
Je peux difficilement t'aider n'étant pas en proi avec la même application
Dommage
Peut être une autre âme charitableffo je suis d'accord avec toi que le code fonctionne nikel sous Excel
mais
sous Office Outlook 2003 de mon coté cela ne fonctionne pas...
Il m'indique que l'objet Application.OnTime n'est pas géré...
De ton coté tu as autre chose ??
Merci
Cdlt,
Mathieu
"Mathieu" a écrit dans le message de news:merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" a écrit dans le message de news:Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook
??
car si je met le meme code ds outlook il m'affiche un message
d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Hé hé !!!!
Encore eusse t'il falut que je susse que tu était sous Office Outlook !!!!
Aucun de tes messages n'en fait état
D'ou le quiproquo
Je peux difficilement t'aider n'étant pas en proi avec la même application
Dommage
Peut être une autre âme charitable
ffo je suis d'accord avec toi que le code fonctionne nikel sous Excel
mais
sous Office Outlook 2003 de mon coté cela ne fonctionne pas...
Il m'indique que l'objet Application.OnTime n'est pas géré...
De ton coté tu as autre chose ??
Merci
Cdlt,
Mathieu
"Mathieu" <matoo7254@hotmail.com> a écrit dans le message de news:
eEMsDV8lHHA.596@TK2MSFTNGP06.phx.gbl...
merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" <ffo@discussions.microsoft.com> a écrit dans le message de news:
B1FD6193-C05F-4D04-A80C-4E5F6AF61FD7@microsoft.com...
Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!
Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook
??
car si je met le meme code ds outlook il m'affiche un message
d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu
Hé hé !!!!
Encore eusse t'il falut que je susse que tu était sous Office Outlook !!!!
Aucun de tes messages n'en fait état
D'ou le quiproquo
Je peux difficilement t'aider n'étant pas en proi avec la même application
Dommage
Peut être une autre âme charitableffo je suis d'accord avec toi que le code fonctionne nikel sous Excel
mais
sous Office Outlook 2003 de mon coté cela ne fonctionne pas...
Il m'indique que l'objet Application.OnTime n'est pas géré...
De ton coté tu as autre chose ??
Merci
Cdlt,
Mathieu
"Mathieu" a écrit dans le message de news:merci ffo
mais si je met ça :
Sub toto()
Application.OnTime Now + TimeValue("00:00:10"), "toto2"
End Sub
Sub toto2()
Application.Quit
End Sub
il me met une erreur d'instruction 438 quand meme !!!
"ffo" a écrit dans le message de news:Salut Mathieu
Cette solution mais qui necessite 2 macros aux instructions simples
Macro 1:
Application.OnTime Now + TimeValue("00:00:01"), "Macro 2"
Macro 2
Application.quit
ligne à adapter :
TimeValue("00:00:01") (1 seconde ici)
Mettre
TimeValue("00:00:10") (10 Secondes)
Peut être pas mieux
Dis moi !!!Rebonjour a tous,
voici un compte rebours pour fermer excel au bout de 10sec
newHeure = Hour(Now())
newMinute = Minute(Now())
newSeconde = Second(Now()) + 10
waitTime = TimeSerial(newHeure, newMinute, newSeconde)
Application.Wait waitTime
Application.quit
(il y a surement plus court)
par contre j'aimerais savoir si qqn l'a déjà fait pour office outlook
??
car si je met le meme code ds outlook il m'affiche un message
d'erreur
438
(propriété ou méthode non gérée par cet objet)
Cdlt,
Mathieu