Envoie 1 feuille spécifique excel vers messag

re,

ce n'est pas un problème, si par exemple l'adresse mail figure dans la feuille à envoyer exemple cellule B5

dans le code ligne Dest tu fais référence à la cellule B5

Sub Envoi()
Dim Dest As String, Sujet As String
Sheets("FACTURE").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = Range("B5").Value 'Saisir l'adresse mail
Sujet = "Envoi copie bon de commande"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
End Sub

Re,

Pour copier à la suite colonne A feuille DEVIS les données sélectionnées feuille PRODUITS ne sachant dans quelle cellule se trouve la liste déroulante j'ai pris la cellule B2 qu'il faudra modifier à 2 endroits dans le code

colle ce code dans un module et associe le à un bouton

Sub Transfert_Données()
MyValue = MsgBox("Voulez-vous copier cette valeur sur la feuille DEVIS ?", _
vbYesNo + vbCritical + vbDefaultButton1, "Vous avez sélectionné " & [B2])
If MyValue = vbYes Then
Sheets("DEVIS").Select
[A65536].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("PRODUITS").Select
[B2].ClearContents
Else
Application.CutCopyMode = False
Exit Sub
End If
End Sub

pour automatiser la copie dès que tu clic sur un produit de la liste déroulante, colle ce code dans les propriétés de la feuille (clic droit sur l'onglet/Visualiser le code), la aussi il faudra changer B2 par la cellule de ta liste déroulante

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Selection, Range("B2")) Is Nothing Then
If Target = "" Then Exit Sub
Target.Copy
Call Transfert_Données
End If
End Sub

Pour éviter le transfert sur un clic accidentel j'ai mis dans le code une msgbox avec 2 boutons pour confirmer le transfert ou le refuser, et le produit sélectionné est rappelé dans le titre de la msgbox

Bonjour,

