Mail: selection feuille active

Bonjour,

je cherche a envoyer un mail avec le contenu d'un filtre dans le coprs du message; j'arrive a le faire par contre j'envoie les colonnes A à F mais je voudrais exclure la colonne E?

J'ai essayé en masquant la colonne mais ça me l'envoie quand même dans le corps du mail. comme puis je faire svp

'Mise en place d'un filtres sur le fichier PlanningJournalier
        'Choix du Filtre
    Windows("test.xlsm").Selection.AutoFilter Field:=2, Criteria1:= _
        "coucou"
'Selectionne la plage de cellules à envoyer
    ActiveSheet.Range("A1:F49").Select
'Envoie seulement la feuille visible
   ActiveWorkbook.EnvelopeVisible = True
'Supprime les anciens destinataire
        For CP = ActiveSheet.MailEnvelope.Item.Recipients.Count To 1 Step -1
        ActiveSheet.MailEnvelope.Item.Recipients(CP).Delete
        Next CP
'Envoie le mail
   With ActiveSheet.MailEnvelope
      .Introduction = ("Blabla")
      .Item.Recipients.Add "TestMailRichard"    'groupe denvoie
      .Item.Subject = "Sujet"
      .Item.display
      .Item.Send
   End With

Bonjour Miniz, le forum,

j'envoie les colonnes A à F mais je voudrais exclure la colonne E?

Remplace

ActiveSheet.Range("A1:F49").Select

par

ActiveSheet.Range("A1:D49,F1:F49").Select

Cordialement,

Merci xorsankukai,

je test lundi...

A+

xorsankukai a écrit :

Bonjour Miniz, le forum,

j'envoie les colonnes A à F mais je voudrais exclure la colonne E?

Remplace

ActiveSheet.Range("A1:F49").Select

par

ActiveSheet.Range("A1:D49,F1:F49").Select

Cordialement,

Je viens de tester mais cela ne marche pas

Bonsoir Miniz,

C'est au niveau de la sélection des données que cela ne fonctionne pas ?

Cordialement,