a quelle heure?????

porcinet82

XLDnaute Barbatruc

• 18 Janvier 2006

• #2

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

G

gex1403

XLDnaute Occasionnel

• 18 Janvier 2006

• #3

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 18 Janvier 2006

• #4

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

Code:

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

@+

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 18 Janvier 2006

• #5

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

G

gex1403

XLDnaute Occasionnel

• 18 Janvier 2006

• #6

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

 

Vote positif 0 Vote négatif