Ajout macro sur feuille à envoyer par mail
Memoenit44
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
Salut à tous,
Je me suis mis à excel il y a un mois pour un projet industriel.
Pour résumé, mon classeur est un catalogue produit qui permet de commander les produits.
A la fin de la commande des produits, on accède à une feuille qui résume les produits commandés, avec le prix total de la commande.
Un bouton permet ensuite d'envoyer la commande par mail qui est reçue automatiquement par la centrale de traitement des commandes.
J'aimerai que sur le fichier reçu par la centrale, le bouton envoyer disparaisse mais qu'un bouton "extraire" apparaisse et permette d'extraire les données du bon de commande vers un fichier de suivi des commandes.
Lors de l'envoi du mail, la feuilles active est copiée puis envoyée.
Comment faire pour travailler sur cette feuille copiée avant qu'elle ne s'envoie.
(la suppression du bouton Envoyer, et la création du bouton Extraire (et sa macro associée doivent être automatisé).
Merci beaucoup pour votre aide.
Aurélien
Je me suis mis à excel il y a un mois pour un projet industriel.
Pour résumé, mon classeur est un catalogue produit qui permet de commander les produits.
A la fin de la commande des produits, on accède à une feuille qui résume les produits commandés, avec le prix total de la commande.
Un bouton permet ensuite d'envoyer la commande par mail qui est reçue automatiquement par la centrale de traitement des commandes.
J'aimerai que sur le fichier reçu par la centrale, le bouton envoyer disparaisse mais qu'un bouton "extraire" apparaisse et permette d'extraire les données du bon de commande vers un fichier de suivi des commandes.
Lors de l'envoi du mail, la feuilles active est copiée puis envoyée.
Comment faire pour travailler sur cette feuille copiée avant qu'elle ne s'envoie.
(la suppression du bouton Envoyer, et la création du bouton Extraire (et sa macro associée doivent être automatisé).
Merci beaucoup pour votre aide.
Aurélien
A voir également:
- Ajout macro sur feuille à envoyer par mail
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Gmail envoyer un mail - Guide
- Windows live mail - Télécharger - Mail
- Comment envoyer un mail en copie cachée - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
1 réponse
Bonjour,
Pour renommer le bouton "envoyer" en extraire :
Affichage, barre d'outils, boite à outils de controle.
De cette barre d'outils, tu as un bouton ou il y a une equerre, une règle et un crayon qui lorsque tu passes la souris a pour intitulé : mode de création ou désactiver le mode de création.
Clic dessus pour que ce soit le mode de création.
Pour changer le nom :
clic droit sur le bouton, Propriétés
Tu as un champ qui s'appelle caption et il y a ecrit "Envoyer". Ecrit extraire à la place.
Ferme la fenêtre propriétés.
Pour changer la macro :
fais clic droit sur la macro et clic sur visualiser le code :
A un moment donné tu vas avoir un bout de code qui ressemble à :
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
' Création de l'e-mail : Titre, Corps du message, destinataire
Set Dest = "tartempion"
EmailMsg.Subject = "sujet mail"
EmailMsg.Body = "Madame, Monsieur "
EmailMsg.Attachments.Add chemin
EmailMsg.CC = "bruno.beaulieu@atosorigin.com ; <a href="mailto:eddie.lechevretel@atosorigin.com">eddie.lechevretel@atosorigin.com</a> "
' Placement de l'e-mail dans la boîte d'envoi :
EmailMsg.Send
Supprimes toutes ces lignes!!!!!
Fermes la fenêtre.
recliques sur le bouton pour désactiver le mode création. Enregistres et fais le test.
Pour renommer le bouton "envoyer" en extraire :
Affichage, barre d'outils, boite à outils de controle.
De cette barre d'outils, tu as un bouton ou il y a une equerre, une règle et un crayon qui lorsque tu passes la souris a pour intitulé : mode de création ou désactiver le mode de création.
Clic dessus pour que ce soit le mode de création.
Pour changer le nom :
clic droit sur le bouton, Propriétés
Tu as un champ qui s'appelle caption et il y a ecrit "Envoyer". Ecrit extraire à la place.
Ferme la fenêtre propriétés.
Pour changer la macro :
fais clic droit sur la macro et clic sur visualiser le code :
A un moment donné tu vas avoir un bout de code qui ressemble à :
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
' Création de l'e-mail : Titre, Corps du message, destinataire
Set Dest = "tartempion"
EmailMsg.Subject = "sujet mail"
EmailMsg.Body = "Madame, Monsieur "
EmailMsg.Attachments.Add chemin
EmailMsg.CC = "bruno.beaulieu@atosorigin.com ; <a href="mailto:eddie.lechevretel@atosorigin.com">eddie.lechevretel@atosorigin.com</a> "
' Placement de l'e-mail dans la boîte d'envoi :
EmailMsg.Send
Supprimes toutes ces lignes!!!!!
Fermes la fenêtre.
recliques sur le bouton pour désactiver le mode création. Enregistres et fais le test.
