Discussion :

[charly013]

bonjour a tous
je suis nouveau sur le forum et j aurais besoin d un peu d aide.
j ai cree un fichier excel composé de quatres onglets
sur le dernier j'ai crée un bouton mail. ce bouton doit etre activé le dernier jour du mois pour exporter des donnes. Mlaheureusement certains oublient de le faire et les données sont difinitivement perdues car elles sont actualiséés en temps reels et evoluent au fil de l eau
je voudarit avoir en "feuillet 1" un message d'alerte en cas d'oubli d'envoi a "fin de mois - 4 h)
si quelqu un a une idee car je planche dessus et je suis un peu perdu
en vous remerciant
charly

[EngueEngue]

fin du mois -4h c'est quand ? dernier jour ouvré? Est-ce que le fichier est ouvert à cette heure là?

On peut sourtout lancer automatiquement la macro du bouton à la fin du mois

[charly013]

re bonjour

c'est vrai que l envoie automatique serait super
je te remercie pour ta reponse je vais essayer de trouver. Franchement je debute et j'ai pas mal de difficultés
plus j avance et plus j'ai l impression de reculer
encore un grand merci pour ta reponse

[EngueEngue]

regarde du coté de la méthode on time

Supposons que tu veux lancer ta macro MaMacro à 18h le dernier jour du mois

Dans une feuille appellée "Mamouth" en A1 tu mets le numéro du jour du mois que tu veux... supposons le 31 pour le mois de décembre qui est un mardi


Dans le module thisworkbook tu mets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
    If Sheets("Mamouth").Range("A1") = Day(Date) Then
        Application.OnTime TimeValue("18:00:00"), "MaMacro"
    End If
End Sub

[charly013]

voici ma macro actuelle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub FINDEMOIS()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = "xxxx.com"
Destinataires(2) = "xxxxxx.com"
Destinataires(3) = "xxxxxx.com"
Sujet = "releve fin de mois"
AccuseReception = True
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("releves fin de mois").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

penses tu que je peux rajouter ce que tu m'a donné?
en te remerciant encore milles fois

[EngueEngue]

Ajoute ceci dans ton module thisworkbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
    If Sheets("Mamouth").Range("A1") = Day(Date) Then
        Application.OnTime TimeValue("18:00:00"), "FINDEMOIS"
    End If
End Sub

Crée un feuille appellée Mamouth et mets 31 dans la case A1 le 31 décembre à 18h ta macro findemois sera lancée.