Discussion :

[triistaan]

Bonjour,
Depuis deux jours je cherche désespérément à envoyer un état par mail au format PDF tout en modifiant sa légende, je m'explique :
J'ai un formulaire devis avec un bouton envoyer dans lequel j'ai ce code : DoCmd.SendObject acSendReport, "E_DevisClients", acFormatPDF, , , , "Suite à votre demande de devis", "Bonjour,"
Jusque là, pas de problème, ça fonctionne parfaitement.
Par contre la pièce jointe qui est crée dans le mail se nomme E_DevisClient, c'est normal puisque c'est le nom de l'état.
Mais ce que je cherche, c'est à modifier ce nom afin qu'il apparaisse comme ceci : Devis N°[N° du devis présent dans l'état].
J'ai en parti réussi car avec un code Me.Caption, j'ai réussi à faire ce que je voulais, c'est à dire modifier le nom de l'état, mais le problème c'est que lorsque je clique sur mon bouton envoyer, il ne prend pas ce nom mais reprend E_DevisClients.

J'espère vraiment que vous pourrez m'aider.
Je vous remercie.

[ClaudeLELOUP]

Bonjour,

Disposes-tu de PDFCreator ?

Il te permettrait de créer ton état sous la forme d'un fichier pdf.
Ensuite, on renomme le fichier comme on l'entend et finalement on l'envoie attaché à un e-mail.

[triistaan]

Bonjour, merci pour ta réponse,
je dispose bein de PDF Creator mais je préférais utiliser mon code pour la simple et bonne raison que je peux prédéfinir, le destinataire, l'objet et le texte.

[ClaudeLELOUP]

Ça ne change rien à l'affaire !

[triistaan]

C'est à dire ?

[ClaudeLELOUP]

... que rien ne t'empêche

- de créer ton Etat en l'imprimant en pdf ;
- de renommer le fichier ;
- de formater les éléments d'un e-mail ;
- et d'envoyer celui-ci avec le fichier en pièce jointe.

[triistaan]

Ah oui d'accord, mais toujours dans un souci d'efficacité, je trouvais plus simple d'utiliser mon code car un seul clique suffisait afin d'envoyer le devis

[ClaudeLELOUP]

Tout ce que je te propose dans mon billet précédent est inclus dans un clic !

Mais je n'insiste pas !

[triistaan]

Ah pardon, excuses moi je n'avais pas compris cela, peux-tu s'il te plait développer un peu plus sur la procédure à suivre pour mettre en œuvre ce que tu dis ?

[ClaudeLELOUP]

Il me faut un peu de temps pour cela. Je reviens dans quelque temps... si tu n'as pas d'autre solution d'ici là.

[triistaan]

Je te remercie pour l'intérêt que tu portes à ma demande, je ne pense pas trouver d'autres solutions car cela fait 2 jours que je cherche et je suis toujours bloqué.
J'attends donc ton aide avec impatience.
Merci.

[Invité]

Bonjour à tous
Peut être une solution en fin de discussion ici:
http://www.developpez.net/forums/d12...vant-contexte/

[ClaudeLELOUP]

Bonjour,

Merci Jean-Damien pour le lien, mais avec Access2000, cette syntaxe n'est pas permise.

Voici ce que j'utilise avec Access2000 : http://claudeleloup.developpez.com/t...plic-ploc/#LVI

[Invité]

Bonjour,

Merci Jean-Damien pour le lien, mais avec Access2000, cette syntaxe n'est pas permise.

Bonjour Claude
Exact mais je ne vois nulle part que Triistaan ait spécifié une version 2000......
Cela permet de souligner, une fois de plus, la nécessité de mentionner la version utilisée.

[triistaan]

Bonjour, merci de vos réponses, c'est vrai que je n'ai pas spécifié, j'utilise access 2007.
Je vais essayer vos deux solutions,
Pour la tienne Claude, y-a-t-il moyen de spécifié un dossier d'enregistrement seulement pour la base access car j'utilise pdf Creator pour d'autres choses (word, excel...) et je voudrais que les états access s'enregistrent dans un autre dossier que les autres.

[ClaudeLELOUP]

... y a-t-il moyen de spécifier un dossier d'enregistrement seulement pour la base Access, car j'utilise pdf Creator pour d'autres choses (Word, Excel...) et je voudrais que les états Access s'enregistrent dans un autre dossier que les autres.

J'ignore s'il y a moyen de changer les paramètres de PDFCreator par programmation. Si je trouve, je reviendrai le signaler ici.

[triistaan]

J'ai réussi, voici le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande80_Click()
 
Dim stDocName As String
    stDocName = "Devis N°" & Forms![S/F_Devis]![N°Devis]
 
DoCmd.CopyObject , stDocName, acReport, "E_DevisClients"
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, Forms![F_ClientsFactures]![Email], , , "Suite à votre demande de devis", "Bonjour ..."
DoCmd.DeleteObject acReport, stDocName
 
End Sub

Pour expliquer très rapidement : Lorsque je clique sur le bouton 80, il enregistre l'état sous le nom "Devis + [n°devis]", il ouvre le mail avec les infos déjà saisie comme l'objet, le destinataire et le texte ainsi que la pièce jointe, une fois que cela est fait, il supprime l'état qu'il a crée et voila.

J'espère que ça pourra aider d'autres personnes.