Transfert des données en foncion de l'heure

excelman à dit:

Salut à tous.

Je suis toujour sur mon fichier de caisse et je rencontre un petit problème.
En effet je souhaite copier la sélection d'une feuille dans une autre feuille du classeur en fonction de l'heure. J'utilise pour cela ce qui suit :


Sub SaisieDesDonnees()
If Now() < #3:00:00 PM# Then
finaltable2midi
Else
finaltable2soir
End If
End Sub

Sub finaltable2midi()
Sheets("secteur 1").Select
Range("a21").Select
ActiveCell.FormulaR1C1 = "Fin de table"
Range("A2:E21").Select
Selection.Copy
Sheets("Fin de service midi").Select
Range("A65536").End(xlUp).Offset(2, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("secteur 1").Select
Range("A5:B21,D3").Select
Selection.ClearContents
Sheets("feuil5").Select

End Sub
Sub finaltable2soir()
Range("a21").Select
ActiveCell.FormulaR1C1 = "Fin de table"
Range("A2:E21").Select
Selection.Copy
Sheets("fin de service soir").Select
Range("A65536").End(xlUp).Offset(2, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("secteur 1").Select
Range("A5:B21,D3").Select
Selection.ClearContents
Sheets("feuil5").Select

End Sub

Le problème est que quelque soit l'heure il me fait la copie dans le feuille "fin service du soir" ???
Qqun peut il m'explique pourquoi et quelle est la solution ?

Merci d'avance

Thierry

Cliquez pour agrandir...