Transfert des données en foncion de l'heure

[excelman]

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

 

[mutzik]

Re : Transfert des données en foncion de l'heure

Bonjour Thierry,

à mon humble avis, je crois qu'il ne reconnait pas ton heure #3:00:00 PM#

j'ai fait une sub et donc il faut employer time() et non now()
now te renvoie égalemant la date

 

[excelman]

Re : Transfert des données en foncion de l'heure

Bonjour,

En effet mais quand je mets time il me fait la meme chose?
Il faudrait peut etre convertir l'heure en chiffre et l'intégrer dans une cellule. Mais je ne sais pas comment lui dire de vérifier la valeur de la cellule?
a+

 

[Gorfael]

Re : Transfert des données en foncion de l'heure

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

Salut
#3:00:00 PM# = 0,625
now() = 39244,7247685185

à ta place, je tenterais de remplacer Now() par Time

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

Mais ce n'est qu'une sugestion 😛
A+

 

[excelman]

Re : Transfert des données en foncion de l'heure

bonjour,

Il me fait le meme chose avec la fonction time !!!

 

[excelman]

Re : Transfert des données en foncion de l'heure

salut à tous ,
j'ai trouvé le problème.
J'ai simplement ajoute call devant les macros a appeler dans la macro "saisiedesdonnees"
Merci à tous