Discussion :

[Klode784]

Bonjour à tous, j'aime bien l'idée de pouvoir envoyer une feuille en format PDF par courriel. J'ai vérifié dans différents forum quelques discussions sur le sujet, mais je n'ai rien trouvé qui puisse faire ce dont j'ai besoin, ou je ne sais pas comment modifier le code pour que cela fonctionne.

J'ai un classeur qui me permet d'enregistrer des commandes de transport. En cliquant sur un bouton pour créer la commande, elle s'imprime en format PDF, est enregistrée en format xls dans un répertoire où figurent les autres commandes et une inscription est faite dans le calendrier Outlook. Les commandes sont enregistrées selon leur numéro et le nom du client. Bien sûr, chaque commande a un numéro différent.

Comment faire pour envoyer une copie de cette commande format PDF par courriel automatiquement à sa création?

Merci pour votre aide,

Claude

[casefayere]

Bonsoir,
j'ai élagué ce code que tu peux adapter, si tu bloques sur la ligne en rouge vérifie que tu as le complément pour imprimer en PDF (sur excel 2007)

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
28
Sub suite_imp()
Dim nom As String, ol As New Outlook.Application
Dim olmail As MailItem, admail As String
'ci-dessous, on prend les mails dans une feuille
derlg = Sheets("mails").Range("a" & Sheets("mails").Rows.Count).End(xlUp).Row
Sheets("ta feuille à envoyer").select
Sheets("ta feuille avec zone d'impression définie éventuellement").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   "C:\ton chemin complet & nom de la feuille sans extension", Quality:= _
   xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
   OpenAfterPublish:=False
nom = "C:\ton chemin complet & nom de la feuille sans extension" & ".pdf"
messmail = "ton texte dans le mail"
For i = 2 To derlg 'boucle du début à la fin de ta colonne des adresses mail
   admail = admail & Sheets("mails").Range("a" & i)
   If i = derlg Then Exit For
   admail = admail & "; "
Next i
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
   .To = admail
   .Subject = "objet du mail" 'Sujet
   .Body = messmail 'Corps du mail
   .Attachments.Add nom
    End If
    .Display '.Send     'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub

Bonne soirée

[Klode784]

Bonsoir et merci pour ton aide, quelques points:

Pourquoi faut-il le complément pour imprimer en PDF sur Excel? J'utilise déjà CutePDF qui imprime mon fichier xlsm en format PDF avec une macro.

Le nom de la feuille imprimée est sous la forme 100100 - Nom du client. À chaque commande, le numéro et le nom du client est différent.

Je dois toujours envoyer le document en PDF à la même personne par e-mail.

J'ai essayé d'inclure une copie de mon classeur, mais le format xlsm n'est pas autorisé sur ce forum, cela aurait été plus facile pour visualiser ce que je fais déjà avec mon classeur...

Merci,

Claude

[kiki29]

Salut,à partir d'Excel 2007 SP2 l'enregistrement en Pdf est inclus en natif,il n'y a plus lieu d'ajouter un complément ou d'utiliser un utilitaire extérieur

[casefayere]

Bonjour le forum, kiki29, Klode784

Je dois toujours envoyer le document en PDF à la même personne par e-mail.

il suffir d'adapter ma proposition

J'ai essayé d'inclure une copie de mon classeur, mais le format xlsm n'est pas autorisé sur ce forum, cela aurait été plus facile pour visualiser ce que je fais déjà avec mon classeur...

tu l'envoies en zip

Bonne journée

[Klode784]

Bonjour kiki29 et casefayere,

Merci pour vos réponses. Je vais donc installer le complément pour PDF. J'ai regardé vos statuts de membre et je suis très impressionné! En ce qui me concerne, je suis membre nul!!! J'aurais dû y penser d'envoyer mon classeur en format zip.

Je joins donc une copie de mon classeur. Je vous avise que je ne l'ai pas monté seul, comme je l'ai dit je suis nul. J'ai eu beaucoup d'aide et j'ai ajusté certaines choses par moi-même. J'en suis à mes premières armes en VBA. Je peux dire que je me débrouille un peu...

Encore merci de bien vouloir m'aider,

Claude