Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Acquisition

Acquisition

7 réponses
Avatar
Dany Soucy
Bonjour,

J'aurais besoin de vos conseils/exemple pour une petite programmation VBA
sous excel.

J'utilise un petit logiciel qui amène des points de lectures des mes
automates programmable sous Excel (
http://opcdatahub.com/Features/OPC_to_Excel.html ) le logiciel fonctionne à
merveille pour m'amener un point en temps réel dans une cellule. Mais ce que
je voudrais vraiment faire est de l'acquisition de donnée, donc saisir les
donnée à un interval X ajustable et les enregistrer dans des cellules
différentes avec la date et l'heure dans une autre cellule à côté de chaque
acquisition. Est-ce que quelqu'un pourrais m'aider ?

Merci!
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Now
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

http://cjoint.com/?ctgWLZFsdD

JB

On 19 fév, 04:29, "Dany Soucy" wrote:
Bonjour,

J'aurais besoin de vos conseils/exemple pour une petite programmation VBA
sous excel.

J'utilise un petit logiciel qui amène des points de lectures des mes
automates programmable sous Excel (http://opcdatahub.com/Features/OPC_to_ Excel.html) le logiciel fonctionne à
merveille pour m'amener un point en temps réel dans une cellule. Mais c e que
je voudrais vraiment faire est de l'acquisition de donnée, donc saisir les
donnée à un interval X ajustable et les enregistrer dans des cellules
différentes avec la date et l'heure dans une autre cellule à côté de chaque
acquisition. Est-ce que quelqu'un pourrais m'aider ?

Merci!


Avatar
Dany Soucy
Wow merci beaucoup!

Ceci semblait très simple pour vous alors j'ose vous demander une petite
modification si c'est possible. Est-ce que c'est possible de mettre l'heure
et la date dans 2 colone différente ou la fonction "Now" ne le permet pas ?
J'aimerais aussi savoir si c'est possible d'avoir une date et et heure de
départ d'acquistion et une date et heure pour l'arrêt ou si c'est trop
compliqué...

Merci encore c'est très aprécié!

"JB" a écrit dans le message de news:

Bonjour,

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Now
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

http://cjoint.com/?ctgWLZFsdD

JB

On 19 fév, 04:29, "Dany Soucy" wrote:
Bonjour,

J'aurais besoin de vos conseils/exemple pour une petite programmation VBA
sous excel.

J'utilise un petit logiciel qui amène des points de lectures des mes
automates programmable sous Excel
(http://opcdatahub.com/Features/OPC_to_Excel.html) le logiciel fonctionne
à
merveille pour m'amener un point en temps réel dans une cellule. Mais ce
que
je voudrais vraiment faire est de l'acquisition de donnée, donc saisir les
donnée à un interval X ajustable et les enregistrer dans des cellules
différentes avec la date et l'heure dans une autre cellule à côté de
chaque
acquisition. Est-ce que quelqu'un pourrais m'aider ?

Merci!


Avatar
JB
Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Date
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Time
Sheets(1).[A65000].End(xlUp).Offset(0, 2) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

JB

On 19 fév, 17:53, "Dany Soucy" wrote:
Wow merci beaucoup!

Ceci semblait très simple pour vous alors j'ose vous demander une petite
modification si c'est possible. Est-ce que c'est possible de mettre l'he ure
et la date dans 2 colone différente ou la fonction "Now" ne le permet p as ?
J'aimerais aussi savoir si c'est possible d'avoir une date et et heure de
départ d'acquistion et une date et heure pour l'arrêt ou si c'est trop
compliqué...

Merci encore c'est très aprécié!

"JB" a écrit dans le message de news:

Bonjour,

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Now
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

http://cjoint.com/?ctgWLZFsdD

JB

On 19 fév, 04:29, "Dany Soucy" wrote:



Bonjour,

J'aurais besoin de vos conseils/exemple pour une petite programmation V BA
sous excel.

J'utilise un petit logiciel qui amène des points de lectures des mes
automates programmable sous Excel
(http://opcdatahub.com/Features/OPC_to_Excel.html) le logiciel fonction ne
à
merveille pour m'amener un point en temps réel dans une cellule. Mais ce
que
je voudrais vraiment faire est de l'acquisition de donnée, donc saisi r les
donnée à un interval X ajustable et les enregistrer dans des cellul es
différentes avec la date et l'heure dans une autre cellule à côt é de
chaque
acquisition. Est-ce que quelqu'un pourrais m'aider ?

Merci!- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Dany Soucy
Parfait ça!

Et pour les dates et heure d'arrêt et départ de l'acquisition au lieu des
boutons est-ce très compliqué ? Désolé de prendre de votre temps mais ça
m'es très utile n'étant pas un expert de la programation VBA sous excel!

"JB" a écrit dans le message de news:

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Date
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Time
Sheets(1).[A65000].End(xlUp).Offset(0, 2) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

JB

On 19 fév, 17:53, "Dany Soucy" wrote:
Wow merci beaucoup!

Ceci semblait très simple pour vous alors j'ose vous demander une petite
modification si c'est possible. Est-ce que c'est possible de mettre
l'heure
et la date dans 2 colone différente ou la fonction "Now" ne le permet pas
?
J'aimerais aussi savoir si c'est possible d'avoir une date et et heure de
départ d'acquistion et une date et heure pour l'arrêt ou si c'est trop
compliqué...

Merci encore c'est très aprécié!

"JB" a écrit dans le message de news:

Bonjour,

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Now
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

http://cjoint.com/?ctgWLZFsdD

JB

On 19 fév, 04:29, "Dany Soucy" wrote:



Bonjour,

J'aurais besoin de vos conseils/exemple pour une petite programmation
VBA
sous excel.

J'utilise un petit logiciel qui amène des points de lectures des mes
automates programmable sous Excel
(http://opcdatahub.com/Features/OPC_to_Excel.html) le logiciel
fonctionne
à
merveille pour m'amener un point en temps réel dans une cellule. Mais ce
que
je voudrais vraiment faire est de l'acquisition de donnée, donc saisir
les
donnée à un interval X ajustable et les enregistrer dans des cellules
différentes avec la date et l'heure dans une autre cellule à côté de
chaque
acquisition. Est-ce que quelqu'un pourrais m'aider ?

Merci!- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
http://cjoint.com/?cttYwwpbEb

Dim temps
Dim mArret
Sub Echantillone()
[g1] = Time
If Time >= [E2] And Time <= [E5] Then
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Date
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Time
Sheets(1).[A65000].End(xlUp).Offset(0, 2) = Rnd
End If
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
mArret = False
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

JB


On 19 fév, 19:19, "Dany Soucy" wrote:
Parfait ça!

Et pour les dates et heure d'arrêt et départ de l'acquisition au lieu des
boutons est-ce très compliqué ? Désolé de prendre de votre temps mais ça
m'es très utile n'étant pas un expert de la programation VBA sous exc el!

"JB" a écrit dans le message de news:

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Date
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Time
Sheets(1).[A65000].End(xlUp).Offset(0, 2) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

JB

On 19 fév, 17:53, "Dany Soucy" wrote:



Wow merci beaucoup!

Ceci semblait très simple pour vous alors j'ose vous demander une pet ite
modification si c'est possible. Est-ce que c'est possible de mettre
l'heure
et la date dans 2 colone différente ou la fonction "Now" ne le permet pas
?
J'aimerais aussi savoir si c'est possible d'avoir une date et et heure de
départ d'acquistion et une date et heure pour l'arrêt ou si c'est t rop
compliqué...

Merci encore c'est très aprécié!

"JB" a écrit dans le message de news:

Bonjour,

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Now
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úl se
End Sub

http://cjoint.com/?ctgWLZFsdD

JB

On 19 fév, 04:29, "Dany Soucy" wrote:

Bonjour,

J'aurais besoin de vos conseils/exemple pour une petite programmation
VBA
sous excel.

J'utilise un petit logiciel qui amène des points de lectures des mes
automates programmable sous Excel
(http://opcdatahub.com/Features/OPC_to_Excel.html) le logiciel
fonctionne
à
merveille pour m'amener un point en temps réel dans une cellule. Ma is ce
que
je voudrais vraiment faire est de l'acquisition de donnée, donc sai sir
les
donnée à un interval X ajustable et les enregistrer dans des cell ules
différentes avec la date et l'heure dans une autre cellule à cô té de
chaque
acquisition. Est-ce que quelqu'un pourrais m'aider ?

Merci!- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Dany Soucy
Quand le programme datahub met une valeur en temps réel dans un cellule la
syntaxe est comme suit:

Útahub|MAITRE1!'1A1.Analog Input.1.object-name'

Quand j'essaie de mettre ceci dans votre macro j'ai une erreur de syntaxe du
compilateur.

[C7] = datahub|MAITRE1!'1A1.Analog Input.1.object-name'

Comment je devrais l'écrire pour que ça fonctionne dans la macro ?

Merci!

"JB" a écrit dans le message de news:


http://cjoint.com/?cttYwwpbEb

Dim temps
Dim mArret
Sub Echantillone()
[g1] = Time
If Time >= [E2] And Time <= [E5] Then
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Date
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Time
Sheets(1).[A65000].End(xlUp).Offset(0, 2) = Rnd
End If
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
mArret = False
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

JB


On 19 fév, 19:19, "Dany Soucy" wrote:
Parfait ça!

Et pour les dates et heure d'arrêt et départ de l'acquisition au lieu des
boutons est-ce très compliqué ? Désolé de prendre de votre temps mais ça
m'es très utile n'étant pas un expert de la programation VBA sous excel!

"JB" a écrit dans le message de news:

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Date
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Time
Sheets(1).[A65000].End(xlUp).Offset(0, 2) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

JB

On 19 fév, 17:53, "Dany Soucy" wrote:



Wow merci beaucoup!

Ceci semblait très simple pour vous alors j'ose vous demander une petite
modification si c'est possible. Est-ce que c'est possible de mettre
l'heure
et la date dans 2 colone différente ou la fonction "Now" ne le permet
pas
?
J'aimerais aussi savoir si c'est possible d'avoir une date et et heure
de
départ d'acquistion et une date et heure pour l'arrêt ou si c'est trop
compliqué...

Merci encore c'est très aprécié!

"JB" a écrit dans le message de news:

Bonjour,

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Now
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

http://cjoint.com/?ctgWLZFsdD

JB

On 19 fév, 04:29, "Dany Soucy" wrote:

Bonjour,

J'aurais besoin de vos conseils/exemple pour une petite programmation
VBA
sous excel.

J'utilise un petit logiciel qui amène des points de lectures des mes
automates programmable sous Excel
(http://opcdatahub.com/Features/OPC_to_Excel.html) le logiciel
fonctionne
à
merveille pour m'amener un point en temps réel dans une cellule. Mais
ce
que
je voudrais vraiment faire est de l'acquisition de donnée, donc saisir
les
donnée à un interval X ajustable et les enregistrer dans des cellules
différentes avec la date et l'heure dans une autre cellule à côté de
chaque
acquisition. Est-ce que quelqu'un pourrais m'aider ?

Merci!- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -




Avatar
Dany Soucy
Quelqu'un pourrais vérifier ceci ?


"Dany Soucy" a écrit dans le message de news:
O$
Quand le programme datahub met une valeur en temps réel dans un cellule la
syntaxe est comme suit:

Útahub|MAITRE1!'1A1.Analog Input.1.object-name'

Quand j'essaie de mettre ceci dans votre macro j'ai une erreur de syntaxe
du compilateur.

[C7] = datahub|MAITRE1!'1A1.Analog Input.1.object-name'

Comment je devrais l'écrire pour que ça fonctionne dans la macro ?

Merci!

"JB" a écrit dans le message de news:


http://cjoint.com/?cttYwwpbEb

Dim temps
Dim mArret
Sub Echantillone()
[g1] = Time
If Time >= [E2] And Time <= [E5] Then
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Date
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Time
Sheets(1).[A65000].End(xlUp).Offset(0, 2) = Rnd
End If
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
mArret = False
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

JB


On 19 fév, 19:19, "Dany Soucy" wrote:
Parfait ça!

Et pour les dates et heure d'arrêt et départ de l'acquisition au lieu des
boutons est-ce très compliqué ? Désolé de prendre de votre temps mais ça
m'es très utile n'étant pas un expert de la programation VBA sous excel!

"JB" a écrit dans le message de news:

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Date
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Time
Sheets(1).[A65000].End(xlUp).Offset(0, 2) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

JB

On 19 fév, 17:53, "Dany Soucy" wrote:



Wow merci beaucoup!

Ceci semblait très simple pour vous alors j'ose vous demander une
petite
modification si c'est possible. Est-ce que c'est possible de mettre
l'heure
et la date dans 2 colone différente ou la fonction "Now" ne le permet
pas
?
J'aimerais aussi savoir si c'est possible d'avoir une date et et heure
de
départ d'acquistion et une date et heure pour l'arrêt ou si c'est trop
compliqué...

Merci encore c'est très aprécié!

"JB" a écrit dans le message de news:

Bonjour,

Dim temps
Dim mArret
Sub Echantillone()
Sheets(1).[A65000].End(xlUp).Offset(1, 0) = Now
Sheets(1).[A65000].End(xlUp).Offset(0, 1) = Rnd
If Not mArret Then
temps = Now + TimeValue("00:00:10")
Application.OnTime temps, "Echantillone"
End If
End Sub

Sub Demarre()
Echantillone
End Sub

Sub Arret()
mArret = True
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Echantillone", Schedule:úlse
End Sub

http://cjoint.com/?ctgWLZFsdD

JB

On 19 fév, 04:29, "Dany Soucy" wrote:

Bonjour,

J'aurais besoin de vos conseils/exemple pour une petite programmation
VBA
sous excel.

J'utilise un petit logiciel qui amène des points de lectures des mes
automates programmable sous Excel
(http://opcdatahub.com/Features/OPC_to_Excel.html) le logiciel
fonctionne
à
merveille pour m'amener un point en temps réel dans une cellule. Mais
ce
que
je voudrais vraiment faire est de l'acquisition de donnée, donc
saisir
les
donnée à un interval X ajustable et les enregistrer dans des cellules
différentes avec la date et l'heure dans une autre cellule à côté de
chaque
acquisition. Est-ce que quelqu'un pourrais m'aider ?

Merci!- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -