Envoi d'un fichier via sendmail
#1
Régulier XLPages

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()
'
' Impression Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+I
'
    Range("B1:AG66").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Range("F7:N7").Select
End Sub
Ensuite, ce que je suis incapable de faire c'est :

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

 

Hors Ligne
Rapport   Haut 

Re: Envoi d'un fichier via sendmail
#2
Régulier XLPages

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()
Dim Dest As String, Sujet As String
 Sheets("Feuil4").Select 'Saisir le nom exact la feuille
 ActiveSheet.Copy 'crée une copie de la feuille active
 Dest = xxxxxx.xxx@xxx.xx 'Saisir l'adresse mail
 Sujet = "Envoi Test" 'mettre le sujet de l'envoi
 ActiveWorkbook.SendMail Dest, Sujet, True
 Application.DisplayAlerts = False
 ActiveWorkbook.Close 'ferme la copie de la feuille active
 Application.DisplayAlerts = True
End Sub

Hors Ligne
Rapport   Haut 

Re: Envoi d'un fichier via sendmail
#3
Webmestre

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 :

  1. Tu copies une feuille de calcul (ce qui crée automatiquement un nouveau classeur).
  2. Tu envoies ce nouveau classeur par mail.
  3. Tu fermes ensuite ce nouveau classeur.

 

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
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Envoi d'un fichier via sendmail
#4
Régulier XLPages

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 

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes