a quelle heure?????

[gex1403]

Bonjour le forum
Comment executer cette procedure a une heure fixe, ex: 14heure
Pour la date, c'est bon, ca marche, mais pour l'heure je m'arrache les cheveux depuis 2 jours!!!aieaieiaie

Private Sub Workbook_Open()
'ouvre le fichier a la feuil 1'
Sheets('Feuil1').Select
Range('A1').Select
'RAZ CA PRIS JANVIER'
If Date = DateValue('01/01/2007') Then
Range('L28').Select
ActiveCell.FormulaR1C1 = '0'
End If
End Sub

Merci et @+

 

[porcinet82]

Salut gex1403,

Je pense qu'en utiilisant la fonction Time tu devrais y arriver.

Par exemple, le code suivant ouvre un msgbox si l'heure actuelle est inférieure à 20h :

val = Time
If Time < '20:00:00' Then
    MsgBox 'Il est moins de 20h'
End If

@+

 

[gex1403]

Salut Porcinet, oui ca marche avec une Msbox, mais je voudrais que ca marche sans, comme pour la date
Merci quand meme
@+

 

[porcinet82]

Je ne sais pas trop ce que fais ton code pour la date, mais si tu fais comme ceci ca ne fonctionne pas ?

Private Sub Workbook_Open()
Sheets('Feuil1').Select
Range('A1').Select
If Date = DateValue('01/01/2007') Then
   If Time >= '14:00:00' Then
      Range('L28').Select
      ActiveCell.FormulaR1C1 = '0'
    End If
End If
End Sub

@+

 

[Charly2]

Bonsoir gex1403, bonsoir porcinet82

Tu peux programmer l'heure d'éxécution d'une procédure à l'aide de OnTime (méthode de l'objet Application) :

Private Sub Workbook_Open()
  'ouvre le fichier a la feuil 1'
  Sheets('Feuil1').Select
  Range('A1').Select
  'RAZ CA PRIS JANVIER'
  If Date = DateValue('01/01/2007') Then
    Application.OnTime TimeValue('14:00:00'), 'RAZ_CA'
  End If
End Sub

Sub RAZ_CA()
  ' Tes instructions
  Range('L28').Select
  ActiveCell.FormulaR1C1 = '0'
End Sub

Mais même ce bout de code ne fonctionnera pas si tu n'ouvres pas ton classeur le 1er janvier

A+

 

[gex1403]

Bonsoir, merci Charly et Porcinet, je vais tester vos differentes propositions, mais si vous en avez une qui marche a 100% meme si le fichier n'est pas ouvert le jour programmé, n'hesitez pas, je suis preneur.
Pour la date du jour, j'ai testé et meme si le fichier n'est pas ouvert le jour programmé, l'instruction se fait automatiquement a l'ouverture suivante.
@+
@micalement