Ontime qui ne fonctionne pas

[MuscatMimi]

Bonjour a tout le Forum

Le code ci-dessous ne fonctionne pas,je ne comprends pas

Si quelqu'un a une idée, elle sera bienvenue

Private Sub Workbook_Open()

Tadate = Sheets("Accueil").Range("G16")

Application.OnTime Tadate, "sauvegarde2"
Application.OnTime Tadate, "UsfAnnee"
Application.OnTime Tadate, "Solde"

End Sub

Cordialement

 

[Pierrot93]

Re : Ontime qui ne fonctionne pas

Bonjour,

sans conaitre le contenu de ta cellule difficile à dire...

bon après midi
@+

 

[MuscatMimi]

Re : Ontime qui ne fonctionne pas

Bonjour Pierrot

oups, en effet j'ai oublié

Ma cellule est au Format Date 04/04/2011

 

[Dranreb]

Re : Ontime qui ne fonctionne pas

Bonjour
Declarer

Dim TaDate as Date

et faire

TaDate = CvDate(Sheets("Accueil").Range("G16").Value)

Cordialement.

 

[Pierrot93]

Re : Ontime qui ne fonctionne pas

Re, bonjour Bernard

si = 04/04/2011, c'était hier, donc ne se déclenchera pas aujourd'hui.... peut être indiquer une heure à l'intérieure....

 

[MuscatMimi]

Re : Ontime qui ne fonctionne pas

Bonjour Dranreb

Merci de ta participation, et aussi celle de Pierrot

Je viens d'essayer, ça ne fonctionne pas

a++++++++++++

 

[MuscatMimi]

Re : Ontime qui ne fonctionne pas

Reponse a Pierrot

la date est un Exemple

mon fichier actuel est avec la Date d'aujourd'hui 05/04/2011 dans cellule G16

 

[Pierrot93]

Re : Ontime qui ne fonctionne pas

Si seulement une date se déclenche à 0h00....

 

[kjin]

Re : Ontime qui ne fonctionne pas

Bonjour le fil,
Pourquoi utiliser OnTime ?

Private Sub Workbook_Open()
Tadate = Sheets("Accueil").Range("G16")
If IsDate(Tadate) Then
    If CDate(Tadate) = VBA.Date Then
        Call sauvegarde2
        Call UsfAnnee
        Call Solde
    End If
End If
End Sub

A+
kjin

 

[MuscatMimi]

Re : Ontime qui ne fonctionne pas

OUPSSSSSSSSSSSSSSSSS

quel ane que je suis,me suis trompé de Cellule
c'est F16 au lieu de G16

milles excuse,a vous deux

maintenant ça fonctionne

Impardonnable le mec


Edit salut Kjin