XL 2010 Envoi mail excel-macro conditions

[djam28]

Bonsoir à tous,
J'ai une macro qui fonctionne bien avec une date d'échéance comme condition pour l'envoi de mail (intervalle de date, colonne C). J'ai rajouté deux colonnes D et E que j'ai nommées Alerte1 et Alerte 2, de façon à envoyer au maxi 2 alertes. Je voudrais ajouter une autre condition : and si Alerte1="ok" ou Alerte2="ok" à ma ligne de code ci-dessous


(If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then

Une dernière chose, est-il possible d'attacher un PDF de façon automatique? Comment créer le path svp
Merci par avance
Bonne nuit
DE

 

[Bernard_XLD]

Bonjour djam28, le forum

pas testé mais cela devrait fonctionner comme vous le voulez

If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 And (Cells(xRgDateVal.Row, 4).Value = “Yes” Or Cells(xRgDateVal.Row, 5).Value = “Yes”) Then

Pour votre pièce jointe, remplacez fichierfullname par le chemin complet de votre fichier
J'ai corrigé votre code pour que les signatures soient intégrées

With xMailItem
    .Display
    .Subject = "Visite annuelle" 'xMailSubject
    .To = xRgSendVal
    .HTMLBody = .xMailBody & HTMLBody
    .Attachments.Add fichierfullname
    .Send
End With

Bien cordialement, @+

 

[djam28]

Bonjour Bernard,
Merci pour ton retour. En rajoutant le bout de code ci-dessous cela me génère une erreur. Ca point sur xRgDateVal. J'ai enlevé Val, mais la condition n'est pas prise en compte. J'ai mis la condition (Cells(xRgDateVal.Row, 4).Value = “Yes” Or Cells(xRgDateVal.Row, 5).Value = “Yes”) entre parenthèse non plus.
Merci pour ton aide
DE

 

[Bernard_XLD]

re,

en détricotant un peu plus ton code.

If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 And (Cells(xRgDate.Offset(i - 1, 0).Row, 4).Value = “Yes” Or Cells(xRgDate.Offset(i - 1, 0).Row, 5).Value = “Yes”) Then

Bien cordialement,@+

 

[djam28]

Désolé mais l'envoi est systématique, qu'il y ait la condition yes ou non, le mail est envoyé
Doit-on peut-être faire une déclaration de variable Dim xAlerteVal au tout début , mais je n'ai pas réussi non plus, même en modifiant les choses..
Merci de ton aide
Cdlt

 

[djam28]

J'ai réessayé avec la dernière proposition avec une seule condition et ça fonctionne.
Merci++++ Bernard
Bonne soirée

 

[djam28]

J'ai mis ça :
(Cells(xRgDate.Offset(i - 1, 0).Row, 4).Value <> "" Or Cells(xRgDate.Offset(i - 1, 0).Row, 5).Value <> "")