Macro pour envoi par courriel
Bonjour à tous, j'aime bien l'idée de pouvoir envoyer une feuille en format PDF par courriel. J'ai vérifié dans le 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. Si quelqu'un peut m'aider, j'apprécierais beaucoup.
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, le tout fait automatiquement. Les commandes sont enregistrées selon leur numéro. 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
Re-bonjour à tous, j'ai trouvé quelques façons sur le forum et google. Lorsque j'essaie d'inclure les codes que j'ai trouvé dans la macro, j'obtiens des messages d'erreur. Ou il manque un end sub ou un end with. Si je les ajoute, cela ne fonctionne pas plus. J'ai décidé d'inclure un fichier test afin que cela soit plus facile à comprendre. Le tout est fonctionnel avec des noms de clients et commandes fictifs. Merci à l'avance de votre aide.
Claude
Bonsoir à tous, finalement à force de recherches, d'essais infructueux et votre précieuse aide en me donnant diverses pistes, j'ai finalement obtenu ce que je voulais. Premièrement j'ai viré cutePDF et installé le complément office Save as PDF/XPS et j'ai adapté les lignes de codes pour mon usage et ça fonctionne très bien. Je partage les lignes de code que j'ai ajouté à ma macro, si cela peut servir à aider quelqu'un d'autre.
'exporter en format PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dossierSauvegarde & "\" & NomFichier & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'Démarrer Outlook automatiquement
Shell "C:\Program Files\Microsoft Office\Office12\Outlook.exe"
'envoyer fichier PDF par courriel
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = 'adresse destinataire
.Subject = ("Nouvelle commande") 'ici le sujet
.Body = 'ici le corps du mail
.Attachments.Add dossierSauvegarde & "\" & NomFichier & ".pdf" 'ici la pièce jointe
.Display '.Display /Send : Display correspond à l'affichage du message / Send demande un envoi direct
End With
Encore merci à tous,
Claude