Sous Excel 2007, il y a une option (bouton Office en haut à gauche ; envoyer...qui permet directement d'envoyer le classeur en pièce jointe dans un message électronique.
Seul problème, je pense que c'est le classeur entier qui est envoyé et non pas une feuille précise.
ton problème devrait pouvoir être résolu en écrivant une macro.

A+

pépé

P.S : la notion d'intelligence n'a rien à voir avec la résolution de problèmes. On ne peut pas tout connaître. L'intelligence, c'est de l'admettre et de continuer à apprendre, d'être curieux et surtout de ne pas faire de complexes.

bonjour je suis sfr et ma messagerie par défaut est INCREDIMAIL
Si tu a ce qu'il me faut , je suis preneur
salutations

Re,

Pas de problème je reviens dès que possible

Re,

Peux tu me confirmer ta version Excel s'il te plait

Re,

Je t'ai écrit une macro du tonnerre, ton classeur se compose de combien de feuille et quelle feuille veux tu envoyer par mail (son nom ou son n° dans le classeur)

veux tu mettre un message d'accompagnement dans ton mail si oui lequel et sur combien de ligne

Veux tu également mettre la date et l'heure de l'envoi dans le titre ou le texte d'accompagnement

Quel est ton fournisseur d'accès

Pour ta dernière question je t'écris un bout de code

A+
Mike-31

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

Re,

Justement le problème est la transmission en PDF.
transmettre un fichier ou une partie de fichier ne pose aucun problème.

Transformer un fichier ou une partie de fichier en PDF ne pose aucun problème.

Par contre transformer un fichier en PDF et l'envoyer transforme l'extension en .DAT et ce fichier ne s'ouvre plus à l'arrivée ou il faut l'envoyer manuellement.

Au choix on reste sur le principe de l'envoi de fichier Excel et tout automatique,

ou on demande à une macro d'enregistrer le fichier en .PDF et on l'envoi le fichier manuellement

Bonjour BABAR07.

Je fais abstraction des 16 messages qui précèdent, et je réponds directement à ta question initiale "Dans un dossier excel j'ai crée ... 1 feuille SAISIE, 1 ARTICLES, 1 FACTURE , est-ce possible d'envoyer ma feuille FACTURE dans ma boite de messagerie. j'ai un lien hyper-texte qui me renvoie sur cette messagerie, mon problème est d'intégrer ma feuille FACTURE en tant que pièce jointe." :

Clic-droit sur l'onglet "FACTURE" / Déplacer ou copier / Dans le classeur "nouveau classeur" / Créer une copie / OK
Puis enregistrer ce classeur et l'envoyer en pièce jointe.

C'est bien plus simple ! Cordialement.

Salut le fil,

manuellement il n'y a aucun problème,

Avec un code VBA, la création d'un fichier PDF est très simple,

l'envoi Avec Outlook ne pose aucun problème, le problème est que lorsque on utilise le pack Office 2007 Outlook ne fait plus parti du pack Famille et l'acquérir ou acheter le pack petite entreprise double la mise.

Le problème rencontré est le pilotage d'Incredimail vu que le demandeur l'utilise

Salut le fil,

Après plusieurs codes, voila le bébé, la conversion des fichier Excel en PDF fonctionne à partir des versions Excel 2007. dans le fichier il faut avoir une feuille nommée Devis (attention de respecter les majuscules et minuscules).
la feuille Devis est créée en extension PDF, Envoyée et supprimée.
coller ce code dans un module et l'associer à un bouton ou verra plus tard de l'associer à un activeX
renseigner cette ligne du code en remplaçant les xxxx par l'adresse mail du destinataire
objMessage.To = "xxx.xxxxx@free.fr"
et éventuellement objMessage.From = "adresse mail expéditeur" ou simplement un "Nom" entre guillemet
mettre à jour le SMTP qui est celui de votre fournisseur d'accès

Sub Envoi_Feuil_Excel_en_PDF()
Dim messageHTML
On Error GoTo errorHandler
'on cré le fichier PDFdans le même dossier que le fichier source
Sheets("Devis").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Devis.pdf"

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Sujet du Message"
objMessage.From = "xxx.xxxxxx@free.fr" 'adresse mail de l'expéditeur n'est pas obligatoire
objMessage.To = "xxx.xxxxx@free.fr" 'Email du destinataire doit-être correct ici
objMessage.TextBody = "Bonjour," & vbCrLf & "Veuillez trouver en piéce jointe votre facture" & vbCrLf & "en votre aimable réglement"
piece_jointe = ActiveWorkbook.Path & "\" & "Devis.pdf"
''piece_jointe = "C:\Documents and Settings\Les Lagouanère\Bureau\0917_001.pdf" 'chemin du fichier à envoyer en piéce-jointe
'piece_bis = "C:\Documents and Settings\Les Lagouanère\Bureau\Cligno.xls" ' Si on souhaite envoyer plusieurs pièces les déclarer
messageHTML = "Ceci est un message en HTML"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update

objMessage.AddAttachment (piece_jointe) 'On ajoute la piéce jointe, il est possible d'envoyer plusieurs pièces
'objMessage.AddAttachment (piece_bis) 'dans ce cas on ajoute un objMessage.AddAttachement () par pièce
objMessage.Send
MsgBox "Le mail a été bien envoyé !"
'la feuille PDF créée est est supprimée après l'envoi
Kill ActiveWorkbook.Path & "\" & "Devis.pdf"
'si erreur on sort de la procédure
Exit Sub
errorHandler:
'description de l'erreur survenue
MsgBox Err.Description
End Sub

n'hésitez pas à faire remonter vos observations pour fignoler le code
A+
Mike-31

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

Re,

Excuse, depuis quelques jours, je suis en pointiilé sur le forum, ski oblige.

1/ combien de feuille as tu dans ton fichier !

2/ donnes moi leurs noms exact !

Le code que je t'ai posté, envoi en format PDF la feuille nommée Devis sans passer par une messagerie (Outlook, Incrédimail etc ... ce qui permet de l'utiliser depuis n'importe quel ordinateur connexté au réseau.

3/ le code actuel supprimait le fichier créé après envoi, peut être souhaites tu conserver cette copie !

Je modifie le code pour nommer l'envoi en fonction des cellules B11 et C13 sans problème

répond aux trois questions et je te fais ça

Re,

En supposant que la feuille à envoyer se nomme bien FACTURE
Coller le code dans un module et l'associer à un bouton
renplacer les xxx.xxxxxxxx@xxx.xx par une adresse mail valide

Sub Envoi ()
Dim Dest As String, Sujet As String
Sheets("FACTURE").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = "xxx.xxxxxxxx@xxx.xx" 'Saisir l'adresse mail
Sujet = "Envoi copie bon de commande"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
End Sub