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 @+
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 @+