Relevés à une heure précise

gilbert_RGI

XLDnaute Barbatruc

• 5 Juin 2008

• #16

Re : Relevés à une heure précise

bien entendu ça ne fonctionnera que si excel et le programme sont en fonctionnement

bonne journée

RGI

 

Vote positif 0 Vote négatif

M

m.alhalli

Guest

• 6 Juin 2008

• #17

Re : Relevés à une heure précise

Re bonjour;

J'ai essayé d'utiliser un user form et mettre le controle DTPIcker dessus pour changer la valeur qu'on met pour les heures de relever, et j'ai changé le code au niveau de la fonction maj du code citer ci-dessus pour avoir ceci

Code:

Sub maj()
    temps = TimeValue(DTPicker1.Caption) 'mettre le temps voulu "hh:mm:ss"
    Application.OnTime temps, "miseajour"
End Sub

Mais ca marche pas 😕

J'ai besoin de vous.

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 6 Juin 2008

• #18

Re : Relevés à une heure précise

bonjour,

le controle DTPicker, est un controle de date et non des heures je crois !

donc ca ne peu pas fonctionner.

A +

 

Vote positif 0 Vote négatif

M

m.alhalli

Guest

• 6 Juin 2008

• #19

Re : Relevés à une heure précise

abtony à dit:

bonjour,

le controle DTPicker, est un controle de date et non des heures je crois !

donc ca ne peu pas fonctionner.

A +

Cliquez pour agrandir...

Clic sur la listes des propriété et tu trouvera quatre type de DTPicker en cliquant sur format,

0 - dtpLongDate
1 - dtpShortDate
2 - dtpTime
3 - dtpCustom

Moi j'utilise le dtpTime

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 6 Juin 2008

• #20

Re : Relevés à une heure précise

re alors essaye


Sub maj()
temps = cdbl(TimeValue(DTPicker1.value)) 'mettre le temps voulu "hh:mm:ss"
Application.OnTime temps, "miseajour"
End Sub


en utilisant la propriété dtpTime

je ne savait pas pour le time excuse


A +

 

Vote positif 0 Vote négatif

M

m.alhalli

Guest

• 6 Juin 2008

• #21

Re : Relevés à une heure précise

Re

j'ai essayé mais il y a rien qui se passe au moment de la lecture et quand je remet le premier code

Code:

Sub maj()
    temps = Now + TimeValue("03:00:00") 'mettre le temps voulu "hh:mm:ss"
    Application.OnTime temps, "miseajour"
End Sub

ca marche!!

et avec celui la!

Code:

Sub maj()
    temps = CDbl(TimeValue(DTPicker1.Caption)) 'mettre le temps voulu "hh:mm:ss"
    Application.OnTime temps, "miseajour"
End Sub

ca marche pas


donc a ton avis c'est quoi le problème?

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 6 Juin 2008

• #22

Re : Relevés à une heure précise

re,

je doute fort, si on passe par un userform avec un control quel qu'il soit la procédure se lance en auto, a moins de mettre un compteur ou appuyer sur un bouton !!

sinon l'userform doit rester ouvert avec un décompte timer pour lancer la procédure, ce qui n'est pas très pratique.

si tu laisse comme la fait gilbert, tu peu dans les taches windows lancer ton classeur excel a une heure précise tout les jours, et a ce moment la procédure sera lancé a l'heure qui est indiqué sur le module (macro).

A +


note : il ne faut pas mettre "caption " mais plutot "value"

 

Vote positif 0 Vote négatif

M

m.alhalli

Guest

• 6 Juin 2008

• #23

Re : Relevés à une heure précise

re,

tout a fait le userform ne se lance pas tout seul bien sur, c'est en cliquant sur un bouton. le userform comporte plusieur fontcion et non pas seulement le dttime.

et pour le caption je l'ai juste essayé pour voir si ca marche

lancement du userform ce fait comme ceci

Code:

Private Sub Releves_Click()
UserForm1.Show
End Sub

@+

 

Vote positif 0 Vote négatif

M

m.alhalli

Guest

• 6 Juin 2008

• #24

Re : Relevés à une heure précise

abtony à dit:

Sub maj()
temps = cdbl(TimeValue(DTPicker1.value)) 'mettre le temps voulu "hh:mm:ss"
Application.OnTime temps, "miseajour"
End Sub

Cliquez pour agrandir...

On peut remplacer le CDbl par le CDec?

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 6 Juin 2008

• #25

Re : Relevés à une heure précise

J'avais mis cdbl, car je faisait les test sur une cellule de la feuille tu peut le supprimer je pense !


Sub maj()
temps = TimeValue(DTPicker1.value) 'mettre le temps voulu "hh:mm:ss"
Application.OnTime temps, "miseajour"
End Sub

essaye comme ca pour voir.

A +

 

Vote positif 0 Vote négatif

M

m.alhalli

Guest

• 6 Juin 2008

• #26

Re : Relevés à une heure précise

J'ai essayé avec ce que tu m'as donné

et j'ai essayé avec ceci

Code:

Sub maj()
    temps = Now + TimeValue(DTPicker1.value) 'mettre le temps voulu "hh:mm:ss"
    Application.OnTime temps, "miseajour"
End Sub

en donnant au DTPicker 30 sec mais ca marche toujours pas

P.S: si je remplace (DTPicker1.value) par ("hh:mm:ss") ca marche.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 6 Juin 2008

• #27

Re : Relevés à une heure précise

Salut l'ami me revoilou

il semblerait que le DTPicker integre également la date dans value

donc il faut faire une manipe pour supprimer cette date et ne garder que l'heure:minute:seconde

pour t'en convaincre essaies ceci

Private Sub CommandButton1_Click()
MsgBox Me.DTPicker1.Value
End Sub


RGI

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 6 Juin 2008

• #28

Re : Relevés à une heure précise

Donc sur tu fais

Sub maj()
temps = Now + TimeValue(Right(Me.DTPicker1.Value, 8)) 'mettre le temps voulu "hh:mm:ss"
Application.OnTime temps, "miseajour"
End Sub

héhé est-ce que ça marche ?

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 6 Juin 2008

• #29

Re : Relevés à une heure précise

gilbert_RGI à dit:

Salut l'ami me revoilou

il semblerait que le DTPicker integre également la date dans value

RGI

Cliquez pour agrandir...

Bonjour gilbert,

j'essayer d'aider notre ami au mieux, tu est la tant mieux.

le dtpTime en propriété du contrôle dtpicker intègre uniquement l'heure 00:00:00, mais faut il encore qu'il soit sélectionné dans les propriétés.

d'après les essai que j'ai fait, je me trompe peut être !

A +

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 6 Juin 2008

• #30

Re : Relevés à une heure précise

Salut

j'ai fait un petit programme


oups erreur


cdlt

RGI

 

Dernière édition: 6 Juin 2008

Vote positif 0 Vote négatif