Discussion :

[pol70]

brj ,

J'ai lu cette discussion.

utilisé un modèle de XDURUPT pour macro envoi mail , mais je souhaite ajouter une condition supplémentaire pour ne pas prendre en compte les lignes dont l'échéance est "CLOTURE" en colonne J et je rame ....pas pro du VBA

qui a-t-il qqes mn à consacrer à mon sujet ?

merci

[Daniel.C]

Bonsoir,

Modifie peut-être la macro "rappel" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub rappel()
Dim Sh As Worksheet
Dim R As Range
Dim L As Long
Dim msgRAPPEL As String
msgRAPPEL = ""
Set R = ActiveSheet.UsedRange
For L = 12 To R.Rows.Count
    If DateValide(R(L, 9), Date, 6) = False Then
    msgRAPPEL = msgRAPPEL & Message(R(L, 1), R(L, 2), R(L, 6), R(L, 7), R(L, 8), R(L, 9), R(L, 10))
    End If
    Next
If Trim("" & msgRAPPEL) <> "" And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then
    msgRAPPEL = "<table border='1' cellspacing='0'  width='100%'>" & MessageTitre & msgRAPPEL & "</Table>"
    Mail "RAPPEL ECHEANCES", msgRAPPEL, "aaaaaaa@orange.fr"
End If
End Sub

[pol70]

merci Daniel

configuration déjà testée , les lignes "CLOTURE" sont qd même envoyées dans le tableau ..... d'où mon appel à l'aide .

ne faut-il pas déclarer préalablement le contenu de la col 10 comme variable ?

[Daniel.C]

Oups :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Trim("" & msgRAPPEL) <> "" or Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Trim("" & msgRAPPEL) <> "" And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then

[pol70]

désolé , résultat identique ....la macro ne prend pas en compte la condition / col J ...????

[Daniel.C]

Je maintiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Trim("" & msgRAPPEL) <> "" And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then

Quelle ligne ne correspond pas ?

[pol70]

les lignes dont la cellule col J est renseignée comme CLOTURE, sont prises en compte , alors que je n'ai besoin que des RAPPEL et ECHU , d'où la condition <> "CLOTURE" , espérée fonctionnelle.

ci-dessous un extrait du tableau reçu envoyé par mail

n°CP nomcopro sujet action famille échéance alerte
18 1 RUE GENOUX TRUCCHOSE 11 CCCCCCCCCCCCCC Sinistre 01/11/2016 ECHU
12 CLOS TOUR 1 TRUCCHOSE 1 AAAAAAAAAAAAAAAA Sinistre 09/11/2016 CLOTURE <= je veux éviter d'envoyer ces lignes
20 25 R. ST GEORGES TRUCCHOSE 2 BBBBBBBBBBBBBBBBBB AG 10/11/2016 ECHU
etc....

merci

[Daniel.C]

Peut-être alors comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub rappel()
Dim Sh As Worksheet
Dim R As Range
Dim L As Long
Dim msgRAPPEL As String
msgRAPPEL = ""
Set R = ActiveSheet.UsedRange
For L = 12 To R.Rows.Count
    If DateValide(R(L, 9), Date, 6) = False And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then
    msgRAPPEL = msgRAPPEL & Message(R(L, 1), R(L, 2), R(L, 6), R(L, 7), R(L, 8), R(L, 9), R(L, 10))
    End If
Next
    If Trim("" & msgRAPPEL) <> "" Then
    msgRAPPEL = "<table border='1' cellspacing='0'  width='100%'>" & MessageTitre & msgRAPPEL & "</Table>"
    Debug.Print Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" & L
    Mail "RAPPEL ECHEANCES", msgRAPPEL, "aaaaaaa@orange.fr"
    End If
    End Sub

[pol70]

cette version rend la condition de sélection date inopérante : avec If DateValide(R(L, 9), Date, 6) = False , la macro ne sélectionne aucune ligne puisque condition date false.

??? Désolé de te compliquer ton WE avec mes Pbs
merci
Pol

Daniel ,

OK J'ai trouvé !!! La condition n'était pas sur la bonne ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub rappel()
Dim Sh As Worksheet
Dim R As Range
Dim L As Long
Dim msgRAPPEL As String
msgRAPPEL = ""
Set R = ActiveSheet.UsedRange
For L = 12 To R.Rows.Count
    If DateValide(R(L, 9), Date, 6) = False And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then
    msgRAPPEL = msgRAPPEL & Message(R(L, 1), R(L, 2), R(L, 6), R(L, 7), R(L, 8), R(L, 9), R(L, 10))
    End If
    Next
    If DateValide(R(L, 9), Date, 6) Then  
    msgRAPPEL = "<table border='1' cellspacing='0'  width='100%'>" & MessageTitre & msgRAPPEL & "</Table>"
    Mail "RAPPEL ECHEANCES", msgRAPPEL, "jeanpaul.fehner@orange.fr"
    End If
    End Sub

Merci et bonne fin de WE

[Daniel.C]

Je ne vois pas la différence, je dois avoir de la crotte plein les yeux ?

[pol70]

Il y a 2 conditions if DateValide, c'est sur la première qu'il fallait associer la 2eme conditions sur la col J , pas la deuxième sur l'emission du mail.
Et là , ça fonctionne top.
Merci de m'avoir consacré du temps.
Bye.
Pol70