Discussion :

[____nannou]

Bonjour,

J'essaie de créer un bouton dans un formulaire qui me permettrait d'envoyer un mail avec fichier excel attaché ( venant d'un état) à plusieurs destinaires.

Mon état est basé sur une requête paramétrée. Ce que je souhaiterai faire c'est de mettre en destinaire du mail l'ensemble des enregistrements de ma requête ( j'ai un champs adresse mail dans ma requete que j'ai aussi mis dans mon état ).

J'essaie de mettre dans une variable ( AdresseMail) le champs "Email" de ma requête "_Cours requete" afin de l'utiliser avec la fonction :

Code VBA :

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

DoCmd.SendObject acOutputReport, stDocName, acFormatXLS, AdresseMail....

Est-ce que quelqu'un pourrais m'aider à savoir comment codé correctement pour que ça fonctionne ?

[mout1234]

Bonjour,

As-tu essayé ce que y est proposé dans la FAQ
http://access.developpez.com/faq/?pa...n#OuvrUnInstOL?

[____nannou]

Le problème c'est que je ne connais pas la syntaxe à utiliser pour affecter dans la variable les valeurs d'un champs d'une requête, j'ai essayé :

Code :

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

variable = [nom_requete].[nomchamps]

avec ou sans .value derrière ... avec un !

bref je crois que je mélange plusieurs langage ( ça fait bien longtemps que je n'ai pas eu à coder )

Merci de m'aider

[mout1234]

Il y a plusieurs sources d'informations pour t'aider là dessus sur dvp.

Notamment http://warin.developpez.com/access/d...artie_5#L5.4.1

Le cours entier mérite une bonne lecture
http://warin.developpez.com/access/dao/?page=sommaire

[____nannou]

J'ai lu ce que tu m'as conseillé, et j'ai donc testé comme 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
Dim res As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set res = db.OpenRecordset([_Cours Requête]![Email], dbOpenDynaset)
 
    Dim stDocName As String
    Dim AdresseMail As String
    Dim i, Compt, numero As Integer
    AdresseMail = ""
i = res.RecordCount
 res.MoveFirst
 
 For Compt = 0 To i - 1
 AdresseMail = AdresseMail + "," + res
 res.MoveNext
 
        Compt = Compt + 1
   Next Compt
 
    stDocName = "Emploi du temps"
    DoCmd.SendObject acOutputReport, stDocName, acFormatXLS, AdresseMail, , ,,

ça ne fonctionne toujours pas : il me met comme erreur : "impossible de trouver le '!' auquel il est fait référence dans votre expression."

En mode débogage il s'arrête sur la ligne :

Code :

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

Set res = db.OpenRecordset([_Cours Requête]![Email], dbOpenDynaset)

sachant que _Cours Requête est ma requête et Email est le nom de mon champs. Au départ je n'avais mis que le nom de la requête mais ça ne fonctionne pas plus.
Si tu pouvais me dire ce que je fais de travers ... Merci beaucoup de ton aide

[mout1234]

Bonjour,

Tu as dû lire un peu vite ...

L'openRecordset attend une source de données (le nom d'une table, d'une requête, ou une instruction SQL complète). Cela génère un jeu d'enregistrements dans lequel tu peux par code naviguer ...


qq chose du genre (idée de code non testée ...)

Code :

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

1
2
3
4
5
6
7
8
9
 
...
set orst = db.openrecordset("SELECT email FROM [_Cours Requête]")
...
while not orst.EOF
      AdresseMail = AdresseMail & "," & orst!email
       orst.movenext
wend
...

[____nannou]

Effectivement, comme ça ça marche nettement mieux ... Des que j'ai retrouvé mes neurones je continue à bosser ....

J'ai juste un dernier petit problème, mon code est donc le suivant :

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
On Error GoTo Err_Commande23_Click
 
Param1 = InputBox("Veuillez saisir la semaine de l'emploi du temps à consulter")
 
Dim res As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set res = db.OpenRecordset("SELECT Email FROM [_Cours Requête]where Semaine =" & Param1 & "", dbOpenDynaset)
Dim stDocName As String
Dim AdresseMail As String
 
AdresseMail = ""
While Not res.EOF
 AdresseMail = AdresseMail + "," + res!Email
 res.MoveNext
Wend
 
    stDocName = "Emploi du temps"
    DoCmd.SendObject acOutputReport, stDocName, acFormatXLS, AdresseMail, ,
 
 
Exit_Commande23_Click:
    Exit Sub
 
Err_Commande23_Click:
    MsgBox Err.Description
    Resume Exit_Commande23_Click

J'ai déclaré ma variable Param1 en public puisque j'en ai besoin pour un état basé sur ma même requête ( où j'ai besoin de ce paramètre d'entrée sur mon champs Semaine ).
Dans mon état, sur la zone de texte "Semaine" j'ai donc ajouté comme source de données =[Semaine]=[Param1] mais il ne le reconnait pas comme ma variable déclarée public.
Je suppose que je dois encore confondre pas mal de chose mais je ne vois pas quoi ...

[Didier71]

Bonsoir

Essaye

Code :

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

Set res = db.OpenRecordset("SELECT Email FROM [_Cours Requête] where Semaine ='" & Param1 & "'", dbOpenDynaset)

Bon courage

Didier71

[mout1234]

Bonjour,

Tu ne peux mettre le nom d'une variable - même publique - dans une propriété Source de données.

Remarque: Il serait trop long pour moi de t'expliquer ici comment faire proprement les choses et cela supposerait de rentrer dans le détail de ton code... mais idéalement, il vaudrait mieux éviter les variables publiques.

En oubliant cette remarque, pour résoudre ton souci s'agissant d'un état, tu peux alimenter ta zone de texte par code en plaçant quelque chose du genre

Code :

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

1
2
3
4
 
Private Sub Report_Open(Cancel As Integer)
   Me!Semaine = param1
End Sub

A toi de voir quel évènement de l'état (j'ai pris ici l'ouverture de l'état) est le plus approprié.