Envoi d'une selection de cellules par mail

maya -
fabidou49 - 24 mars 2013 à 14:52

Bonjour,

J'ai sous Excel 2010 une feuille de calcul avec des colonnes de « A » à « BC » et des lignes de « 1 » à « 100 », je voudrais envoyer par mail uniquement la sélection suivante : $A$3 :$AA$55.
si j'utilise l'option définir zone d'impression et que j'envoie le fichier par mail, le destinataire reçoit la totalité de la feuille au lieu de la sélection.
Je suis novice en VBA quelqu'un aurait-il un code pour faire cela à partir d'un bouton ?
Merci d'avance

Afficher la suite

Répondre (27)

A voir également:

Envoyer plage de cellules par mail vba
Mail delivery system - Astuces et Solutions
Gmail envoyer un mail - Guide
Messenger impossible d'envoyer en jaune - Forum Facebook Messenger
Windows live mail - Télécharger - Mail
Formule excel pour additionner plusieurs cellules - Guide

27 réponses

Réponse 1 / 27

maya

Bonjour Mike_31
merci pour ta réponce
mon onglet s'appelle "FORMULAIRE"
en fait ce classeur comporte un modele pour les personnes qui doivent le remplir, et ne me renvoi par mail que la partie remplie.

Réponse 2 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Salut,

ce n'est pas un problème, tu peux envoyer la plage que tu souhaites sans passer par ta messagerie, directement en CDO.
Mais avec un code VBA il faut être précis. Tu veux envoyer la plage $A$3 :$AA$55 mais de quel onglet, l'onglet actif ou lequel et comment se nomme t il

et en extension XLS, XLSX ou en PDF ce qui offre plus de sécurité et limite les problèmes liés à la possession d' Excel et de ses versions

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Réponse 3 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Je ne t'oublie pas, je te fais un exemple envoi PDF et XLS dans la soirée

Réponse 4 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

teste ce fichier

https://www.cjoint.com/?BJsxn5JSAcU

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonsoir à tous,
salut mike,

J'ai voulu regarder ton fichier. Sur 2003 j'ai 'variable inconnue' pour xlExcel8 dans :
ActiveWorkbook.SaveAs chemin & "\" & nom, FileFormat:=xlExcel8

Sur 2003, dans la série des xlExcelx on n'a droit qu'à :
xlExcel2
xlExcel3
xlExcel4Workbook
xlExcel5
xlExcel7
xlExcel9795

Bonne soirée
eric

maya

Salut Mike
Merci de pour ton temps passé,
J'ai essayé le fichier,
Il boque sur:
ActiveWorkbook.SaveAs chemin & "\" & nom, FileFormat:=xlExcel8 ' ou adresse si le nom est dans une cellule Range("E2").Value & ".xls"
Pourquoi tu me parle de la cellule "E2"
Répond quand tu peux,

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Je l'ai écrit sur Excel 2007 et il fonctionne parfaitement.
Suite à la remarque de Eriiic que je salue je revois le code pour tester les versions Excel.
Je posterais un fichier en début d'après midi que tu pourras tester sur Excel 2010 et Eriiic sur 2003

Réponse 6 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

En début de code renseigner les constantes adresse destinataire, SMPT et éventuellement Adresse expéditeur

Const Dest As Variant = "wwwwwwwwwww@free.fr"
Const C_Ent As Variant = "SMTP.free.fr"

Const Exped As Variant = "www.xxxxxxx@free.fr"

https://www.cjoint.com/?BJtl3GkxOPr

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Re,

hé bé, tu as blindé la partie type de fichier ;-)
Très bel exemple pour les envois par mail, je me permet de le garder de coté si tu veux bien...
eric

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Attend un peu je n'ai pas contrôlé le code dans le détail, il y a certainement possibilité de l'alléger, je regarderais ça dans la soirée.
Il serait intéressant qu'un Suisse à l'écoute le teste et fasse remonter ses observations, certain de leurs fournisseurs d'accès demande des authentifications, dans ce cas il faut ajouter deux lignes au code.
L'envoi en CDO est intéressant vu qu'il n'utilise aucune messagerie et depuis que Microsoft ne fourni plus Outlook dans sa suite familiale c'est une parade et de plus passe partout

Cordialement

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

sans compter les pb (de DDe ou OLE, que sais-je ? chose que je rencontre souvent) pour envoyer à outlook...

Réponse 7 / 27

maya

RE.
Bon, les gars et bien le problème s'est moi....

Message en exécution

« Microsoft Excel
Le message n'a pas pu etre envoyé vers les serveur SMTP. Le code d'erreur de transport était 0x80040217. La réponse de serveur était not available. »

sans abuser, y a t'il une possibilité d'ouvrir directement Outloock

@+ maya

Réponse 8 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Je te signale que le code à évolué grâce au échanges avec Eriiic et par la même résous tes problèmes.
Pour ma part il y a longtemps que j'ai abandonné Outlook

As-tu bien renseigné les constantes en début de code (adresse mail, smtp)

Quel est ton fournisseur d'accès internet

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Réponse 9 / 27

maya

