Envoi d'un fichier via sendmail | ||
---|---|---|
Inscription: 30/08/2010
Messages:
53
Système d'exploitation: PC - MAC Version Excel utilisée: Excel 2003.2007.2010 |
Posté le : 23-03-2016 16h22
Bonjour, à toutes et tous,
Voilà ma question. J'ai dans un fichier excel un onglet dont je voudrais automatiser deux opérations. Le première est de transformer par un boutons le document contenenu dans l'onglet en PDF. Pour cela j'ai fait, avec ma petite connaissance une petite Macro : ~~Sub Impression() d'envoyer à partir du même bouton et en automatique ce document en pièce jointe par mail (OUTLOOK) Vous m'avez déjà beaucoup aidé sur des formules dont je n'ai de cesse et grace à vous d'utiliser ! C'est donc pour cette raison que très naturellement je vous sollicite !!! Bonne fin de journée.
Alain
|
|
|
Re: Envoi d'un fichier via sendmail | ||
---|---|---|
Inscription: 30/08/2010
Messages:
53
Système d'exploitation: PC - MAC Version Excel utilisée: Excel 2003.2007.2010 |
Posté le : 31-03-2016 14h52
Je pense avoir trouvé ! Mais les 3 dernières lignes de commande ne sont pas prise en compte dans la macro Et je n'arrive pas à faire en sorte qu'elles soient actives. Est-ce que quelqu'un pourrait m'aider ? Merci à vous !!!
Sub Envoi() |
|
|
Re: Envoi d'un fichier via sendmail | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 03-04-2016 18h09
Bonjour zorbrax, le Forum,
Ce code fait parfaitement son travail (y compris les 3 dernières lignes !).
Je résume le déroulement de ton code :
J'ai testé et ton code fait correctement son travail, sans problème.
Je me permets simplement de te proposer ces quelques lignes à peine simplifiées, en lieu et place (ça ne change rien au déroulement attendu) : Sub Envoi() Dim Dest As String, Sujet As String Sheets("Feuil4").Copy 'Saisir le nom exact la feuille à copier Dest = "xxxxxx.xxx@xxx.xx" 'Saisir l'adresse mail Sujet = "Envoi Test" 'mettre le sujet de l'envoi With ActiveWorkbook .SendMail Dest, Sujet, True .Close SaveChanges:=False 'ferme LA COPIE de la feuille End With End Sub Bien cordialement,
Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Envoi d'un fichier via sendmail | ||
---|---|---|
Inscription: 30/08/2010
Messages:
53
Système d'exploitation: PC - MAC Version Excel utilisée: Excel 2003.2007.2010 |
Posté le : 05-04-2016 15h17
Bonjour Didier !
Merci de ces ajustements et de m'avoir rassuré sur le fait que tout est OK. C'est toujours un plaisir, de vous lire.
Bien cordialement
Alain |
|
|