Discussion :

[pascalblois]

ha je comprends pas ...

je remplace tous les command75 par un autre nom ?

--------------------------
comme ca ?

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
Private Sub mail_Click()
On Error GoTo Err_mail_Click    
 
 
    Dim stDocName As String
 If Cdate(Dlookup("valeur","_PARAMS_","intitule='LastLaunch'"))<Now()-7 Then
    stDocName = "Liste des actions en retard"
    DoCmd.SendObject acReport, stDocName, acFormatXLS, _
    "toto@pp.com", "", , _
    "Actions en retard", "Ci joint la liste des actions en retard", False
Else
MsgBox "dernier message envoyé il y a moins de 7 jours"
End If   
 
Exit_mail_Click:
    Exit Sub
 
Err_mail_Click:
    MsgBox Err.Description
    Resume Exit_mail_Click
 
End Sub

--------------------------

[Jean-Philippe André]

bien et maintenant dans ta macro, pour ExécuterCode, tu spécifies "mail_Click", et ca devrait être bon

[pascalblois]

bonjour,
probleme

dans ma macro autoExec , j'ai bien mis dans la colonne action , Runcode, puis copier dans fonction name , "mail_Click" , mais rien ne se passe ....

[Jean-Philippe André]

rajoute un msgbox au début de ton code, voir si cela se lance ou pas du tout
sinon, si tu peux me faire un screen shot de ta macro avec le nom de la fonction appelée visible ?

[pascalblois]

Si je rajoute un message box , le message s'affiche bien mais pas d'execution de la macro
Pourtont quand cette macro etait derrière le bouton Command_Click , il fonctionnait .

[Jean-Philippe André]

je ne savais pas qu'il fallait mettre le nom de la fonction entre guillemets


autre piste :
supprimer le on error goto dans ta fonction, ca te permettra dans un premier temps de t'assurer que le code se déroule sans accroc

[pascalblois]

J'ai supprime , on error goto dans le code , mais pas de changement....

Concernant les "" si je n'en mets pas j'ai des messages d'erreur..

[Jean-Philippe André]

ajoute les parenthèses après
=> mail_Click()

[pascalblois]

si je mets les () et pas les "" , j'ai un message " the expression has a function name that plan d'actions Qa cant find "
puis une boite de dial actionfailed....

et si je mets () et "" meme chose sans le 1 er message ...

sniffffff


je reparle de l'autre option avec le fichier bat mais qui peut aussi concerne le point actuel ; Il n'y a pas une option dans access qui par ex autorise pas les macro ou dans windows ... le probleme semblant venir de ma config access , qui est uen config d'entreprise en reseau , peut etre que .....

[Jean-Philippe André]

regarde au niveau de Outils>Macro>Sécurité

[pascalblois]

Ca n'exites pas Outils>Macro>Sécurité

[Jean-Philippe André]

et Tools>Macro>Security ?

[pascalblois]

bah ici au taf ya pas ,

[pascalblois]

bah ici au taf ya pas ,

et chez moi quand je teste une macro autoexec avec le code mail , j'ai le meme probleme que au travail ...chez moi g access 2003 et la g bien le nieveu de securite , que j'ai mis a faible , mais j'ai quand les problee comme quoi il trouve pas l'expression

[pascalblois]

Bonjour, j'ai trouve une solution avec tous ce que vous m'avez dit .
Le probleme de la derniere solution est surment due au fait que une condition a besoin d'etre lié a un texbox , par ex , d'un formulaire , donc voila ce que j'ai fait pour avoir un mail avec fichier qui s'envoi tous les 7 jours.
Dans ma base un formulaire (Acceuil) s'affiche toujours par défaut a l'ouverture .
j'ai creer une table datemail , avec un champ date , dans ce champ j'ai mis une date .
Dans mon formulaire , j'ai donc ajouter un textbox affichant la date de la date datemail.
je laisse ce formulaire ouvert pour écrire mes macro
je fais donc une macro AutoExec :
la 1 er action est un sendobjet , je remplis toutes les cases pour définir le fichier , format et a qui
je met a ce sendobjet une condition qui lui dit que si la date de la table date mail a plus de 7 jours il faut s'executer :

Code :

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

[Forms]![Accueil]![date]<Now()-7

je rajoute une seconde action afin de mettre a jour régulièrement la date de la table datemail ; je mets donc setvalue et je mets aussi la meme condition que pour sendobjet.
je ferme le tout
maintenant quand j'ouvre ma table , le form acceuil s'ouvre en 1 er comme avant ( on y voit la date de la table date mail , et si cette date a + de 7 jour , le mail est envoyée et la date est mise a jour automatiquement , sinon pas de mail et pas de mise a jour ....
voila , c cool.
petit rappel pour les sendobjet mail il faut installer le petit logiciel clickyes qui permet de répondre automatiquement a la demande d'envoi mail
Si vous traviller avec plusieurs postes il faut le mettre sur chaque poste ou alors les utilisateurs devront répondre après 5 s a yes ....

grand merci pour votre aide

[Jean-Philippe André]

si tu estimes qu'on a résolu ta problématique, pense à tagger la discussion