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
MichD
Bonjour,
Dans le ThisWorkbook, tu peux utiliser ceci :
'---------------------------------- Private Sub Workbook_Open() Call test End Sub '----------------------------------
Essaie comme ceci. Place ce qui suit dans un module standard
Public time As Date '------------------------------ Sub test() If VBA.Weekday(Now) <> vbSaturday And Weekday(Now()) <> vbSunday Then time = TimeValue("15:00:00") Application.OnTime time, "macro" End If End Sub '------------------------------ Sub macro() MsgBox "yeh!" End Sub '------------------------------
MichD ------------------------------------------ "joseph84" a écrit dans le message de groupe de discussion :
Bonjour,
je suis entrains de programmer une macro qui va excuter une autre macro à une heure précise à chaque jour sauf les fin de semaine.
j'ai trouve un objet "application.ontime" mais malhereusement sa fonctionne pas
voila mon code:
public time as date
sub test()
time= timevalue ("15:00:00 AM")
application.ontime time, macro
end sub
sub macro
msgbox "yeh!" end sub
je ne comprend pas si il y a d'autre critères
merci d'avance
Bonjour,
Dans le ThisWorkbook, tu peux utiliser ceci :
'----------------------------------
Private Sub Workbook_Open()
Call test
End Sub
'----------------------------------
Essaie comme ceci. Place ce qui suit dans un module standard
Public time As Date
'------------------------------
Sub test()
If VBA.Weekday(Now) <> vbSaturday And Weekday(Now()) <> vbSunday Then
time = TimeValue("15:00:00")
Application.OnTime time, "macro"
End If
End Sub
'------------------------------
Sub macro()
MsgBox "yeh!"
End Sub
'------------------------------
MichD
------------------------------------------
"joseph84" a écrit dans le message de groupe de discussion :
11824d32-01c0-49a6-9454-6415272aecab@g4g2000pbi.googlegroups.com...
Bonjour,
je suis entrains de programmer une macro qui va excuter une autre
macro à une heure précise à chaque jour sauf les fin de semaine.
j'ai trouve un objet "application.ontime" mais malhereusement sa
fonctionne pas
'---------------------------------- Private Sub Workbook_Open() Call test End Sub '----------------------------------
Essaie comme ceci. Place ce qui suit dans un module standard
Public time As Date '------------------------------ Sub test() If VBA.Weekday(Now) <> vbSaturday And Weekday(Now()) <> vbSunday Then time = TimeValue("15:00:00") Application.OnTime time, "macro" End If End Sub '------------------------------ Sub macro() MsgBox "yeh!" End Sub '------------------------------
MichD ------------------------------------------ "joseph84" a écrit dans le message de groupe de discussion :
Bonjour,
je suis entrains de programmer une macro qui va excuter une autre macro à une heure précise à chaque jour sauf les fin de semaine.
j'ai trouve un objet "application.ontime" mais malhereusement sa fonctionne pas
voila mon code:
public time as date
sub test()
time= timevalue ("15:00:00 AM")
application.ontime time, macro
end sub
sub macro
msgbox "yeh!" end sub
je ne comprend pas si il y a d'autre critères
merci d'avance
MichD
J'oubliais, tu peux aussi utiliser le planificateur de Windows pour planifier l'ouverture de ton fichier à une heure fixe, tous les jours de la semaine seulement. En utilisant "Private Sub Workbook_Open()" du thisworkbook, tu peux appeler une procédure.
Pourvu que Windows soit ouvert, la tâche va s'exécuter. Dans le planificateur de Windows, tu peux spécifier les jours de la semaine et l’heure. '------------------------------------ Private Sub Workbook_Open() If TimeValue(Now()) > TimeValue("14:58:00") And _ TimeValue(Now()) < TimeValue("15:02:00") Then Call MaMacro End If End Sub '------------------------------------
Et dans un module standard :
Sub MaMacro() Msgbox "Bonjour" End Sub
MichD ------------------------------------------ "MichD" a écrit dans le message de groupe de discussion : jfv4uo$kb8$
Bonjour,
Dans le ThisWorkbook, tu peux utiliser ceci :
'---------------------------------- Private Sub Workbook_Open() Call test End Sub '----------------------------------
Essaie comme ceci. Place ce qui suit dans un module standard
Public time As Date '------------------------------ Sub test() If VBA.Weekday(Now) <> vbSaturday And Weekday(Now()) <> vbSunday Then time = TimeValue("15:00:00") Application.OnTime time, "macro" End If End Sub '------------------------------ Sub macro() MsgBox "yeh!" End Sub '------------------------------
MichD ------------------------------------------ "joseph84" a écrit dans le message de groupe de discussion :
Bonjour,
je suis entrains de programmer une macro qui va excuter une autre macro à une heure précise à chaque jour sauf les fin de semaine.
j'ai trouve un objet "application.ontime" mais malhereusement sa fonctionne pas
voila mon code:
public time as date
sub test()
time= timevalue ("15:00:00 AM")
application.ontime time, macro
end sub
sub macro
msgbox "yeh!" end sub
je ne comprend pas si il y a d'autre critères
merci d'avance
J'oubliais, tu peux aussi utiliser le planificateur de Windows pour planifier
l'ouverture de ton fichier à une heure fixe, tous les jours de la semaine seulement.
En utilisant "Private Sub Workbook_Open()" du thisworkbook, tu peux appeler une
procédure.
Pourvu que Windows soit ouvert, la tâche va s'exécuter. Dans le planificateur de
Windows, tu peux spécifier les jours de la semaine et l’heure.
'------------------------------------
Private Sub Workbook_Open()
If TimeValue(Now()) > TimeValue("14:58:00") And _
TimeValue(Now()) < TimeValue("15:02:00") Then
Call MaMacro
End If
End Sub
'------------------------------------
Et dans un module standard :
Sub MaMacro()
Msgbox "Bonjour"
End Sub
MichD
------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : jfv4uo$kb8$1@speranza.aioe.org...
Bonjour,
Dans le ThisWorkbook, tu peux utiliser ceci :
'----------------------------------
Private Sub Workbook_Open()
Call test
End Sub
'----------------------------------
Essaie comme ceci. Place ce qui suit dans un module standard
Public time As Date
'------------------------------
Sub test()
If VBA.Weekday(Now) <> vbSaturday And Weekday(Now()) <> vbSunday Then
time = TimeValue("15:00:00")
Application.OnTime time, "macro"
End If
End Sub
'------------------------------
Sub macro()
MsgBox "yeh!"
End Sub
'------------------------------
MichD
------------------------------------------
"joseph84" a écrit dans le message de groupe de discussion :
11824d32-01c0-49a6-9454-6415272aecab@g4g2000pbi.googlegroups.com...
Bonjour,
je suis entrains de programmer une macro qui va excuter une autre
macro à une heure précise à chaque jour sauf les fin de semaine.
j'ai trouve un objet "application.ontime" mais malhereusement sa
fonctionne pas
J'oubliais, tu peux aussi utiliser le planificateur de Windows pour planifier l'ouverture de ton fichier à une heure fixe, tous les jours de la semaine seulement. En utilisant "Private Sub Workbook_Open()" du thisworkbook, tu peux appeler une procédure.
Pourvu que Windows soit ouvert, la tâche va s'exécuter. Dans le planificateur de Windows, tu peux spécifier les jours de la semaine et l’heure. '------------------------------------ Private Sub Workbook_Open() If TimeValue(Now()) > TimeValue("14:58:00") And _ TimeValue(Now()) < TimeValue("15:02:00") Then Call MaMacro End If End Sub '------------------------------------
Et dans un module standard :
Sub MaMacro() Msgbox "Bonjour" End Sub
MichD ------------------------------------------ "MichD" a écrit dans le message de groupe de discussion : jfv4uo$kb8$
Bonjour,
Dans le ThisWorkbook, tu peux utiliser ceci :
'---------------------------------- Private Sub Workbook_Open() Call test End Sub '----------------------------------
Essaie comme ceci. Place ce qui suit dans un module standard
Public time As Date '------------------------------ Sub test() If VBA.Weekday(Now) <> vbSaturday And Weekday(Now()) <> vbSunday Then time = TimeValue("15:00:00") Application.OnTime time, "macro" End If End Sub '------------------------------ Sub macro() MsgBox "yeh!" End Sub '------------------------------
MichD ------------------------------------------ "joseph84" a écrit dans le message de groupe de discussion :
Bonjour,
je suis entrains de programmer une macro qui va excuter une autre macro à une heure précise à chaque jour sauf les fin de semaine.
j'ai trouve un objet "application.ontime" mais malhereusement sa fonctionne pas
voila mon code:
public time as date
sub test()
time= timevalue ("15:00:00 AM")
application.ontime time, macro
end sub
sub macro
msgbox "yeh!" end sub
je ne comprend pas si il y a d'autre critères
merci d'avance
Gloops
joseph84 a écrit, le 27/01/2012 20:41 :
Bonjour,
je suis entrains de programmer une macro qui va excuter une autre macro à une heure précise à chaque jour sauf les fin de semaine.
j'ai trouve un objet "application.ontime" mais malhereusement sa fonctionne pas
voila mon code:
public time as date
sub test()
time= timevalue ("15:00:00 AM")
application.ontime time, macro
end sub
sub macro
msgbox "yeh!" end sub
je ne comprend pas si il y a d'autre critères
merci d'avance
Mais ... Est-ce que time n'est pas un mot-clef réservé ?
joseph84 a écrit, le 27/01/2012 20:41 :
Bonjour,
je suis entrains de programmer une macro qui va excuter une autre
macro à une heure précise à chaque jour sauf les fin de semaine.
j'ai trouve un objet "application.ontime" mais malhereusement sa
fonctionne pas
voila mon code:
public time as date
sub test()
time= timevalue ("15:00:00 AM")
application.ontime time, macro
end sub
sub macro
msgbox "yeh!"
end sub
je ne comprend pas si il y a d'autre critères
merci d'avance
Mais ... Est-ce que time n'est pas un mot-clef réservé ?