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
 

Fichiers joints

danielco

XLDnaute Impliqué
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas