Modif sur macro envoi/mail

  • Initiateur de la discussion Christian
  • Date de début
C

Christian

Guest
Bonjour à tout le forum,

Je souhaiterais de l'aide pour modifier une macro servant à envoyer des mails...

fichier joint

Je vous remercie du temps que vous voudrez bien m'accorder.

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

Pièces jointes

  • macromail.zip
    5.2 KB · Affichages: 34
C

Christian

Guest
Bonjour à tout le forum,

Pour faire suite à mon post, j'ai réglé deux points de ma demande de modif sur cette macro ;

1) adresse mail cellule C1 ok
2) condition à l'envoi ou non du mail ok

reste le 3ème point à régler :
que le fichier envoyé porte le nom du contenu de la cellule B1.

Pourriez-vous m'aider, la je sèche!!!.

Merci pour votre aide
Bien amicalement,
Christian [file name=macromail_20060527084508.zip size=10477]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/macromail_20060527084508.zip[/file]
 

Pièces jointes

  • macromail_20060527084508.zip
    10.2 KB · Affichages: 29

JCGL

XLDnaute Barbatruc
Bonjour Christian, le Forum,


Je suis étonné que personne ne t'ai répondu...

Ou alors je n'ai rien compris...

Mais je te le livre quand même...

Copain ??? :)

Message édité par: JCGL, à: 27/05/2006 16:46
 

JCGL

XLDnaute Barbatruc
Re, re, re

Sans cesse sur le métier remet ton ouvrage...

[file name=CommandeJeudi.zip size=12482]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CommandeJeudi.zip[/file]
 
Dernière édition:
C

Christian

Guest
Re le forum, JCGL,

Merci, JCGL, mais j'ai un message d'erreur ;
'Impossible d'affecter à une propriété en lecture seule'.

En fait c'est le fichier envoyé que je souhaite nommé du contenu de la cellule B1 (expl commande Lundi.xls)

Merci pour ton aide, dans l'attente de te lire,
Bien amicalement
Christian.
 

JCGL

XLDnaute Barbatruc
Re Christian,


Code:
ActiveSheet.Name = Range('B1').Value

ActiveWorkbook.SaveAs Filename:=Range('B1').Value

En plaçant ces deux lignes, au bon endroit, dans ton code, cela devrait fonctionner.

Pour la lecture seule, pas de problème chez moi.

Ton fichier à envoyer est, peut-être, protégé...
 

JCGL

XLDnaute Barbatruc
Re Christian,


Je viens de tester le fichier en réel.

Jette un oeil sur ta BaL Wanadoo...

Je n'ai, peut-être, pas tout compris...

Le fichier se nomme par B1, le Destinataire se nomme par C1 et les shapes et les formats sont annulés...

A+ Copain Hospitalier ;)
 

Discussions similaires

Réponses
6
Affichages
361

Statistiques des forums

Discussions
312 637
Messages
2 090 385
Membres
104 517
dernier inscrit
NACHAV