Bonjour,
J'ai dans ma base de données un formulaire de recherche multicritère qui est alimentée par une requête : Req_DepEurope

La requête est composée de différents champs et les filtres du formulaire agissent sur les champs "Semaine" et "Pays".

Une fois que j'ai filtré les éléments dans ma liste, j'utilise un bouton pour exporter le résultat de la liste dans un fichier excel et l'envoyer automatiquement (via Outlook) à différentes adresses.

Voici le code que j'utilise actuellement :
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
Private Sub Commande8_Click()
Dim strchemin As String
Dim LocalDataa501895Desktoptest As Integer
strchemin = "d:\LocalData\a501895\Desktop\test"
strchemin = strchemin + "\StatsFrs.xls"
 
Kill "d:\LocalData\a501895\Desktop\test\StatsFrs.xls"
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Req_DepEurope", strchemin, True
 
 
 
Dim MonOutlook As New Outlook.Application
  Dim MonMessage As Outlook.MailItem
  Set MonOutlook = New Outlook.Application
  Set MonMessage = MonOutlook.CreateItem(olMailItem)
  MonMessage.To = "client@gmail.com"
  MonMessage.Attachments.Add "d:\LocalData\a501895\Desktop\test\StatsFrs.xls"
  MonMessage.Subject = "Dépannage Europe"
  MonMessage.Body = "Bonjour," & vbCrLf & "Comme d'habitude les dépannages Marseille" & vbCrLf & "Cordialement."
  MonMessage.Send
  Set MonOutlook = Nothing
  Set MonMessage = Nothing
  Exit Sub
End Sub
Le soucis est qu'en fonction du pays, je dois l'envoyer soit à tel collaborateur, soit à un autre.
J'aimerais savoir si une fois que le "Pays" soit choisis grâce au filtre de recherche, on peut faire en sorte que le code reconnaisse le pays sélectionné et envoie en fonction le mail aux personnes concernées en fonction.

Merci d'avance


Jbsushi