XL 2010 Envoi mail excel-macro conditions

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 22 Mars 2022

• #2

Bonjour djam28, le forum

pas testé mais cela devrait fonctionner comme vous le voulez

Code:

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

VB:

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

Bien cordialement, @+

 

Vote positif 0 Vote négatif

D

djam28

XLDnaute Occasionnel

• 22 Mars 2022

• #3

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 22 Mars 2022

• #4

re,

en détricotant un peu plus ton code.

VB:

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,@+

 

Vote positif 0 Vote négatif

Solution

D

djam28

XLDnaute Occasionnel

• 22 Mars 2022

• #5

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

 

Vote positif 0 Vote négatif

D

djam28

XLDnaute Occasionnel

• 22 Mars 2022

• #6

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

 

Vote positif 0 Vote négatif

D

djam28

XLDnaute Occasionnel

• 22 Mars 2022

• #7

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

 

Vote positif 0 Vote négatif