Discussion :

[Thierry60440]

Bonjour,
je me permet de vous solliciter, car je ne suis pas trop doué pour la programmation même si la plupart du temps je trouve ce que je veux sur le net et me débrouille avec pour adapter, mais là je patauge .
Voilà, je suis à la gestion d'un parc automobile.
Je me suis fait un tableau avec différentes colonnes à savoir une pour l'immatriculation, une pour les contrôles techniques et une pour les contrôles pollution.
Ce que j'aimerais c'est qu'à l'ouverture de mon classeur une vérification ce fasse sur cette feuille "tableau général" dans les colonnes de "contrôles techniques (I)" et les "contrôles pollution (J)" et si la date est dépassée de 700 jours pour les CT et 350 pour les CP, qu'un mail me soit destiné en faisant référence en objet de la colonne d'immatriculation (A) concernée.
merci pour votre aide qui me sera précieuse dans mon quotidien .

[Menhir]

qu'un mail me soit destiné en faisant référence en objet de la colonne d'immatriculation (A) concernée.

Ne serait-il pas plus simple de faire une liste des véhicules à contrôler dans un onglet du classeur ?

[Thierry60440]

Malheureusement non, j'ai déjà fait beaucoup de travail vba sur cette "base", que je ne me voit pas tous recommencer. Après si c'est trop fastidieux à réaliser, je capitulerais.

[Menhir]

Malheureusement non, j'ai déjà fait beaucoup de travail vba sur cette "base", que je ne me voit pas tous recommencer. Après si c'est trop fastidieux à réaliser, je capitulerais.

Si tu as déjà beaucoup travaillé sur cet envoi en mail, tu pourrais présenter le code que tu as réalisé concernant cette fonctionnalité et il sera peut-être possible de t'indiquer ce qui ne vas pas.

[Thierry60440]

Si tu as déjà beaucoup travaillé sur cet envoi en mail, tu pourrais présenter le code que tu as réalisé concernant cette fonctionnalité et il sera peut-être possible de t'indiquer ce qui ne vas pas.

Ce que j'ai voulu dire, c'est que j'ai fait d'autre macro sur ce classeur, en ce concerne celle-ci, qui pour mon projet devrais être la dernière, je n'ai pas fait grand chose, à savoir ça dans un premier temps :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
 
 If Columns("Tableau général!J2:J") <= 350 Then
    Call envoimail_pollution
    End If
 
    If Columns("Tableau général!I2:I") <= 700 Then
    Call envoimail_ControleTechnique
    End If
 
End Sub

[Thierry60440]

J'ai trouvé ceci qui fonctionne, mais uniquement si je lance la macro, mais en aucun cas est lancé par ma commande à l'ouverture du classeur.
j'aimerais aussi que dans le corps du message, "Range ("A1") corresponde à l'immatriculation du véhicule dont la date arrive à échéance, qui ce trouve sur la même 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
18
19
20
21
22
23
24
25
26
Sub envoimail_ControleTechnique()
 
Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
 
    Email_Subject = "Contrôle technique"
    Email_Send_To = "........@.........fr"
    Email_Body = "Bonjour," & vbCrLf & vbCrLf _
                    & "Vous avez 30 jours calendaires afin de prendre rendez-vous pour le véhicule" & " " & Range("A1").Value & vbCrLf & vbCrLf _
                    & "Cordialement"
 
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.Send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
 
End Sub

[TonyNiort79]

Code :

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

1
2
3
4
5
 
 
 If Columns("Tableau général!J2:J") <= 350 Then
 
 If Columns("Tableau général!I2:I") <= 700 Then

Bonjour,
je ne comprends pas la formule,
est-ce le total des colonnes J / I ?

pour moi il faut faire un filtre sur les colonnes, copier le tableau en PDF, puis se l'envoyer par mail