Macro envoi mail, c'est presque bon

[Christian]

Bonjour à tout le forum,

Pourriez-vous m'aider à finaliser cette macro qui permet d'envoyer un mail...

fichier joint(plus simple)

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian. [file name=CommandesCourriel.zip size=39775]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CommandesCourriel.zip[/file]

 

[MichelXld]

bonjour Christian

tu peux essayer cette adaptation pour completer le nom du destinataire

.SendMail Recipients:=ThisWorkbook.Sheets('Bon commande').Range('S2'), _
Subject:='Commande Centre de santé'


bonne journée
MichelXld

 

[Christian]

Re le forum, Michel Xld,

Merci Michel pour tes lignes VBA, c'est impec l'envoi se fait directement.

As-tu un idée concernant le format contour des cellules en effet le fichier envoyé ne contient aucune 'bordures cellules' ?.

Merci encore pour ton intervention.

à+
Christian

 

[MichelXld]

rebonjour Christian

Remplace la ligne

.Cells.Clear

par

.Cells.ClearContents



bon apres midi
MichelXld

 

[JCGL]

Bonsoir Christian ,MichelXLD, le Forum

Il me semble que tu sélectionnes :

Plage = Worksheets('Bon commande').Range('A1:K42')

Ton adresse Courriel est en S2 donc exclu de la copie d'envoi

Oups : Pas réactualisé. Désolé

Message édité par: JCGL, à: 05/06/2006 20:33