re,
bon eh bien je me suis répondu à moi-même. Voici le bon code pour les intéréssé :
Private Sub btnEmail_Click()
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strMessageType As String
Dim strTitre As String
' Ouverture de la requête
' (seuls les clients ayant un email sont concernés ici)
strSQL = "SELECT * FROM [T_SECTEUR_MAIL]" _
& " WHERE [A] IS NOT NULL"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
' Parcourir la liste des clients
While Not rst.EOF
DoCmd.RunSQL "DELETE * FROM T_ENVOIMAIL"
DoCmd.RunSQL "INSERT INTO T_ENVOIMAIL ( Numéro, Secteur, Pays, Client, Code, Prod, Délai, Champ7, Champ8, [OF], Commerce, Nuance, Produit, Dim, Longueur, [Pds cde], [Pds cours], Stade, [Section], Champ19, Référence, Hermes, P, [du client] )" & _
" SELECT [carnet de commance].Numéro, [carnet de commance].Secteur, [carnet de commance].Pays, [carnet de commance].Client, [carnet de commance].Code, [carnet de commance].Prod, [carnet de commance].Délai, [carnet de commance].Champ7, [carnet de commance].Champ8, [carnet de commance].OF, [carnet de commance].Commerce, [carnet de commance].Nuance, [carnet de commance].Produit, [carnet de commance].Dim, [carnet de commance].Longueur, [carnet de commance].[Pds cde], [carnet de commance].[Pds cours], [carnet de commance].Stade, [carnet de commance].Section, [carnet de commance].Champ19, [carnet de commance].Référence, [carnet de commance].Hermes, [carnet de commance].P, [carnet de commance].[du client]" & _
" FROM [carnet de commance]" & _
" WHERE [carnet de commance].Secteur=" & rst("secteur") & ""
M_A = rst("A")
M_Cc = rst("Cc")
M_Ccc = rst("Ccc")
' Titre du message
strTitre = "carnet de commande " & rst("pays")
' Message type à expédier
strMessageType = "Bonjour," _
& vbCrLf & vbCrLf _
& "Voici l'état des commandes pour le secteur " & rst("secteur") & "." _
& vbCrLf & "Cordialement," _
& vbCrLf & vbCrLf & "-- mail automatique - carnet de commande.mdb" _
& vbCrLf & vbCrLf _
& ""
' Expédier le mail
DoCmd.SendObject acSendTable, "T_ENVOIMAIL", acFormatXLS, _
M_A, M_Cc, M_Ccc, _
strTitre, strMessageType, False
' Client suivant
rst.MoveNext
Wend
' On libère les ressources
rst.Close
Set rst = Nothing
End Sub
Merci quand même,
golden