VBA envoyer un onglet par mail

[Arpette]

Bonjour à toutes et à tous,
Je souhaiterais avec click un l'onglet ou un bouton, ouvrir ma boite mail et que ça me rattache cet onglet. J'ai trouvé un code qui envoi un mail et l'onglet, mais le problème est que l'adresse est dans le code, donc toujours la même. Moi je veux ouvir ma boite mail.
Merci de votre aide.
@+

 

[Guest]

Re : VBA envoyer un onglet par mail

Bonjour,

Il y a plein de codes à ce sujet sur le forum. Une recherche un peu sérieuse te donnera satisfaction.

A+

 

[Arpette]

Re : VBA envoyer un onglet par mail

Bonsoir à tous,
j'ai suivi le conseil d'Hasco, je n'ai pas trouvé ce que je voulais, mais j'ai détourné le problème en m'envoyant le mail à ma propre adresse et ensuite je le fais suivre à qui je veux.
Mon deuxième problème, quand j'envoie la feuille active, je souhaiterais quelle contienne aucune macro. Voici mon code
Merci de votre aide
@+

Sub envoiMailEtFeuilleActive()
    ActiveSheet.Copy ' crée une copie de la feuille active
    Application.ActivateMicrosoftApp (xlMicrosoftMail)
    ActiveWorkbook.SendMail Recipients:="arpette@free.fr", Subject:="Devis" 'envoi Mail
    Application.DisplayAlerts = False
    ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
    Application.DisplayAlerts = True
End Sub

 

[Arpette]

Re : VBA envoyer un onglet par mail

Rebonsoir, je vois que ce n'est pas facile ou impossible. Moi je pense que c'est possible, je vais faire un petit dodo.... peut-être que demain matin, j'aurais trouvé une solution à mon problème...
Bonne nuit les petits...

 

[Victor21]

Re : VBA envoyer un onglet par mail

Bonsoir, Arpette

Ce code sauvegarde une feuille en format .txt :

Sub SauveEnTexte()
    'Enregistre Saisies en .xls sous format texte dans un sous-répertoire "Sauvegardes"

    Application.ScreenUpdating = False
    Sheets("Saisies").Select
    Sheets("Saisies").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
                                    ThisWorkbook.Path & "\Sauvegardes\" & [I1] & ".xls", _
                          FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Les données ont été sauvegardées.", , "PB...                   Sauvegarde"
End Sub

Peut-être pouvez-vous vous en inspirer pour l'inclure dans votre code avant Application.Activate.
A voir s'il y a un XlFileFormat qui conviendrait, parce que xlText ne conservera pas les mises en forme.
Créer auparavant un sous-répertoire "Sauvegardes" dans le répertoire où se trouve votre fichier.

 

[Arpette]

Re : VBA envoyer un onglet par mail

Bonsoir Patrick, je viens de rentrer du boulot, je regarde ça demain.
Merci pour ton aide
@+

 

[Arpette]

Re : VBA envoyer un onglet par mail

Bonsoir à tous, j'ai essayé d'imbriquer le code de Patrick, mais ça ne fonctionne pas.
Quelqu'un aurait-il une solution pour supprimer le code VB qui se trouve dans ma feuille rattachée.
Merci pour votre aide.
@+

 

[kiki29]

Re : VBA envoyer un onglet par mail

Salut, via Google
ou aussi également Example Code for sending mail from Excel

sinon un bout de code minimaliste

Option Explicit

Sub Envoi_CDO()
Dim CdoMessage As Object
Dim Fichier As String
    Fichier = ThisWorkbook.Path & "\" & "Essai.pdf"
    Set CdoMessage = CreateObject("CDO.Message" )
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx.fr"
        .To = "yyyyy.fr"
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
   
    Set CdoMessage = Nothing
   
End Sub

 

[Arpette]

Re : VBA envoyer un onglet par mail

Bonsoir Kiki, merci pour ton code mais j'ai écrit comme ceci, ça fonctionne. Mon problème est que souhaiterais supprmer dans le fichier attaché le bouton qui lance le module. Si tu as une idée
Merci de ton aide.
@+

Sub EnvoiFeuilleMail()
  'copie la feuille active
    ActiveSheet.Copy
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
      With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
      .DeleteLines 1, .CountOfLines
      End With
    Application.DisplayAlerts = True
    'Envoi le classeur créé par mail
    ActiveWorkbook.SendMail "arpette@free.fr", "Devis "
    'Ferme sans sauver
    ActiveWorkbook.Close False
End Sub

 

[DoubleZero]

Re : VBA envoyer un onglet par mail

Bonjour Arpette, le Fil, le Forum,

Ci-après, une suggestion (fichier élaboré par... BOISGONTIER ).

 

[kiki29]

Re : VBA envoyer un onglet par mail

Salut à tous,voir sur Example Code for sending mail from Excel

Sinon qqch comme

ActiveSheet.Shapes("NomDuBouton").Delete

 

[Arpette]

Re : VBA envoyer un onglet par mail

Bonsoir DoubleZero, merci pour le code mais je préfère garder le mien, il s'adapte à n'importe quelle messagerie. Je souhaite supprimer le bouton.
Merci de ton aide.
@+

 

[Arpette]

Re : VBA envoyer un onglet par mail

Merci kiki, je vais regarder tout ça, ça a l'air interessant.
@+

 

[Arpette]

Re : VBA envoyer un onglet par mail

Re, merci kiki ça fonctionne je n'ai plus bouton dans mon mail et plus de macro. Maintenant je souhaiterais à l'envoi du mail, au lieu d'avoir classeur??.xls avoir le non de ma feuille ex evis.xls ou Facture.xls.
Merci de ton aide.
@+

Sub EnvoiFeuilleMail()
Application.ScreenUpdating = False
  'copie la feuille active
    ActiveSheet.Copy
    'supprime le bouton
    ActiveSheet.Shapes("Bouton 12").Delete
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells(21, 1).Select
      With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
      .DeleteLines 1, .CountOfLines
      End With
    Application.DisplayAlerts = True
    'Envoi le classeur créé par mail
[COLOR="red"]'C'est comme ici je souhaiterais choisir si il s'agit d'une facture ou d'un devis    [/COLOR]
ActiveWorkbook.SendMail "arpette@free.fr", "Devis "
    'Ferme sans sauver
    ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub

 

[kiki29]

Re : VBA envoyer un onglet par mail

Re,un essai vite fait via une UserForm à toi de l'adapter à ton contexte
sinon on pourrait passer par une MsgBox , mais la personnalisation n'est pas permise, à toi de voir