Discussion :

[Mav77]

Je l'ai mis sur les lignes 1.2 et 3. Il y a le titre colonne Echeance en 1. Sur 2 et 3, deux dates aléatoires pour tester.

Il y a aucun autre classeur ouvert.


J'ai vu que mon tableau a 2 noms! t_suivi et tableau3, qui devrait ne plus être là vu que je l'ai remplacé par t_suivi. Est-ce là le problème?

[Mav77]

[...]
Mon Excel à moi, lorsque j'ai saisi "Echéance" comme entête de colonne, a corrigé en "Échéance"[...]

Oui j'avais vu ça, et j'ai corrigé aussi! Mais malheureusement ça continue à me marquer l'erreur.

[Pierre Fauconnier]

En plus de la remarque de Franck (bien vu, au passage... )

Tu as attribué t_Suivi à une plage et non au tableau. Tu dois modifier le nom du tableau via le ruban du tableau structuré, et pas via la zone de noms située à gauche de la barre de formules.

Pour corriger le tir, tu dois d'abord supprimer la plage nommée (onglet Formules\Gestionnaire de noms) puis renommer proprement ton tableau

[pijaku]

Comment ton tableau peut-il avoir 2 noms?
Ou apparaissent ces deux noms?

Il faut que ton tableau s'appelle uniquement t_suivi

[Mav77]

Mon erreur venait du fait que j'ai modifié le nom du tableau via la zone des noms, comme me l'a dit Pierre.

Je n'ai donc plus d'erreur!

Merci beaucoup pour vos explications réactives et claires.

Je vais donc tester tout ça, et vous tient au courant.

[Mav77]

Tout marche nickel, je vous remercie grandement pour votre aide!

Evidemment ils me demandent de complexifier le programme. J'essaye de m'en sortir seul un maximum mais pas évident!

* est-il possible d'envoyer un mail spécifique à la personne responsable?
Donc via le scanne de la colonne, il détecte forcément la ou les lignes où la date est inférieur à la date d'aujourd'hui,
est-il possible que ça renseigne quelle ligne fait défaut, et donc de spécifier à ma macro mail, d'envoyer le mail à la personne correspondant à la ligne?

Donc en résumé par exemple le 15/11/2018, il y a 3 machines où la date de maintenance est atteinte, est-ce possible d'envoyer 3 mails différents aux 3 personnes responsable de ces machines?

Autre chose ils voudraient que le mail soit envoyé 30 jours avant la date! Pour cela j'ai mis dans la macro checkdates : If Cell.Value < Date - 30 Then SendMail Cell.Row mais évidemment ça ne fonctionne pas!

[Pierre Fauconnier]

Dans ma solution, je te proposais de passer le numéro de la ligne de la cellule à la macro SendMail... Ca permet à celle-ci d'utiliser les valeurs de cette ligne, et notamment l'adresse mail du responsable si elle est renseignée...

Pour le problème de dates, c'est un petit problème de logique... If Cell.Value >= Date - 30

[Mav77]

Bonjour,

me revoilà dans ma semaine de stage, je dois donc achever de peaufiner ce programme.

Le +30 jours c'est ok.

Maintenant je ne vois pas comment appeler une adresse mail spécifique lié à la ligne.

J'ai donc ma 1ère macro qui appelle ma 2ème qui lance le mail en fonction de la date du jour et d'échéance.

1ère macro:

Code :

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

1
2
3
4
5
6
7
8
Sub CheckDates()
  Dim Cell As Range
 
  For Each Cell In Range("t_Suivi[Echeance]")
  If Cell.Value <= Date + 30 Then SendMail Cell.Row
  Next
 
End Sub

J'aurai 4 personnes différentes à appeler en fonction des machines à réviser.
Est-ce que je dois faire 4 macros mail différentes?
Donc la 2ème macro mail où je change uniquement l'adresse et titre sujet?

Si oui, comment appeler ces différentes macros mail via la première cherckdates ?

Comme ceci? :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub CheckDates()
  Dim Cell As Range
 
  For Each Cell In Range("t_Suivi[Echeance]")
  If Cell.Value <= Date + 30 Then SendMail Cell.Row
  If Cell.Value <= Date + 30 Then SendMail1 Cell.Row
  If Cell.Value <= Date + 30 Then SendMail2 Cell.Row
  If Cell.Value <= Date + 30 Then SendMail3 Cell.Row
  Next
 
End Sub

le problème c'est que ça ne spécifie pas la ligne où la date correspond.

Pierre tu me dis ceci:

Dans ma solution, je te proposais de passer le numéro de la ligne de la cellule à la macro SendMail... Ca permet à celle-ci d'utiliser les valeurs de cette ligne, et notamment l'adresse mail du responsable si elle est renseignée...

Ce serait effectivement la solution, mais je ne vois pas comment la coder. Ce serait une modification dans la macro checkdates ou sendmail?