Macro fin de journée

[KAR_inette]

Bonjour à tous ....
Est ce que quelqu'un peut m'aider sur une macro ??
J'aimerais qu'une macro se lance à un moment precis ... A savoir entre 17 et 18 heures .....
Est ce possible, peut être avec une macro evenementielle ....

Merci ...

 

[Eric C]

Bonjour le forum
Bonjour KAR-inette

Tu peux tenter le coup avec le planificateur de tâches.
Et, ne parles pas de moment précis (Entre 17 & 18 heures c'est énorme ...)
Bon dimanche

@ ++ Eric C

 

[JB]

- Salut Kar_inette,

j'ai trouvé cette petite application dans ma documentation, à essayer bien entendu.

Sub ProgrammeLaMacroTime()
Application.OnTime "17:00:00", "Macro", "18:0:00"
End Sub

Sub Macro()
Ici tu mets ta macro.

Ainsi ta macro devrait se lancer au plut tôt à 17.00 hrs et au plus tard à 18.00 hrs.

J'espère t 'avoir aidé et à +.

 

[JB]

- Désolé, j'ai oublié un 0 à 18:00:00...

 

[Caninge]

l'heure de la macro

Oui bonjour Jb

Je vois que tu es à l'aise avec les macros qui se déclenchent à des heures précises.

Il y a quelques temps j'ai demandé de l'aide sur le forum.
et comme cela fait longtemps , je repose ma question.

Je t'envoie le fichier pour bien me faire comprendre ce que je désirerais.

Si tu as un petit moment !!!

merci d'avance

 

[JB]

Resalut KAR_inette,

j'ai essayé ma première propositon, çà marche pas.
Il va falloir que je contrôle toute ma documentation...

Essaye celle-ci, elle marche chez moi.

Dans ThisWorkbook:

Private Sub Workbook_Open()
Call Temporisation
End Sub


Dans le module de ta feuille:

Dim Periode As Date

Sub Effectuer()
'Ici tu mets ta macro
End Sub

Sub Temporisation()
Periode = "17:00:00"
Application.OnTime Periode, "Effectuer"
End Sub

Voilà, c'est une petite application que j'ai récupéré sur le forum et dont Michel était l'auteur.
Je l'ai simplement adaptée à ton cas.
Chaque jour à 17.00 hrs ta macro s'effectuera à condition que ton fichier soit ouvert.

JB

 

[JB]

- Pour Caninge,

salut à toi.

J'aimerai connaître d'autres détails de ton application.

Comment les données de chaque jour arrivent-elles sur ta feuille?

Si elles sont d'abord stockées dans un autre fichier, il est possible d'aller les rechercher automatiquement à ton retour pour mettre ton fichier à jour.

Si chaque jour les nouvelles données écrasent les anciennes, et si ton fichier est fermé, je ne vois aucune solution.
Du moins à mon niveau.

Lance un nouveau fil et prie pour que @+Thierry se penche sur ton cas, c'est un des meilleurs et il trouvera forcément une solution.

@+

JB

 

[Caninge]

macro à la semaine

Bonjour JB

En fait c'est un relevé de plusieurs comptes que je posséde sur une même feuille.

Credit Mutuel a un onglet
Credit Agricole a un onglet
Crédit Lyonnais aussi.

Les dates correspondent à des samedis.
Les cellules B6: D6 évoluent constamment du fait que j'interviens sur les comptes une à 2 fois par semaine.

La cellule A2 change toute seule en fonction du jour.

Un exemple si au 22/03/2004 je dépense 10 euros sur le compte du Crédit Agricole la cellule B6 après l'opération affichera 1246.23 mais la cellule B13 affichera toujours 1256.23 jusqu'a vendredi.

Quand arrivera le 20 mars la cellule B13 affichera 1246.23 normalement.

Mais le "hic", c'est qu'il faut bien aller sur la feuille le samedi 20 mars parce que si j'attends dimanche ou lundi ou un autre jour il n'y aura rien de noté dans cette cellule du fait que la date est passée.


Et si je reviens par exemple le 10 avril qui est un samedi la cellule B16 affichera bien 1246.23 mais les cellules B13, B14 , B15 il n'y aura rien et c'est pour ça que je voudrais que ces cellules affiches bien évidemment toutes 1246.23.

En fait c'est un suivi évolutif de mes comptes à la semaine.

Je ne sais pas si je m'explique bien.

Merci et à bientôt !!!!!!

 

[JB]

- Salut Caninge et désolé pour le retard...

Voici une petite adaptation de ton fichier, essaye le et dis moi si çà te convient.
Ce n'est pas une création à moi mais une simple adaptation de programmes de Ti et @+Thierry.

Tiens moi au courant.

A++

JB

 

[Caninge]

Oui bonjour Jb

Tu te débrouilles bien , j'ai essayé et ça marche .

Par contre j'ai rajouté des colonnes pour retrouver mon vrai tableau avec seulement (1 feuille), et ensuite j'ai essayé de rajouter des lignes dans la macro, mais aie....cela ne fonctionne pas.

Je pense que ce n'est pas grand chose et que tu vas m'arranger ça en 2 temps et 3 mouvements

Merci , bonne nuit et à bientôt !!!!!!!

Caninge!

 

[JB]

- Salut Caninge,

voici l'adaptation de ton programme, je crois que çà marche.
Tiens moi au courant.

A+

JB

 

[Caninge]

Oui salut Jb

J'ai essayé et ça marche , mais les données s'inscrivent avec un retard
d'une semaine(3 avril pour 10 avril par exemple)

Jai bien tenté de manipuler tout ça mais rien à faire.

Pour faire revenir le curseur en A1

je peux rajouter ????:

Selection.Interior.ColorIndex = 43
Range("A1").Select
Application.ScreenUpdating = True

A bientôt

Caninge

 

[JB]

- Salut Caninge,

la macro fonctionne chez moi mais il y avait un petit problême de format de cellules et de dates.

J'ai rectifié et ajouté la commande que tu voulais.

J'espère que maintenant çà marchera chez toi.

@+

 

[JB]

- Sorry Caninge, juste un petit essai pour voir ma signature...

 

[JB]

- Dernier essai...