oui j'ai bien renseigner les adresses mail et le smtp, mon fournisseur d'accès et Orange
merci quand même
@+

Réponse 10 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Cette constante tu l'as bien saisie comme cela avec les guillemets

Const C_Ent As Variant = "SMTP.orange.fr"

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Réponse 11 / 27

maya

oui
@+

Réponse 12 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Tu utilises bien mon fichier exemple sur lequel tu as saisi l'adresse mail et le smtp

Const Dest As Variant = "wwwwwwwwwww@free.fr"
Const C_Ent As Variant = "SMTP.orange.fr"

Réponse 13 / 27

maya

re
oui, je l'ai enregistré sur mon disque dur, j'ai bien remplacé se que dit m'a en respectant la casse
maintemant dans outlook j'ai des informations utilisateur: avec un utilsateur avec un mot de passe pour la connexion au serveur d'orange (Oleane VPN)
@+

Réponse 14 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Bizarre parce que ce procédé n'utilise aucune messagerie, on sort directement avec le fournisseur d'accès.
par contre si tu veux utiliser Outlook j'ai des codes que je ne peux pas tester

redémarre ton ordi pour voir.

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

maya

le redemarage ne change rien, pour info je suis sous windows 7
@+

Réponse 15 / 27

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Re,

Je viens de retester plus complètement (sur orange) et c'est ok.

A noter qu'il faut compléter/modifier ces lignes :
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
Mike, tu pourrais les remonter (et les 3 autres) en constantes en haut du code.
Il faut peut-être garder séparés Exped et sendusername ? (en cas d'utilisation du smtp d'un autre opérateur)

Param pour Oléane :
smtp par: smtp.msa.orange-business.com
port smtp : 587

Sinon il reste la possibilité d'utiliser le smtp d'un autre opérateur, en mettant sa vraie adresse email pour la réponse.
J'ai voulu tester avec gmail (SMTP.gmail.com, port 587) mais je me fais jeter :
"...Must issue STARTTLS command first..."
Mike, si tu as rencontré comment activer ce TLS au cours de tes pérégrinations (?)

eric

PS: au passage j'ai trouvé ça qui pourra servir :
The reply email address : .item(http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress) = ""

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

Réponse 16 / 27

maya

re
en entrant les parametres du compte en dur çà fonctionne
Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxx@xxxxxxxxxxx"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yyyyyyy"

merci à vous deux, passez un bon week-end.

Réponse 17 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

ces deux lignes gèrent les authentifications de connexion
cette ligne
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Nom utilisateur messagerie"
cette ligne
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mot de passe"

cela rejoint ma question sur les connexions sécurisées notamment en Suisse ou sur certains serveurs
Dans le cas contraire, ces deux lignes peuvent être supprimées

Pour répondre à Eriiic oui on peut tout remonter en constante cela facilite les modifications, c'est pour cela que je disais d'attendre afin que je trouve le temps de compléter le code.

la ligne que tu proposes
.item(http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress) = ""
en fait je l'ai oubliée, je l'ai traitée en constante et pas placée dans la série des Items
Const Exped As Variant = "www.xxxxxxx@free.fr" '----- adresse mail de l'expéditeur
Erreur de ma part, il aurait été dommage qu'elle soit absente du code Merci pour cette remarque

J'ai à plusieurs reprises proposé ce code sur ce forum qu'il est possible de retrouver mais je passe le statut de cette discussion en résolu de sorte qu'elle serve de référence, dans les prochains jours j'en ferai une astuce
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Réponse 18 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

voila le code complet annoté

Option Explicit

Sub Envoi_Mail ()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb, Destwb As Workbook
Dim TempFilePath, TempFileName As String
Dim Wb, iMsg, iConf As Object
Dim Flds As Variant
'--------------------------- Constante à renseigner
Const Feuille As Variant = "FORMULAIRE" '------------- nom de la feuille à copier
Const Plage As Variant = "A1:H10" '------------------- plage à copier
Const Dest As Variant = "michel.wwwwwwwwww@free.fr" '- adresse mail du destinataire
Const Exped As Variant = "www.xxxxxxx@free.fr" '------ adresse mail de réponse de l'expéditeur
Const C_Ent As Variant = "SMTP.free.fr" '------------- adresse du SMTP"
Const CC As Variant = "" '---------------------------- adresse mail CC
Const BCC As Variant = "" '--------------------------- adresse mail destinataire pour envoi BCC ou BCI ou CCI
Const NumPort As Variant = 25 '----------------------- n° port du serveur sortant
'--------------------------- Si la connexion nécessite une authentification
Const N_Messag As Variant = "Nom utilisateur messagerie"
Const Pass As Variant = "motdepasse"

