Relevés à une heure précise

[m.alhalli]

Bonjour le forum,

dans le but de la supervision d'une ligne de production, je suis amener a faire des relevés depuis un automate plutôt des automates. jusqu'à maintenant le relevé se fait manuellement en cliquant sur un bouton de commande.

Est ce qu'il y a une possibilité de programmer ce relevés à une heure précise soit disant trois fois par jour.

il y a aussi la contrainte de l'archivage que je dois faire a chaque fois que le relevés est fait, est ce qu'il y a aussi la possibilité d'archiver automatiquement.

Merci d'avance.

P.S: je suis novice en vba 🙂

 

[gilbert_RGI]

Re : Relevés à une heure précise

Donc il te faut trois chronos différents

monheure0 = Format(Cells(22, 3).Value, "hh:mm:ss")
monheure1 = Format(Cells(23, 3).Value, "hh:mm:ss")
monheure2 = Format(Cells(24, 3).Value, "hh:mm:ss")
temp1 = TimeValue(CDate(monheure0))
temp2 = TimeValue(CDate(monheure1))
temp3 = TimeValue(CDate(monheure2))

Application.OnTime temp1, "miseajour"
Application.OnTime temp2, "miseajour"
Application.OnTime temp3, "miseajour"

 

[m.alhalli]

Re : Relevés à une heure précise

en fait c'est pas ca le problème, le problème ce que avec un seul chrono la macro ne se lance pas automatiquement jusqu'à ce que je le fais manuellement

 

[gilbert_RGI]

Re : Relevés à une heure précise

en fait c'est pas ca le problème, le problème ce que avec un seul chrono la macro ne se lance pas automatiquement jusqu'à ce que je le fais manuellement

tu mets le lancement de la macro à l'ouverture du fichier avec auto_open ou avec workbook_open

et ensuite le relancement s'effectue par miseajour

 

[m.alhalli]

Re : Relevés à une heure précise

C'est ca le problème gilbert, j'ai essayé avec les deux mais ca n'a pas marché 🙁

Sub auto_open()
    maj
End Sub

ou

Private Sub Workbook_Open()
maj
End Sub

🙁

 

[gilbert_RGI]

Re : Relevés à une heure précise

tu mets bien
Private Sub Workbook_Open()
maj
End Sub
dans le code du thisworkbook ?

je t'assure ça marche

RGI

 

[m.alhalli]

Re : Relevés à une heure précise

Sinon on peut pas lancer la macro avec une fréquence? par exemple chaque 30sec ou une minute 😕

 

[m.alhalli]

Re : Relevés à une heure précise

tu mets bien
Private Sub Workbook_Open()
maj
End Sub
dans le code du thisworkbook ?

je t'assure ça marche

RGI

Mais il y est gilbert je t'assure que ca marche pas, et quand je change l'heure de lecteure il faut que je lance la macro encore une fois, pourtant j'ai rencontré ce problème quand tu m'as donné le premier code 🙁

 

[m.alhalli]

Re : Relevés à une heure précise

Re bonjour;

Voila donc les résultats et je vous remercie beaucoup pour votre aide et un grand merci a toi gilbert et je suis désolé si j'étais parfois débile parfois 😱

Donc pour l'heure d'acquisition des données j'ai fais ca :

Dim temps
Public heure
Sub maj()
    monheure0 = Format(Cells(22, 3).value, "hh:mm:ss")
    monheure1 = Format(Cells(23, 3).value, "hh:mm:ss")
    monheure2 = Format(Cells(24, 3).value, "hh:mm:ss")

        temp1 = TimeValue(CDate(monheure0))
        temp2 = TimeValue(CDate(monheure1))
        temp3 = TimeValue(CDate(monheure2))

    Application.OnTime temp1, "miseajour"
    Application.OnTime temp2, "miseajour"
    Application.OnTime temp3, "miseajour"
End Sub

Sub auto_open()
        maj
End Sub

Sub auto_close()
    On Error Resume Next
    Application.OnTime temps, Procedure:="maj", Schedule:=False
End Sub

Sub relance()
    maj
End Sub

Sub miseajour()
readFromPLC_DB3
readFromPLC_DB10
relance
End Sub

et j'ai créée un autre userform ou j'ai mis juste les heures de lectures et j'ai mis le code suivant comme solution pour le problème de lancement de ma macro 🙄

Private Sub OKButt1_Click()
    Equipe1 = Right(Me.DTPicker1.value, 8)
    Equipe2 = Right(Me.DTPicker2.value, 8)
    Equipe3 = Right(Me.DTPicker3.value, 8)
    Sheets(1).Select
    Cells(22, 3).value = Equipe1
    Cells(23, 3).value = Equipe2
    Cells(24, 3).value = Equipe3
    UserForm2.Hide
    maj
End Sub

Merci Gilbert, merci tout le monde

@+