programmer l'execution d'une macro!!

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 16 Janvier 2006

• #2

Bonjour GSXR282005 (pas facile à dire)

pour l'heure, tu peux utiliser la méthode Ontime combinée à un test de date.

Cordialement, A+

Code:

Application.OnTime TimeValue('17:00:00'), 'La_proc'

 

Vote positif 0 Vote négatif

G

GSXR282005

Guest

• 16 Janvier 2006

• #3

Re Bonsoir,
est ce que cette ecriture correspond a ce que je voudrais??????????
Merci

Private Sub Workbook_Open()
If Date = DateValue('20/01/06')
end if
Application.OnTime TimeValue('17:00:00') Then
Range('E28').Select
ActiveCell.FormulaR1C1 = '0'

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 16 Janvier 2006

• #4

Re

non, ce n'est pas comme cela
voici un exemple, j'ai modifié la commande pour que la macro 'la_proc' se lance 5 secondes aprés l'ouverture

Code:

Private Sub Workbook_Open()
'If DateValue(Date) = DateValue('20/01/2006') Then Application.OnTime TimeValue('17:00:00'), 'La_proc'
If DateValue(Date) = DateValue('16/01/2006') Then Application.OnTime Now + TimeValue('00:00:05'), 'La_proc'
End Sub

ce code à mettre dans un module, c'est lui qui agit.

Code:

Sub La_proc()
MsgBox 'il est l'heure', vbOKOnly + vbInformation
'code à exécuter
End Sub

A+

 

Vote positif 0 Vote négatif

G

GSXR282005

Guest

• 17 Janvier 2006

• #5

Salut
Merci Yeahou, je vais essayer
@+

 

Vote positif 0 Vote négatif