Discussion :

[meeeh]

Bonjour!

Ca fait un moment que je galère sur un point et n'ai rien trouvé qui fonctionne sur les forums donc je fais appel à vous
Je pense que c'est un truc tout bête à faire mais je suis débutante sur Access et VBA donc bon

Je dois automatiser un processus de gestion d'appel d'offres notamment l'envoi des mails avec Access 2016.
J'ai un formulaire principal frm_tbl_infosAvis basé sur une table tbl_infosAvis qui regroupe toutes les informations relatives aux avis selon leur numéro. Cette table sert à lier d'autres tables grâce au ID_avis qui est une clé primaire.
Sur le formulaire j'ai d'autres champs qui viennent d'autres tables notamment tbl_chiffrage.
Celle-ci contient l'ID_Avis lié à tbl_infosAvis, Destinataire_L liste déroulante qui prend noms et prénoms de tbl_contactsL, champ Destinataire_S liste déroulante qui prend les noms et prénoms de tbl_contactsS et d'autres champs pas utiles dans le problème.
Les champs Destinataire_L et Destinataire_S se remplissent automatiquement correctement et contiennent donc le nom du destinataire.

Je voudrais prendre ce nom, identifier la bonne ligne dans les tbl_contacts et y récupérer l'adresse mail pour l'intégrer à mon programme VBA qui envoie le mail par appui sur un bouton.

Mon problème est juste la récupération dans les tbl_contacts de la bonne adresse mail correspondant au nom dans la tbl_chiffrage.

J'ai essayé en faisant une requête, un sous formulaire, directement dans VBA, en liant les tables... mais aucune méthode n'a été concluante.
J'ai aussi un autre pb c'est que je ne peux plus modifier les listes déroulantes dans tbl_chiffrage pour y ajouter les colonnes mails. Ca me dit que ce n'est pas modifiable car il y a des liaisons même quand tout est fermé et que j'ai retiré toutes les liaisons entre les tables

Je pense que je me prends trop la tête pour un truc simple.

[hyperion13]

Salut
Difficile d'avoir une vision spatiale du SI lorsqu'il est exprimé sous forme littérale.
Alors une bonne vieille capture d'écran de la fenêtre des relations avec les tbl concernées et pourquoi du form de saisie de vos données serait la bienvenue.

[meeeh]

J'espère que c'est plus clair.
Pour l'instant c'est sur la config avec la tentative de requête.

[hyperion13]

Si votre combobox DestinataireS à pour contenu (Propriété Données)

Code :

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

1
2
SELECT ID_client, Nom, Prenom, Mail
FROM tbl_contactsclients

pour récupérer la valeur Mail en vba, il faut passer

Code :

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

Me.ComboboxDestinataireS.Column(3)

où

Code :

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

1
2
.column(0) = renvoit la valeur de la 1ère colonne
.column(1) = renvoit la valeur de la 2ème colonne

[meeeh]

J'ai adapté ça pour destinataireL.
La ligne ci-dessous s'affiche en rouge, ID_contact_Laroche est surligné (en fait il surligne le premier élément après SELECT si j'enlève ID... et laisse Nom en premier il surligne Nom etc.) et un msgbox s'affiche disant : Erreur de compilation. Attendu : Case.

Code :

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

SELECT ID_contact_Laroche, Nom, Prenom, Mail

Voici la façon dont j'ai intégré votre code:

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
27
28
Private Sub btn_envoiChiffrage_Click()
'Envoi mail chiffrage à Laroche
    Dim sujetMailLaroche As String
    Dim mailDestinataireLaroche As String
    Dim mailLaroche As String
 
    'Envoie mail uniquement lorsque N° Avis non vide
    If IsNull(N°_Avis) Then
        MsgBox "Le champ N°Avis est vide.", vbOKOnly, "Envoi en chiffrage"
    Else
        'Récupère adresse mail destinataire Laroche
        SELECT ID_contact_Laroche, Nom, Prénom, Mail
        From tbl_contactsLaroche
        mailDestinataireLaroche = Me.ComboboxDestinataireLaroche.Column(3)
 
        sujetMailLaroche = "DEMANDE DE CHIFFRAGE AVIS N°" & N°_Avis
        'mailDestinataireLaroche = "blbl"
        mailLaroche = "DEMANDE DE CHIFFRAGE AVIS N°" & N°_Avis & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Date limite envoi offre: " & Date_limite_envoi_offre & Chr(13) & Chr(10) & "Date limite livraison outillage: " & Date_livraison_OT
 
        EnvoyerEmail sujetMailLaroche, mailDestinataireLaroche, mailLaroche
    End If
 
