Bonjours,
 
Je suis acctuellement en cour de création d'une base de donnée sous excel, cette base de donnée doit gèrer toute les maintenances de mon entreprise. Il ne me reste plus que l'envois de mail d'alerte à faire pour qu'elle soit opérationnel. C'est là le problème.
 
Je peut avec mes code acctuel envoyer une feuille de mon classeur directement, mais je voudrais pouvoir l'envoyer en différé.
 
Ex: prévoire un envois dans 1 mois puis un autre dans 2 mois et ceci sans réouvrir mon fichier excel.  
 
Bon ci c impossible dite le mois aussi
 
voici mon code acctuel:
 
Sub envoi_Feuille()
     
    répertoireAppli = ActiveWorkbook.Path
    Sheets("Imprimé" ).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs répertoireAppli & "\Imprimé.xls"
    ActiveWindow.Close
     
    '---  Envoi par mail
    Dim olapp As Outlook.Application
    Sheets("Utilisateur_mdp" ).Select
    Range("D2" ).Select
    Do While Not IsEmpty(ActiveCell)
      Dim msg As MailItem
      Set olapp = New Outlook.Application
      Set msg = olapp.CreateItem(olMailItem)
      msg.To = ActiveCell.Value
      msg.Subject = Range("A2" ).Value
      msg.Body = Range("A5" ).Value & Chr(13) & Chr(13) & Range("A8" ).Value & Chr(13) & Chr(13)
      msg.Attachments.Add Source:=répertoireAppli & "\Imprimé.xls"
      msg.Send
      ActiveCell.Offset(1, 0).Select
    Loop
     
    'suppression du fichier créer
    Kill répertoireAppli & "\Imprimé.xls"
     
End Sub
Sub lit_messagerie()
  Dim olapp As Outlook.Application
  Dim olns As Outlook.Namespace
  Dim olmf As Outlook.MAPIFolder
  Dim obj As Object
  Set olapp = New Outlook.Application
  Set olns = olapp.GetNamespace("mapi" )
  Set olmf = olns.GetDefaultFolder(olFolderInbox)
  For Each obj In olmf.Items
   MsgBox obj.Subject
  Next
End Sub
 
 
Merci d'avance  
 
Cordialement
 
Chevalier saga

Je pense que si tu ne veux pas ouvrir le fichier excel, ça ne vas être possible. Mais tu peux passer par le gestionnaire des tâches, qui t'ouvrira ce fichier xls à partir duquel un mail sera envoyé si la date est échue.

il me semblais bien que c'était impossible.
 
Merci beaucoup Kapote Nestor