Execution d'une macro 1 fois par semaine

Résolu

Pyrisis Messages postés 9 Statut Membre -
Pyrisis Messages postés 9 Statut Membre - 15 mai 2017 à 11:06

Bonjour,

J'ai fais une macro qui envoie un mail selon un tableau, seulement j'aimerai que les mail soit envoyer 1 fois par semaine et non a chaque fois que l'on ouvre le fichier.
Comment pourrait-je faire

Ps: le document est disponible sur un serveur il faut donc que cela marche de n'importe quel ordinateur.

Merci d'avance

Afficher la suite

A voir également:

Execution d'une macro 1 fois par semaine
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Jitbit macro recorder - Télécharger - Confidentialité
Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
Je suis une chose que les garçons utilisent 2 fois par jour et les filles une fois dans leur vie - Forum Loisirs / Divertissements

2 réponses

Réponse 1 / 2

yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584

bonsoir, je te suggère d'enregistrer dans le fichier le moment où la macro travaille, donc de faire ainsi:
1) quand la macro commence à travailler, elle vérifie que le moment enregistré est plus récent qu'une semaine, sinon la macro ne fait rien
2) si le moment enregistré est plus ancien qu'une semaine, la macro remplace ce moment par maintenant, puis fait son travail habituel
qu'en pense-tu?

Réponse 2 / 2

Pyrisis Messages postés 9 Statut Membre 1

Bonjour, Cette solution me parait tous a fait satisfaisante.
Mais comment pourrais-je faire pour que la macro vérifie que l'enregistrement date de moins d'une semaine?

yg_be Messages postés 24281 Statut Contributeur 1 584

Travailles-tu dans Excel? Ta macro est-elle écrite en VBA?

Pyrisis Messages postés 9 Statut Membre 1 > yg_be Messages postés 24281 Statut Contributeur

Oui je travaille sur excel et ma macro est écrite en vba

yg_be Messages postés 24281 Statut Contributeur 1 584 > Pyrisis Messages postés 9 Statut Membre

par exemple:

Sub test()
Dim dernierboulot As Date
dernierboulot = Cells(7, 2).Value
If dernierboulot > Now() - 7 Then
    Debug.Print "rien à faire"
Else
    Debug.Print "au travail"
    Cells(7, 2).Value = Now()
End If

End Sub

Pyrisis Messages postés 9 Statut Membre 1

Merci beaucoup ça marche !!!!
merci merci merci

Discussions similaires

Devinette

Savori si quelqu'un a bloqué mon numéro

Comment savoir quand une personne nous bloque sur portable

un seul bip quand j'appelle quelqu'un

paiment 4x nickel sur top achat

Votre réponse

Discussions similaires