'Envoi mail chiffrage client
 
'Affecte la date du click sur le bonton à date envoi en chiffrage
Date_envoi_en_chiffrage = Now()
 
End Sub

[meeeh]

Apparemment c'est parce que j'ai écrit du SQL directement sans le mettre dans une chaîne de texte.
C'est corrigé maintenant mais maintenant j'ai une erreur de compilation "Sub ou fonction non définie" sur le from

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
27
28
29
Private Sub btn_envoiChiffrage_Click()
'Envoi mail chiffrage à Laroche
    Dim sujetMailLaroche As String
    Dim mailDestinataireLaroche As String
    Dim mailLaroche As String
    Dim recupMailSQL As String
 
    'Envoie mail uniquement lorsque N° Avis non vide
    If IsNull(N°_Avis) Then
        MsgBox "Le champ N°Avis est vide.", vbOKOnly, "Envoi en chiffrage"
    Else
        'Récupère adresse mail destinataire Laroche
        recupMailSQL = "SELECT ID_contact_Laroche, Nom, Prénom, Mail"
        From tbl_contactsLaroche
        mailDestinataireLaroche = Me.ComboboxDestinataireLaroche.Column(3)
 
        sujetMailLaroche = "DEMANDE DE CHIFFRAGE AVIS N°" & N°_Avis
        'mailDestinataireLaroche = "blbl"
        mailLaroche = "DEMANDE DE CHIFFRAGE AVIS N°" & N°_Avis & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Date limite envoi offre: " & Date_limite_envoi_offre & Chr(13) & Chr(10) & "Date limite livraison outillage: " & Date_livraison_OT
 
        EnvoyerEmail sujetMailLaroche, mailDestinataireLaroche, mailLaroche
    End If
 
'Envoi mail chiffrage client
 
'Affecte la date du click sur le bonton à date envoi en chiffrage
Date_envoi_en_chiffrage = Now()
 
End Sub

[meeeh]

En fait non ça n'a aucun sens ce que j'ai fait là

[meeeh]

Trouvé!!!
J'ai effacé et refait ma table chiffrage vu que je ne pouvais pas modifier les champs pour une raison inconnue.
Dans les listes déroulantes Destinataire_Laroche et Destinataire_S j'ai ajouté le champ Mail des tables contacts correspondantes puis il ne restait plus qu'à appeler la bonne colonne!

Le SELECT ... FROM n'était pas nécessaire il suffisait de faire ça :

Code :

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

mailDestinataireLaroche = Destinataire_Laroche.Column(1)

La variable mailDestinataireLaroche est inutile ducoup.

hyperion13 merci beaucoup!


Pour ceux que ça intéresse en tout ça donne :

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
Private Sub btn_envoiChiffrage_Click()
'Envoi mail chiffrage à Laroche
    Dim sujetMailLaroche As String
    Dim mailLaroche As String
 
    If IsNull(N°_Avis) Then
        MsgBox "Le champ N°Avis est vide.", vbOKOnly, "Envoi en chiffrage"
    Else
        sujetMailLaroche = "DEMANDE DE CHIFFRAGE AVIS N°" & N°_Avis
        mailLaroche = "DEMANDE DE CHIFFRAGE AVIS N°" & N°_Avis & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Date limite envoi offre: " & Date_limite_envoi_offre & Chr(13) & Chr(10) & "Date limite livraison outillage: " & Date_livraison_OT
 
        EnvoyerEmail sujetMailLaroche, Destinataire_Laroche.Column(1), mailLaroche
    End If
'Envoi mail chiffrage client
'...
 
'Affecte la date du click sur le bonton à date envoi en chiffrage
Date_envoi_en_chiffrage = Now()
 
End Sub