XL 2016 Besoin d aide pour créer un code VBA

jerome3131

XLDnaute Nouveau
Bonjour,

J'aurai besoin de votre aide pour créer un code VBA :

Je souhaiterai pour faire une relance si ma commande date de plus de 5 jours à mes fournisseurs en leur envoyant un mail en indiquant dans l'objet la référence de notre commande . Ci-joint un exemple de mon tableau ou en jaune mes commandes passées et non reçues et en bleu mes commandes reçues et en blanc les commandes non validées par mes clients .

Merci pour votre aide
 

Pièces jointes

  • EXEMPLE.xlsx
    11 KB · Affichages: 8

danielco

XLDnaute Accro
Bonjour,

Utilise la macro :

VB:
Sub Rappel()
  Dim C As Range, olApp As Object, M As Object
    Set olApp = CreateObject("Outlook.application")
  For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
    If IsDate(C.Offset(, 1)) And Date - C.Offset(, 1) > 5 Then
      Set M = olApp.CreateItem(olMailItem)
      With M
          .Subject = C.Offset(, 4).Value
          .Recipients.Add C.Offset(, 3).Value
          .Send
      End With
    End If
  Next C
End Sub

Cordialment.

Daniel
 

jerome3131

XLDnaute Nouveau
Bonjour,

Utilise la macro :

VB:
Sub Rappel()
  Dim C As Range, olApp As Object, M As Object
    Set olApp = CreateObject("Outlook.application")
  For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
    If IsDate(C.Offset(, 1)) And Date - C.Offset(, 1) > 5 Then
      Set M = olApp.CreateItem(olMailItem)
      With M
          .Subject = C.Offset(, 4).Value
          .Recipients.Add C.Offset(, 3).Value
          .Send
      End With
    End If
  Next C
End Sub

Cordialment.

Daniel
Bonjour DAnielco et merci pour ton aide cela fonctionne parfaitement .
est-ce abuser de te demander une condition en plus :
si ligne en jaune avec date dépassé de 5 jours envoyé le mail de relance

merci
 

Statistiques des forums

Discussions
311 709
Messages
2 081 756
Membres
101 812
dernier inscrit
trufu