On Error GoTo errorHandler
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sourcewb = ActiveWorkbook
Set Destwb = Workbooks.Add
Sourcewb.Sheets(Feuille).Range(Plage).Copy Destwb.ActiveSheet.Range("A1")
'--------------------------- Déterminer la version d'Excel et d'extension du fichier utilisé
With Destwb
If Val(Application.Version) < 12 Then
'--------------------------- Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'--------------------------- Excel 2007-2010
If Sourcewb.Name = .Name Then
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox "Votre réponse est NON dans la boîte de dialogue de sécurité"
Exit Sub
Else
Select Case Sourcewb.FileFormat
Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If .HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56: FileExtStr = ".xls": FileFormatNum = 56
Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
End If
End With
TempFilePath = Environ$("temp") & "\"
'-------------------------- Nom du classeur expédié avec jour et heure d'envoi
TempFileName = Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")
With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
.Close savechanges:=False
End With
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 '--------- CDO Source Default
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = C_Ent '"smtp.free.fr" '"Saisir le SMTP du serveur sortant"
.Item("http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress") = Exped '"adresse email de réponse expéditeur"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = NumPort '25 'n° port du serveur sortant

'--------------------------- Si la connexion nécessite une authentification libérer les 3 lignes
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
'ou
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = N_Messag 'ou "Nom utilisateur messagerie"
' .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Pass 'ou "motdepasse"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = Dest
.CC = CC
.BCC = BCC
.From = Exped
.Subject = [C1].Value
.TextBody = "Bonjour" & " " & [C2].Value & "," & vbCrLf & vbCrLf _
& "Veuillez trouvez ci-joint le " & [C3].Value & "." & vbCrLf & vbCrLf _
& [C4].Value & vbCrLf _
& [C5].Value & vbCrLf _
& [C6].Value & vbCrLf _
& [C7].Value & vbCrLf _
& [C8].Value & vbCrLf _
& [C9].Value & vbCrLf _
& [C10].Value & vbCrLf & vbCrLf _
& [C11]
.AddAttachment TempFilePath & TempFileName & FileExtStr
.Send
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox "Le mail a été bien envoyé !" '---------- Confirmation de l'envoi
Exit Sub
'--------------------------- Si erreur on sort de la procédure
errorHandler:
'--------------------------- Description de l'erreur survenue
MsgBox Err.Description
'--------------------------- Si erreur ferme la copie temporaire
For Each Wb In Workbooks
If Left(Wb.Name, 1) <> "Claseur" And Wb.Name <> ThisWorkbook.Name Then
Wb.Close
End If
Next Wb
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Re,

pas le temps ce soir mais demain j'essaierai de trouver le temps de tester avec un compte gmail qui réclame qcq chose de plus : activer le TSL (?)

Par contre j'aime bien la précision ;-)
Si en commentaire de Const Exped tu pouvais mettre :
adresse mail de réponse de l'expéditeur

Et poster un coup ici lorsque tu auras rédiger l'astuce stp.

Bonne soirée
eric

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Salut Eriiic

As tu testé le code avec gmail, si oui qu'elles sont tes observations

cordialement
bon week end

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonsoir mike,

Oupsss, j'avais oublié..

Bon alors après qcq recherches le CDO ne reconnait pas le TSL, mais gmail travaille également en SSL sur le port 465.

Et là bingo avec donc :
serveur smtp : SMTP.gmail.com
smtpserverport = 465
et ajouter :

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

Laisser à false pour les autres fournisseurs ne travaillant pas en SSL.
J'imagine bien une petite constante au début : smtpusessl= False ;-)
avec un petit commentaire disant de mettre à true pour les serveurs gmail (hotmail aussi apparement, mais je n'ai pas de compte pour tester)

A+
eric

Réponse 19 / 27

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

J'ai rajouté de de réponse

j'ai également pensé, si la plage à copier contient des liaisons avec des cellules hors plage copiée ou autre feuille

il faudra remplacer cette ligne
Sourcewb.Sheets(Feuille).Range(Plage).Copy Destwb.ActiveSheet.Range("A1")
qui peut s'écrire
Sourcewb.Sheets(Feuille).Range(Plage).Copy Destwb.ActiveSheet.[A1]

par, pour coller uniquement les valeurs
Sourcewb.Sheets(Feuille).Range(Plage).Copy
Destwb.ActiveSheet.[A1].PasteSpecial Paste:=xlPasteValues

éventuellement rajouter cette ligne si l'on veut coller les formats
Destwb.ActiveSheet.[A1].PasteSpecial Paste:=xlPasteFormats

et rajouter cette ligne pour désactiver le masque du collage, plus agréable à la réception
Destwb.ActiveSheet.[A1].Select
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Réponse 20 / 27

maya

Salut les gars , j'espère que vous avez passé un bon week_end;

après toutes les modifications celà fonctionne, à un détail prés c'est que la copie ne garde pas la mise en page, y a t'il une possibilité de corriger celà

@+ et encore merci
maya

Répondre Posez votre question

Votre réponse

Discussions similaires

erreur d'execution 9, l'indice n'appartient pas à la sélection

isidoh -
isidoh -

18 réponses

vba recherchev : syntaxe pas bonne?

chrisdemontigny -
chrisdemontigny -

37 réponses

Comment apprendre le VBA en partant de 0

E-D -
Kanonyma -

3 réponses

VBA: remplir combobox à partir d'une colonne

alena20 -
alena20 -

11 réponses

Afficher une msgbox si valeur dans une cellule

myke59 -
myke59 -

5 réponses

incrémentat° de la transposition des colonnes en ligne avec VBA

bitbit -
bitbit -

6 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire