mail auto access

**Jean-Philippe André** · 14/04/2009, 16h53

Concernant le fichier batch, un lien pour un cours ici : http://windows.developpez.com/cours/ligne-commande/

serait-il possible que tu nous mette en lien totalité ou partie de ta base, pour qu'on puisse voir si le code de la macro est juste stp ?

**pascalblois** · 14/04/2009, 17h11

Pour la base pas facile , elle est énorme et beaucoup de tables , liens etc....

PAr contre la macro dans la base fonctionne bien , si je clic sur run " email"
mais si je lance avec ficheir bat ou vbs , cela ouvre la base sur le form mis par defaut en ouverture et puis plus rien ....

**Jean-Philippe André** · 14/04/2009, 17h18

c'est étonnant, chez moi en lancant une macro depuis mon code batch, j'ai bien mon formulaire de démarrage qui s'ouvre, mais ma macro est bien lancée elle aussi...

essaie de créer une macro "bidon" avec un MSgbox qui affiche quelque chose, voir si déjà la macro que tu veux manipuler se lance bien

**pascalblois** · 14/04/2009, 17h43

je veins de creer un base bidon et vide , juste avec une macro msgbox , et un fichier bat ; cela ouvre bien la base mais cela ne lance pas la macro , il y a donc un probleme sur la "config "de mon access ou sur le details du bat .

rmq : dans le C:\Program Files\Microsoft Office\office10\ je ne vois pas de ficheir MSaccess.exe
pourtant cela ouvre la base ....

**Jean-Philippe André** · 14/04/2009, 18h34

le fichier mdb est déjà relié à une version Access.

Quelle version d'OfficeXX as-tu dans le répertoire C:\Program Files\Microsoft Office ?

**pascalblois** · 15/04/2009, 09h47

Bonjour,
J'ai dans le C:\Program Files\Microsoft Office des dossiers allant jusqu'a office 12.( office , office 9, office 10 , office 11, office 12 )
mais je trouve MSaccess que dans C:\Program Files\Microsoft Office\Office.

et oui le ficheir mdb est relie par defaut a access2000 .

**Jean-Philippe André** · 15/04/2009, 09h59

dans ce cas, change
- soit la version d'access par défaut liée aux fichier smdb
- soit le path dans le fichier bat pour bien lancer msaccess.exe

**pascalblois** · 15/04/2009, 10h25

J'ai chercher sur le C:\Program Files\Microsoft Office ou se trouve le fichier msaccess.exe , je le trouve uniquement sur C:\Program Files\Microsoft Office\Office , j'ai donc mis ce lien dans le bat , mais j'ai toujours le meme probleme..
je fais refaire un search sur tous mon pc ( nb je suis au taf et tout est en reseau )

le bat ouvre bien la base access mais ne fais pas tourner la macro , et bien sur la base reste ouverte ainsi que le bat , qui lui se ferme quand je ferme la base ...

**pascalblois** · 15/04/2009, 10h41

j'ai trouve access 95 , mais quand le veut l'ouvrir cela me dit out of memory , alors je laisse tombe , l'option access 95.

j'ai regarde dans la config de mon access 2000 et je vois pas ce qui peut gener ..
quand je creer une macro dans access , je n'ai pas besoin de faire une conversion ou modif pour qu'elle fonctionne ? si je fais run dans access , elle fonctionne bien...

**Jean-Philippe André** · 15/04/2009, 11h02

OK,
autre approche :
utiliser une macro AutoExec,
=> test de l'existence d'un fichier sur le réseau, ou d'une valeur dans une table.
=> si valeur = valeur attendue alors lancer macro email
=> sinon ouvrir formulaire de démarrage comme si de rien n'était.

Il ne faudrait alors plus qu'ouvrir la base.

**pascalblois** · 15/04/2009, 11h10

Houla , pas facile

voyons comment je fais cela ...

arfff je ne sais pas faire

j'ai essayer en mettant une commande a la place de la demande de run macro ( cmd_"Coucou c'est moi" ) dans le ficheir bat et meme chose , il ne se passe rien .

**Jean-Philippe André** · 15/04/2009, 12h11

encore faut-il que l'information "coucou c'est moi" soit récupérée par ton appli Access...

As-tu déjà créé ta macro AutoExec ?

**pascalblois** · 15/04/2009, 12h13

Non , je sais pas comment on creer une macro auto exe

je rectifie , je viens de creer une macro AutoExec avec message box ,
cela fonctionne quand j'ouvre la base .

ET cela fonctionne avec ma macro d'envoi de mail .
PAr contre si je prends ce cas et non la gestion via tache planifié de window , comment je fais pour que l'autoExec ne se fasse que tous les 7 jours par ex ?

**Jean-Philippe André** · 15/04/2009, 13h25

Ton autoExec justement s'"autoexécute" à chaque ouverture de base.

Il faut donc que dans ton déroulement de macro, tu testes une valeur, comme évoqué dans nos premiers messages de cette discussion, sur la date de dernier envoi du mail

**pascalblois** · 15/04/2009, 13h57

Ok
donc dans la condition de mon auto exe je mets une condition du style :
Date()>[_PARAMS_]![valeur]

Quel est la bonne synthase ??
Et pour avoir un delai de 7 jours entre les deux envois je suppose que je doisle mettre dans la condition ?

Par contre pour que cette valeur soit mise a jour en auto je dois faire comment ? ?

**Jean-Philippe André** · 15/04/2009, 15h22

Comme déjà expliqué plus haut, il faut que tu stockes ta date dans une table, ce n'est ni complexe à mettre en place, ni fastidieux à mettre à jour

**pascalblois** · 15/04/2009, 16h57

Ok , j'ai donc ma table parametre avec une date comme explique au debut .
par contre je n'arrive pas a mettre la bonne condition pour mon autoexec et je ne trouve pas 'de code " pour mettre a jour cette date en auto .
Par ex apres chaque envoi de mail ou tous les jeudis ....

**Jean-Philippe André** · 15/04/2009, 17h18

Dans ta macro autoexec, demander à
ExécuterCode() et tu lances avec ceci ta procédure VBA.
Cette procédure VBA fera alors les tests en question, puis l'envoi du mail le cas échéant

**pascalblois** · 15/04/2009, 17h49

hummm
ma procedure vba ? la quelle celle qui est derriere le bouton du debut

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 Command75_Click()
On Error GoTo Err_Command75_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_Command75_Click:
    Exit Sub
 
Err_Command75_Click:
    MsgBox Err.Description
    Resume Exit_Command75_Click
 
End Sub

je n'arrive pas a mettre cette condition pour mon autoexe
si je fais executer code , il me demande une macro et j'ai pas de macro qui traite les 7jours comme dans la commande ci dessus

**Jean-Philippe André** · 15/04/2009, 17h54

On se rapproche du but :

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 Command75_Click()
On Error GoTo Err_Command75_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_Command75_Click:
    Exit Sub
 
Err_Command75_Click:
    MsgBox Err.Description
    Resume Exit_Command75_Click
 
End Sub

tu changes cette procédure avec un nom plus sexy
tu fais comme dans mon exemple ici :
http://jpcheck.developpez.com/tutori...metres/#LXII-B

mail auto access [AC-2000]

Access

Discussions similaires

Partager

Partager