Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Si tu l'exécute ce soir, ça plante; demain matin, ça ira mieux ;-) En fait, passé minuit mytime prend la valeur du jour 0, c'est à dire ppour Excel 31/12/1899 : i=1 : 22:05 i=2 : 23:05 i=3 : 31/12/1899 00:05 Cordialement. Daniel Si tu utilises Now seul, il intègre la date et passe automatiquement au lendemain. "Yvan" a écrit dans le message de news:
Bonsoir,
Lorsque j'écris :
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
Quelle est la subtilité ???
-- Merci pour vos réponses.
Bonsoir.
Si tu l'exécute ce soir, ça plante; demain matin, ça ira mieux ;-)
En fait, passé minuit mytime prend la valeur du jour 0, c'est à dire ppour
Excel 31/12/1899 :
i=1 : 22:05
i=2 : 23:05
i=3 : 31/12/1899 00:05
Cordialement.
Daniel
Si tu utilises Now seul, il intègre la date et passe automatiquement au
lendemain.
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
998BEEBD-D1BD-4072-9B05-D73E2F8FE52F@microsoft.com...
Bonsoir,
Lorsque j'écris :
For i=1 To 5
Mytime = TimeValue(Now) + (i / 24 / 60)
Application.OnTime Mytime, "procédure"
Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe
suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5
Mytime = Timevalue(Now) + (i / 24)
Application.OnTime Mytime, "procédure"
Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela
fonctionne
!!!
Bonsoir. Si tu l'exécute ce soir, ça plante; demain matin, ça ira mieux ;-) En fait, passé minuit mytime prend la valeur du jour 0, c'est à dire ppour Excel 31/12/1899 : i=1 : 22:05 i=2 : 23:05 i=3 : 31/12/1899 00:05 Cordialement. Daniel Si tu utilises Now seul, il intègre la date et passe automatiquement au lendemain. "Yvan" a écrit dans le message de news:
Bonsoir,
Lorsque j'écris :
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
Quelle est la subtilité ???
-- Merci pour vos réponses.
JB
Bonsoir,
TimeValue convertit une chaine:
temps = Now + TimeValue("01:00:00")
ou
temps = Now + (1/24)
JB
Bonsoir,
Lorsque j'écris :
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la synt axe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonction ne !!!
Quelle est la subtilité ???
-- Merci pour vos réponses.
Bonsoir,
TimeValue convertit une chaine:
temps = Now + TimeValue("01:00:00")
ou
temps = Now + (1/24)
JB
Bonsoir,
Lorsque j'écris :
For i=1 To 5
Mytime = TimeValue(Now) + (i / 24 / 60)
Application.OnTime Mytime, "procédure"
Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la synt axe
suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5
Mytime = Timevalue(Now) + (i / 24)
Application.OnTime Mytime, "procédure"
Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonction ne
!!!
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
Quelle est la subtilité ???
-- - -
Yvan
Merci pour ta réponse, c'est exactement ce qui se passait. A plus, -- Merci pour vos réponses.
Bonsoir. Si tu l'exécute ce soir, ça plante; demain matin, ça ira mieux ;-) En fait, passé minuit mytime prend la valeur du jour 0, c'est à dire ppour Excel 31/12/1899 : i=1 : 22:05 i=2 : 23:05 i=3 : 31/12/1899 00:05 Cordialement. Daniel Si tu utilises Now seul, il intègre la date et passe automatiquement au lendemain. "Yvan" a écrit dans le message de news:
Bonsoir,
Lorsque j'écris :
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
Quelle est la subtilité ???
-- Merci pour vos réponses.
Merci pour ta réponse, c'est exactement ce qui se passait.
A plus,
--
Merci pour vos réponses.
Bonsoir.
Si tu l'exécute ce soir, ça plante; demain matin, ça ira mieux ;-)
En fait, passé minuit mytime prend la valeur du jour 0, c'est à dire ppour
Excel 31/12/1899 :
i=1 : 22:05
i=2 : 23:05
i=3 : 31/12/1899 00:05
Cordialement.
Daniel
Si tu utilises Now seul, il intègre la date et passe automatiquement au
lendemain.
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
998BEEBD-D1BD-4072-9B05-D73E2F8FE52F@microsoft.com...
Bonsoir,
Lorsque j'écris :
For i=1 To 5
Mytime = TimeValue(Now) + (i / 24 / 60)
Application.OnTime Mytime, "procédure"
Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe
suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5
Mytime = Timevalue(Now) + (i / 24)
Application.OnTime Mytime, "procédure"
Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela
fonctionne
!!!
Merci pour ta réponse, c'est exactement ce qui se passait. A plus, -- Merci pour vos réponses.
Bonsoir. Si tu l'exécute ce soir, ça plante; demain matin, ça ira mieux ;-) En fait, passé minuit mytime prend la valeur du jour 0, c'est à dire ppour Excel 31/12/1899 : i=1 : 22:05 i=2 : 23:05 i=3 : 31/12/1899 00:05 Cordialement. Daniel Si tu utilises Now seul, il intègre la date et passe automatiquement au lendemain. "Yvan" a écrit dans le message de news:
Bonsoir,
Lorsque j'écris :
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
Quelle est la subtilité ???
-- Merci pour vos réponses.
Yvan
Merci et à bientôt. -- Merci pour vos réponses.
Bonsoir,
TimeValue convertit une chaine:
temps = Now + TimeValue("01:00:00")
ou
temps = Now + (1/24)
JB
Bonsoir,
Lorsque j'écris :
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
Quelle est la subtilité ???
-- Merci pour vos réponses.
Merci et à bientôt.
--
Merci pour vos réponses.
Bonsoir,
TimeValue convertit une chaine:
temps = Now + TimeValue("01:00:00")
ou
temps = Now + (1/24)
JB
Bonsoir,
Lorsque j'écris :
For i=1 To 5
Mytime = TimeValue(Now) + (i / 24 / 60)
Application.OnTime Mytime, "procédure"
Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe
suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5
Mytime = Timevalue(Now) + (i / 24)
Application.OnTime Mytime, "procédure"
Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne
!!!
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
Quelle est la subtilité ???
-- - -
LE TROLL
Bonjour, Je ne sais pas si le code accepte les API, sinon tu peux faire:
option explicit Private Declare Function GetTickCount Lib "Kernel32" () As Long
dim un as long un = GetTickCount() ' te donner une valeur en 1000ièm de '' du temps présent avec ça, plus de problèmes de dates, etc...
-- Merci beaucoup, au revoir et à bientôt :o) ------ Site éditeur MES ROMANS édités http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm Site de MES LOGICIELS http://irolog.free.fr mon adresse EMail http://irolog.free.fr/ecrire/index.htm ------------------------------------------------------------------------------------ "Yvan" a écrit dans le message de news:
Bonsoir,
Lorsque j'écris :
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
Quelle est la subtilité ???
-- Merci pour vos réponses.
Bonjour,
Je ne sais pas si le code accepte les API, sinon tu peux faire:
option explicit
Private Declare Function GetTickCount Lib "Kernel32" () As Long
dim un as long
un = GetTickCount() ' te donner une valeur en 1000ièm de '' du temps
présent
avec ça, plus de problèmes de dates, etc...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Site éditeur MES ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site de MES LOGICIELS
http://irolog.free.fr
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
998BEEBD-D1BD-4072-9B05-D73E2F8FE52F@microsoft.com...
Bonsoir,
Lorsque j'écris :
For i=1 To 5
Mytime = TimeValue(Now) + (i / 24 / 60)
Application.OnTime Mytime, "procédure"
Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe
suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5
Mytime = Timevalue(Now) + (i / 24)
Application.OnTime Mytime, "procédure"
Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela
fonctionne
!!!
Bonjour, Je ne sais pas si le code accepte les API, sinon tu peux faire:
option explicit Private Declare Function GetTickCount Lib "Kernel32" () As Long
dim un as long un = GetTickCount() ' te donner une valeur en 1000ièm de '' du temps présent avec ça, plus de problèmes de dates, etc...
-- Merci beaucoup, au revoir et à bientôt :o) ------ Site éditeur MES ROMANS édités http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm Site de MES LOGICIELS http://irolog.free.fr mon adresse EMail http://irolog.free.fr/ecrire/index.htm ------------------------------------------------------------------------------------ "Yvan" a écrit dans le message de news:
Bonsoir,
Lorsque j'écris :
For i=1 To 5 Mytime = TimeValue(Now) + (i / 24 / 60) Application.OnTime Mytime, "procédure" Next i
je lance la "procédure" toutes les minutes.
Par contre si je veux faire la même chose toutes les heures par la syntaxe suivante, j'obtiens une erreur, Mytime n'ayant pas la bonne valeur :
For i=1 To 5 Mytime = Timevalue(Now) + (i / 24) Application.OnTime Mytime, "procédure" Next i
Alors que si je n'utilise pas Timevalue mais seulement Now, cela fonctionne !!!
