Discussion :

[Jacques-Henri]

Bonjour,
Je suis devant une petite difficulté:
ma BDD me permet d'envoyer les états par mail avec pièce jointe mais avec prévisualisation. J'ai trouvé cette astuce dans FAQ
auteur : Christophe Warin
Exemple :

Code VBA :

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

1
2
3
4
5
 
DoCmd.OpenReport "repClient", acViewPreview, , "NumClient=2"
DoCmd.SendObject acSendReport, , _
        "PDF", "destinataire@fai.com", , , "Liste des clients", _
        "Veuillez trouver le détail du client n 2 en pièce-jointe."

Seulement ce que j'aimerais c'est envoyer sans prévisualisation et uniquement l'état du formulaire en cours. C'est ainsi que si je supprime la ligne Docmd.openReport... oui, ça marche mais j'envoie alors tous les états du "repClient" par ex. Comment faire pour y arriver.
Merci

[hajeahmad]

salut
change acpreview dans la ligne de commande

[mout1234]

Bonjour,

En regardant dans l'aide , tu verras que la fonction SendObject admet un paramètre EditMessage qu'il te suffit de mettre à False pour ne pas prévisualiser le message (tu auras alors la fenêtre de sécurité d'Outlook demandant confirmation).


Quant à limiter l'édition à la seule fiche correspondant à celle actuellement affichée dans ton formulaire, SendObject ne propose pas de condition where...

une solution serait d'adapter la source de ton état pour qu'il soit lié à ton formulaire... qq chose du genre

Code SQL :

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

1
2
 
SELECT ... FROM ... WHERE NumClient= Forms!MonFormulaire!NumClient

EDIT: j'ai lu un peu vite la solution proposée consistait si je comprends bien à ouvrir l'état en aperçu puis à exporter l'état en cours...

Ce que je te propose ici suppose de ne pas ouvrir l'état

Code VBA :

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

1
2
DoCmd.SendObject acSendReport,"NomduReport","PDF","toto@titi.fr", _
                  ,,"Liste des clients","veuillez ...",FALSE

[Jacques-Henri]

Tout d'abord merci pour vos réponses. Alors, pour reprendre: ce que je veux c'est d'envoyer sans prévisualisation.Donc pas d'aperçu.
Si je change acpreview, je l'avais fait mais , j'imprime quand même et j'envoie tous les états. Le résultat est d'ailleurs le même en supprimant la ligne précisée dans mon post.
Mais une piste , est celle proposée par Mout, ce serait d'adapter la source de l'état avec une requête select ...
Je planche ce WE et vous fais part du résultat

Merci

[hajeahmad]

re salut
(pb de clavier )excuses
pour continuer à previsualiser et rester simple
il suffit peut etre de rajouter une ligne de commande style

DoCmd.close acReport, "nom du rapport"
et le tour est joué. sauf si j'ai rien compris

[Jacques-Henri]

Bonsoir,
Compte tenu des réponses reçues, j'ai donc (re)travailler sur mon problème. Le fait est contrairement à ce que je pensais, la commande "select" n'a pas fonctionné, elle est même inutile comme ligne de commande.
Je l'avais placé en supprimant la ligne
DoCmd.OpenReport "repClient", acViewPreview, , "NumClient=2".Mais rien n'y changeait.Je me suis donc orienté vers la commande DoCmd.close acReport, "nom du rapport"
suggérée par hajeahmad et là je suis arrivé à quelque chose qui fonctionne. Je livre ainsi la solution à partir de l'exemple trouvé sur le forum:

Code :

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

1
2
3
4
DoCmd.OpenReport "repClient", acViewPreview, , "NumClient=2"
DoCmd.SendObject acSendReport, , _
        "PDF", "destinataire@fai.com", , , "Liste des clients", _
        "Veuillez trouver le détail du client n 2 en pièce-jointe."

DoCmd.OpenReport
Inutile d'ajouter "repClient".
Finalement, je transmets l'état en cours avec prévisualisation (impossible de l'éviter) mais dès que l'envoi est opéré sur clic, la fenêtre se ferme automatiquement et je reviens sur mon formulaire à partir duquel la commande s'est effectuée. Ma prévisualisation n'est plus, ce qui était le cas avant.
Merci à vous.

[Jonkill]

Bonjour

J'ai testé la même méthode mais le pdf en sortie est enorme 136ko contre 46ko si je le produit moi même via adobe acrobat, les boite email ne vont pas aimer !

[Jacques-Henri]

Bonsoir Jonkill,
Mille excuses mais je ne saisis pas bien ta question? Merci de reposter.

[Jonkill]

Je n'ai pas de question

Je remarque juste qu'il faut faire attention à la taille des fichiers pdf générés par autre chose que le vrai adobe acrobat.

[Jacques-Henri]

OK, très bien et merci pour cette précision.