VBA Excel, Repeter une Copie
Fermé
R_Gamba
-
16 déc. 2009 à 09:27
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 16 déc. 2009 à 11:54
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 16 déc. 2009 à 11:54
Bonjour,
Dans le cadre de notre Mission Industriel, nous devons programmer sous VBA de manière à obtenir un historique des information reçu sur une autre feuille. Cependant, nous voudrions une acquisition de ces dernières toute les 2 minutes, avec l'heure s'affichant en haut de colonne.Tout en incrementant d'une colonne à chaque acquisition. Nous savons qu'il existe le Timer, mais nous ne savons pas très bien l'utiliser.
C'est assez Urgent!
Cordialement,
Dans le cadre de notre Mission Industriel, nous devons programmer sous VBA de manière à obtenir un historique des information reçu sur une autre feuille. Cependant, nous voudrions une acquisition de ces dernières toute les 2 minutes, avec l'heure s'affichant en haut de colonne.Tout en incrementant d'une colonne à chaque acquisition. Nous savons qu'il existe le Timer, mais nous ne savons pas très bien l'utiliser.
C'est assez Urgent!
Cordialement,
A voir également:
- VBA Excel, Repeter une Copie
- Liste déroulante excel - Guide
- Copie cachée - Guide
- Déplacer une colonne excel - Guide
- Calculer une moyenne sur excel - Guide
- Copie écran samsung - Guide
1 réponse
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
295
16 déc. 2009 à 11:54
16 déc. 2009 à 11:54
Sub ActualiseTimer() ' Sheets("feuil1").Calculate ' pour afficher la date et l'heure sur la "feuil1" temps = Now + TimeValue("00:02:00") ' ici on modifie l'interval Application.OnTime temps, "ActualiseTimer" 'cela permet d'excuter la macro sauvegarde toutes les 5 secondes ou 2 minutes ou X temps Application.OnTime temps, "Sauvegarde" End Sub
dans le module de sauvegarde tu mets ton code ici un exemple de sauvegarde des classeur
Sub sauvegarde() 'sauvegarde tous les classeurs ouverts Dim Wbk For Each Wbk In Application.Workbooks Wbk.Save Next Wbk End Sub
A+