Excel VBA - Comment envoyer une feuille Excel dans le corps d'un Mail

Рет қаралды 36,910

6 жыл бұрын

Bonjour,
Cette vidéo va vous montrer comment il est très facile d'insérer dans le corps d'un mail le contenu d'une feuille Excel.
Dans l'exemple montré, j'ai inséré le contenu d'un Tableau de Bord dans le corps du message.
Vous pourrez également y insérer votre signature et si nécessaire une pièce jointe.
Bon visionnage.
******************************************************
* Mon catalogue des produits :
learnaccess.kneo.me/shop
****************************************************** *********************************************************************************************************
Utiliser mon lien de parrainage pour acheter un produit Tesla et obtenir des crédits gratuits :
- kilomètres gratuits en Superchargeur
- des vêtements et accessoires.
ts.la/jeanpaul673722
*************************************************************************************************************

Пікірлер: 143

@pedelphinmamy8771 6 жыл бұрын

Bonjour, très bon tuto surtout la qualité sonore de vos tuto est vraiment appréciable je vous en remercie.

@romlef526 6 жыл бұрын

bonjour et merci !!!! excellent tuto !!! très simple à faire en plus

@ChristelJ76 6 жыл бұрын

Bonjour merci pour ce tuto, très intéressant

@benjikkk4506 6 жыл бұрын

tres bonne macro explication bien claire merci

@aboulayeouattara4800 3 жыл бұрын

merci infiniment pour tous ces tuto

@bahabdoulaye3584 Жыл бұрын

Vraiment vous êtes super 👍

@clemenceimbert3668 5 жыл бұрын

Très bon tuto, cela m'a été d'une aide précieuse. Merci beaucoup !

@frogeregis 6 жыл бұрын

Merci beaucoup

@drphone7374 6 жыл бұрын

Merci

@Tat-cx1lr 6 жыл бұрын

J’ai oublié de rajouter que vous devriez avoir plus d’abonnés. Je m’adresse aux 19k abonnés actuels: faites connaître plus cette chaîne autour de vous. Merci.

@Learnaccess 6 жыл бұрын

C'est très gentil de votre part

@yaamo1615 3 жыл бұрын

Bonjour, je vous remercie pour vos tutos très claire. J'ai un message d'erreur : Objet requis sous "Microsoft Visual Basic pour Applications" pouvez-vous m'aider svp

@remischmit4014 6 жыл бұрын

Tres tres interessant bravo, j'ai pas bien suivi par contre sous quel expediteur ça part ? (Reliè au compte office?) et avec quel client messagerie?

@Learnaccess 6 жыл бұрын

Rémi Schmit Perso : Compte Google mail Messagerie Outlook

@radouaneblilig5082 2 жыл бұрын

Bonjour, Super tutoriel tout fonctionne parfaitement mais j aurai besoin de faire apparaître l expediteur du mail Merci

@stephaneroro9708 5 жыл бұрын

Bonjour, Merci pour votre tuto. Je voudrais savoir s'il y a la possibilité que le tableau Excel qui est dans le corps du mail soit utilisable par le destinataire et pouvoir visualiser le mail avant l'envoi. Merci d'avance. Stéphane

@Learnaccess 5 жыл бұрын

Non Il faudra l’envoyer en pièce jointe au format Excel

@christophegodard 5 жыл бұрын

super, votre Tuto, par contre savez-vous que veut dire se message "Bibliothèque d'objets non enregistrée", c'est le message que j'ai quand j'exécute la macro ?

@Learnaccess 5 жыл бұрын

christophe godard Avez-vous bien activer dans les paramètres vba le contrôle Microsoft Outlook ?

@francoismadelaine9354 4 жыл бұрын

Bonjour, Tuto d'excellente qualité, très clair même pour un débutant en VBA comme moi. Est-il possible avec ce module d'envoyer le contenu de la feuille à plusieurs destinataires (dont les adresses email seraient archivées dans un tableau) ? Merci pour l'aide que vous pourrez m'apporter.

@Learnaccess 4 жыл бұрын

Oui bien sur Il suffira de rajouter les autres adresses mails (séparés par un ;) Adresse1;Adresse2;Adresse3;Adresse4

@francoismadelaine9354 4 жыл бұрын

@@Learnaccess Merci beaucoup et sincèrement pour votre réponse ! Mon souhait serait de pouvoir récupérer automatiquement les adresses email dans un tableau qui va s'enrichir régulièrement de nouvelles adresses sans avoir à les saisir manuellement dans le code. J'ai essayé d'implémenter le morceau de code ci-dessous dans le votre, mais mes connaissances actuelles en VBA sont bien trop modestes. Dim oMsgApp As Object Dim oMsg As Object Dim sListeDest As String Set oMsgApp = CreateObject("Outlook.Application") ListeDest() = Range("bddabonnes[Mail]") sListeDest = "" For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1) sListeDest = sListeDest & ";" & ListeDest(i, 1) Next Set oMsg = oMsgApp.CreateItem(0) With oMsg .To = sListeDest

@mohamedadibelmansouri5671 4 жыл бұрын

Hello, Merci pour ce tuto, c'est vraiment très intéressant. En revanche j'ai deux petites questions : J'ai suivi les mêmes étapes mais le contenu du mail est vide, sachant que le contenu que je souhaite envoyer c'est des tableaux croisés dynamiques, est ce pour cela que ça ne marche pas? Comment faire pour envoyer plusieurs parties séparées dans le même mail ? Merci beaucoup

@Learnaccess 4 жыл бұрын

Vous pouvez envoyer aussi un TCD mais il faut que tous les tcd soit sur la meme feuille et meme zone afin de la copier dans le corps du mail

@fadwajdia1669 5 жыл бұрын

très bon tuto Benetto, je demande seulement est ce qu'il y'a moyen que le corps du Mail soit la forme Macro et non pas une sheet d'excel

@Learnaccess 5 жыл бұрын

Fadwa JDIA Je ne vois pas ce que vous faire. Vous pouvez composer votre corps du mail avec vos propres textes. Regardez les tutos sur le sujet.

@xaviercolson4232 2 жыл бұрын

Bonjour, Merci pour ce tuto. Est il possible d'envoyer en copie à plusieurs destinataires. Cordialement

@Learnaccess 2 жыл бұрын

Oui cela été expliqué dans d'autres vidéos...

@9chrisx 3 жыл бұрын

Bonjour, Merci pour ce tuto. Personnellement la ligne "Mafeuille. Range(" A1:O" & nbligne). Select ne passe pas. Avez vous une idée d'où cela peut venir ?

@Learnaccess 3 жыл бұрын

Vérifiez votre plage de cellule et votre variable NBligne

@semnfl4947 4 жыл бұрын

bonjour, merci pour le tuto, j'ai essayé et j'ai reçu sur cette erreur MaFeuille.Range("a1:l" & Nbligne).Select merci

@Learnaccess 4 жыл бұрын

Naoufel SEMLALI Regardez le contenu de votre variable Il se peut que l’erreur vienne de la

@mehdicharki2877 3 жыл бұрын

Bonjour, merci bcq pour votre tuto. Le code me sélectionne bien la plage à envoyer mais ne m'ouvre pas outlook pour un display malgré l'activation de la référence outlook. Aucune message d'eurreur n'apparaît. Pouvez vous m'aidez svp ? Merci

@Learnaccess 3 жыл бұрын

Vérifiez votre syntaxe. Sinon essayer avec une simple message pour contrôle

@rzikayoub4564 3 жыл бұрын

Bonjour, Merci pour votre travail. Je souhaite envoyer tout le fichier Excel et non juste le sheet. Comment je peux faire ? J'ai une deuxième question, je mets à jour un tableau et je souhaite enegistrer une ligne a chaque MAJ des données....est ce que vous avez une vidéo dans ce sens ? Merci

@Learnaccess 3 жыл бұрын

J’ai fait des tutos sur le sujet

@rzikayoub4564 3 жыл бұрын

Puis je avoir le lien ? Svp et encore meeci

@marti01100 3 жыл бұрын

Bonjour Bravo pour votre tuto et j'utilise ce mail auto quasi tout les jours Maintenant je voudrai envoyer exactement la même chose mais au lieu que l'action se déclenche par un bouton, elle devrait se declencher à une limite exemple un niveau arrive à 1000 L le mail part !!!

@Learnaccess 3 жыл бұрын

Il suffit mettre un simple IF en mettant votre condition Si la condition est vérifiez Vous envoyez le mail sinon non

@marti01100 3 жыл бұрын

@@Learnaccess voila ma macro et rien ne se passe grrrrrr With Worksheets("ENVOI MAIL GNR") If .Range("O8") = "" And Range("N8")

@Tat-cx1lr 6 жыл бұрын

Bravo et merci pour cette vidéo claire et surtout courte. Est-il possible de m’envoyer le code Vba qui permet d’automatiser l’envoi d’un tableau Excel à plusieurs personnes mais uniquement les données qui concernent chacune d’elles. Amicalement.

@Learnaccess 6 жыл бұрын

Bonjour, J'ai déjà un tuto qui ressemble à ce que vous demandez. Par contre, pour envoyer une série de mail en boucle à plusieurs personnes, le code est un peu plus compliqué. IL faudra passer par un boucle. Vous pouvez utiliser le même code que le tuto ci-dessus mais l'inclure dans une boucle pour le diffuser à plusieurs. J'essayerai de faire un tuto complet sur le sujet.

@Tat-cx1lr 6 жыл бұрын

Learnaccess Merci beaucoup.

@Tat-cx1lr 6 жыл бұрын

Learnaccess désolé je n’ai pas trouvé le tutu que vous évoquez. merci.

@Learnaccess 6 жыл бұрын

Normal, je ne l'ai pas mais en voici une explication kzfaq.info/get/bejne/rJZ-l6WH17a4fps.html

@Tat-cx1lr 6 жыл бұрын

Learnaccess merci beaucoup. Je n’arrive pas à adapter ce code à mon besoin. En fait, j’ai un tableau Excel contenant la date, numéro et montant des facture plus le nom et l’adresse mail des fournisseur. Exemple: A1 date B1 numéro C1 montant D1 nom du fournisseur E1son adresse mail. A2 10/04/2018. B2 111111 C2 400€ D2 Dupont E2 dupont@xxxx.fr. A3 20/08/2018 B3 22222 C3 600€ D3 Durant E3 durant@yyyy.fr. Je voudrais envoyer à Dupont la ligne 2 et à Durant la ligne 3 de mon tableau avec pour tous les deux l’entête ligne 1. Merci et désolé pour ce long message. Amicalement.

@ZCHANNELAndroid 4 жыл бұрын

Bonjour, tout fonctionne pour moi parfaitement, sauf que la mise en forme des tableaux envoyés n'est pas bonne.

@Blackcrowe69 5 жыл бұрын

Bonjour, Je voudrais que le classeur soit envoyé en pièce jointe et non dans le corps du mail. Est-ce possible? Merci.

@Learnaccess 5 жыл бұрын

Blackcrowe69 Le classeur ou la feuille en pièce jointe Si la feuille, des tuto ont été faits sur l’envoi en PDF

@celtik44 3 жыл бұрын

Bonjour, savez vous s'il est possible de faire l'inverse ? importer un tableau Excel sur Outlook afin éviter d'ouvrir le fichier Excel

@Learnaccess 3 жыл бұрын

Oui j’ai fait le tuto Envoi fichier pièce jointe vers Outlook

@elgumiriotmane8105 4 жыл бұрын

lorsque j'ai appliqué ce code en utilisant "Send", le mail a été envoyé sans aucune erreur. par contre quand j'utilise "display " ça marche pas. il affiche un message d'erreur; et précisément en "With Selection.Parent.MailEnvelope.Item "

@Learnaccess 4 жыл бұрын

Je pense que cela vient d'un pb de condifguration. Après l'objectif est bien de l'envoyer

@lysalambert2523 Жыл бұрын

Bonjour, merci pour cette procedure. Neanmoins, j'ai plusieurs feuilles dans mon classeur et cela pose visiblement problème. j'ai declaré mes variables comme vous et pourtant cela bug sur la selection de la plage : mafeuille.Range("A1:AL" & nbligne).Select merci pour votre aide. bonne journée

@Learnaccess Жыл бұрын

Vérifiez à quelle feuille correspond votre nom Mafeuille

@lysalambert2523 Жыл бұрын

@@Learnaccess oui c'est bien la feuille correspondante " Set mafeuille = ThisWorkbook.Sheets("ga")" ga est le nom de la feuille

@Learnaccess Жыл бұрын

@@lysalambert2523 Là je ne vois pas ou peut se trouver l'erreur. Sans le fichier je ne saurais pas vous dire ou se trouve le bug.

@lysalambert2523 Жыл бұрын

@@Learnaccess c'est bon merci j'ai trouvé ;)

@laurentwilfrid7380 4 жыл бұрын

Peux tu m'indiquer les variables déclarer (Dim as ….) chez loi le code ne marche pas

@Learnaccess 4 жыл бұрын

C''est dans le code : 2 variables Dim MaFeuille as Worksheet (type Feuille) Dim NbLigne as Integer (valeur Entiere)

@redwannetazghat127 5 ай бұрын

Bonjour, Pour ma part le code a bien fonctionné mais malheureusement ce n’est pas dans le même format Avez vous une idée svp?

@valerierenault706 4 жыл бұрын

Bonjour je rencontre un souci . Comment faire le send mail ?

@Learnaccess 4 жыл бұрын

Je ne comprend pas la question. L'instruction est dans la vidéo : .Send

@Krolinedu95 3 жыл бұрын

Bonjour, C'est ce que je recherchais, L'inverse est-il possible ? Je voudrais envoyer un tableau dans le corps d'un mail (donc la vidéo correspond parfaitement) à x personnes qui sont censées répondre en corrigeant directement les valeurs du tableau dans le corps du mail et en me le renvoyant Comment faire pour ne récupérer que la partie "tableau" du corps du mail de retour par retour mail car quand je récupère le body ce n'est qu'un texte, ce n'est plus un tableau

@Learnaccess 3 жыл бұрын

Bonjour, Ce n’est possible En tout cas, je ne sais pas faire Pour ce que vous demander n’est pas faisable

@drphone7374 6 жыл бұрын

Comment importer un fichier QRP Aexcel

@Learnaccess 6 жыл бұрын

Je n'ai jamais fait. Mais je crois qu'il faut un convertisseur qui convertir les QRP vers XLS ou TXT

@brigittejoly-cambier231 Жыл бұрын

Bonjour, Merci pour ce tuto. Pour ma part, il fonctionne très bien pour l'envoi direct du mail avec .send, mais il ne fonctionne pas avec .display : le mail n'est pas créé et ne s'affiche pas. Je ne comprends pas. Avez-vous rencontré ce problème ? Ai-je oublié quelque chose ?

@Learnaccess Жыл бұрын

NON. Si l'envoie direct fonctionne , l'affichage doit fonctionner aussi IL faut laisser soit l'un ou l'autre dans le VBA et pas les deux. IL faut qu'outlook soit fermer dans les deux cas...

@triplel6725 2 жыл бұрын

Merci pour le tuto, mais il se pose un problème lors de l'envoi. Il y a un message d'erreur du genre -283738, que faire dans ce cas

@Learnaccess 2 жыл бұрын

Bizarre cette erreur Vérifiez la syntaxe de votre code

@hazembriki 4 жыл бұрын

salut, excellent tuto simple et facile a comprende, je me demande si vous pouvez m'aider a propos de mon probleme , je suis novice dans VBA, est ce que c'est possible de mettre dans le corps de mail juste une partie de feuil en tant que image en mode point en utilisant Outlook VBA ? Voivi le code dans l'outlook : Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application Set OutlookMail = OutlookApp.CreateItem(olMailItem3) OutlookMail.BodyFormat = olFormatHTML OutlookMail.Display OutlookMail.To = "xxx" OutlookMail.CC = "xxx" OutlookMail.Subject = "Rapport de supervision : nuit du " & Format(Date - 1, "dd/mm/yyyy") & " au " & Format(Date, "dd/mm/yyyy") ' OutlookMail.Attachments.Add "" ' .Send End Sub Merci

@Learnaccess 4 жыл бұрын

qu'est ce que vous appelez : Image en mode point ??????

@hazembriki 4 жыл бұрын

@@Learnaccess quand vous faite une copie a une partie de feuil excel et puis vous accédez a l’onglet Accueil de l'outlook , cliquez sur la flèche sous coller, cliquez sur Collage spécial,vous trouvez l’une des options qui s'appelle (image en mode point) ,Merci

@Learnaccess 4 жыл бұрын

@@hazembriki POurquoi sélectionner cette option? On n'a le même résultat....

@hazembriki 4 жыл бұрын

@@Learnaccess salut, je pensais qu'il y avait une différence mais oui ,vous avez raison, on a le meme resultat, donc revenons à ma première question,est ce que c'est possible de mettre dans le corps de mail juste une partie de feuil en tant que image en utilisant Outlook VBA ?

@yaminaazri5727 3 жыл бұрын

Bonsoir super Tuto, cependant je n'ai pas réussi à ce que ma boite outlook s'ouvre, mon pas à pas s'arrête à l'instrcution .To. j'ai bien coché dans le menu outil références tout ce qui contenait outlook.

@Learnaccess 3 жыл бұрын

Vous avez bien déclarer les variables Outlook et Message ???

@yaminaazri5727 3 жыл бұрын

@@Learnaccess Merci ça marche mais en envoi directement sans passer par Display. Bonnes fêtes.

@Learnaccess 3 жыл бұрын

Dans ce cas faite un : .display Au lieu du .send

@claudedrouinsabe2870 5 жыл бұрын

Bonjour, Merci pour ce tuto mais j'ai un problème le mail que j'envoie est en inverse vidéo (fond noir écritures blanches) pas terrible pour l'impression que dois-je faire pour remédier à ce petit problème Merci d'avance

@Learnaccess 5 жыл бұрын

Normalement, si votre feuille excel est blanche par défaut, il ne devrait pas mettre le Copier/Coller en fond noir. Soit cela vient de votre Excel soit de votre messagerie Outlook

@claudedrouinsabe2870 5 жыл бұрын

@@Learnaccess Si je fait un copier de la zone de ma feuille excel et que je le colle dans le corps d'un mail et que je me l'envoie, je le reçois correctement sur fond blanc

@claudedrouinsabe2870 5 жыл бұрын

J'ai modifier un peu les codes pour m'adapter à mes besoins; Est ce que j'aurais fait une erreur ? Sub EnvoiMail() 'Déclaration des variables Dim Mafeuille As Worksheet 'La feuille contenant le tableau 'Affectation des variables Set Mafeuille = ThisWorkbook.Sheets("Modele") 'on définit la feuille 'Desactivation du raffraichissementde l'écran Application.ScreenUpdating = False 'On Sélectionne la plage à copier Mafeuille.Range("A1:J53").Select 'Avec l'objet MailEnvelope on envoie dans le corp du mail With Selection.Parent.MailEnvelope.Item .To = Mafeuille.Range("N1").Value .cc = Mafeuille.Range("N2").Value .Subject = Mafeuille.Range("N3").Value .Send 'on envoi '.display 'on affiche End With MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "Confirmation d'envoi Mail" Application.ScreenUpdating = True End Sub

@Learnaccess 5 жыл бұрын

Claude DROUIN SABE Alors je vois pas le pb Soit c’est dans le parametrage de votre Outlook Sinon faite un test en mettant une couleur très claire dans votre feuille Et regardez ce que cela donne

@Learnaccess 5 жыл бұрын

@@claudedrouinsabe2870 Bonjour Je ne vois pas d'erreur, l'erreur se produit sur quel ligne ?

@Benjamin-xy2kw 4 жыл бұрын

Bonjour, Excellent tuto, merci. Une "erreur d'exécution n°438 (propriété ou méthode non gérée par cet objet)" apparait en cliquant sur le bouton à la fin. De quoi s'agit il et comment faire svp ? Merci d'avance pour votre réponse. Sub EnvoiMail() Dim MaFeuille As Worksheet Dim Nbligne As Integer Set MaFeuille = ThisWorkbook.Sheets("BDX2") Application.ScreenUpdating = False Nbligne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row MaFeuille.Range("A1:I" & Nbligne).Select With Selection.Parent.MailEnvelope.Item .To = Range("K1").Value .CC = Range("K3").Value .Subect = Range("K4").Value .Display End With MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL" Application.ScreenUpdating = True End Sub

@Learnaccess 4 жыл бұрын

Bonjour, Je ne vois pas de pb de syntaxe. L'erreur se situe où ? Sur quelle ligne ? Avez fait un pas à pas avec F8 afin de vérifier ou venait l'erreur ?

@edizozkohen5800 4 жыл бұрын

Bonjour, En exécutant le code que vous proposer, un message d'erreur est affiché : " Erreur d'exécution '-2147319779 (8002801d)' : La méthode 'MailEnvelope' de l'objet '_Worksheet ' a échoué". Est-ce que vous savez la raison le code ne fonctionne pas ? Est-ce que je dois ajouter une référence ? Merci par avance

@Learnaccess 4 жыл бұрын

Oui il faut activer les références Outlook. C'est mentionné en haut du code

@sophielavigne4040 Жыл бұрын

Bonjour, merci infiniment pour ce tuto. J’ai également un message d’erreur de ce type mais que de temps en temps. Je m’explique : la macro fonctionne mais au bout d’un certain nombres de mails envoyés elle se bloque avec le message d’erreur suivant : -2147467259 (80004005). Si je ferme le fichier et que je relance la macro tout refonctionne. Je ne vois pas d’où vient le problème. Si quelqu’un peut m’aider 🙏🏻 Bonne journée à tous

@NIALA331 6 жыл бұрын

Excel VBA - Comment envoyer une feuille Excel dans le corps d'un Mail Après avoir visualiser votre vidéo, j'ai essayé de mettre en application le sujet développé et j'ai un problème d'exécution car en effet je ne sais pas comment faire pour sélectionner le logiciel de messagerie (outlook ou gmail etc.... ainsi qu'un compte mail dans la mesure où plusieurs sont créés). N'ayant pas trouvé de lien pour télécharger le fichier, je me permets de vous poser la présente question. Par avance, je vous en remercie Cordialement Alain LAVEAU

@Learnaccess 6 жыл бұрын

Attention !!! Si vous avez plusieurs messageries. Ce code ne fonctionnera pas. Encore une fois, Excel étant un produit Microsoft, le code VBA ne fonctionnera qu'avec la suite office et donc qu'avec la messagerie de Microsoft (Outlook)

@NIALA331 6 жыл бұрын

Learnaccess D'accord mais j'ai la suite office et donc Outlook mais cela ne fonctionne pas et je ne vois pas quel réglage faire. Malgré tout, merci pour votre réponse. Cordialement

@inessfaxi6175 3 жыл бұрын

Bonjour, merci pour ce tuto. j'aurais une question svp. Après avoir suivi vos instructions, vba m'indique : Erreur "Objet requis" je ne comprends pas..voici mon code: Sub envoimail2() Dim Feuille As Worksheet Dim nbligne As Integer Set Feuille = Worksheets(4) Application.ScreenUpdating = False 'on désactive le raffraichissement de l'écran nbligne = Feuille.Range("A" & Application.Rows.Count).End(xlUp).Row MaFeuille.Range("A1:B" & nbligne).Select With Selection.Parent.MailEnvelope.Item .To = Worksheets("Database Employé").Range("mail") .Subject = "Déclaration des retenues à la source - MAGISTERIA" .Display End With MsgBox "Votre mail est prêt à l'envoi" End Sub

@inessfaxi6175 3 жыл бұрын

merci par avance

@Learnaccess 3 жыл бұрын

Vous avez bien Outlook ?

@inessfaxi6175 3 жыл бұрын

@@Learnaccess Bonjour Monsieur, oui et je l'ai bien activé dans les options avant de lancer ma macro ! je ne comprends pas d'ou vient le problème.. merci

@pajude 5 жыл бұрын

Bonjour, Tout d'abord merci pour ce tuto, bien expliqué. J'ai testé et j'ai une erreur : Erreur d'exécution '424': Objet requis Voici le code : Sub EnvoiMail() Dim MaFeuille As Worksheet Dim NbLigne As Integer Set MaFeuille = ThisWorbook.Sheets("TEST") Application.ScreenUpdating = False NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row MaFeuille.Range("A1:O" & NbLigne).Select With Selection.Parent.MailEnvelope.Item .To = MaFeuille.Range("R1").Value .Subject = MaFeuille.Range("R2").Value .Send End With MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL" Application.ScreenUpdating = True End Sub Et au lieu d'envoyer une feuille du classeur, est-ce que possible d'envoyer 2 feuilles? Merci

@Learnaccess 5 жыл бұрын

BOnjour, Je ne vois pas l'erreur. La ligne d'erreur se trouve où. Avec cette méthode, vous ne pourrez pas envoyer 2 feuilles en même temps. Sinon envoyer deux mails.

@pajude 5 жыл бұрын

@@Learnaccess Je ne sais pas où se trouve l'erreur (novice en vba).

@Learnaccess 5 жыл бұрын

@@pajude SAns avoir le fichier, j'ai du mal à trouver l'erreur Pouvez-vous me l'envoyer sur mon adresse email : jeanpaul.bonnetto@gmail.com

@roianti1903 3 жыл бұрын

c'est un peu tard, mais l'erreur viens de : Set MaFeuille = ThisWorbook.Sheets("TEST") d'après moi après l'avoir testé sur un excel

@albatros8607 4 жыл бұрын

Bonjour J'ai créé mon bouton permettant l'envoi je lui ai attribué Feuil1 envoimail et j'ai ce message d'erreur: --- Propriété ou méthode non gérée par cet objet --- Avez vous une idée d'ou provient mon erreur ? Merci à vous

@Learnaccess 4 жыл бұрын

Il doit y avoir une erreur de syntaxe Vérifiez votre code

@albatros8607 4 жыл бұрын

@@Learnaccess Oui effectivement j'avais mis 2 "p" à enveloppe. Maintenant j'ai outlook qui ouvre sa page et s'arrête juste à cette ouverture de : "Démarrage de Outlook 2007" et ne va pas plus loin alors qu'il devrait envoyer tout seul le mail. Savez vous pourquoi il s'arrête juste à l'entrée de Outlook ? merci de vous occuper de mon souci

@Learnaccess 4 жыл бұрын

AL Batros Vous avez fait un : .send Ou un .display

@albatros8607 4 жыл бұрын

@@Learnaccess J'ai un "SEND" je vous met le tout dessous: Sub envoimail() Dim mafeuille As Worksheet Dim nbligne As Integer Set mafeuille = ThisWorkbook.Sheets("chemin") Application.ScreenUpdating = False nbligne = mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row mafeuille.Range("a1:K" & nbligne).Select With Selection.Parent.MailEnvelope.Item .to = mafeuille.Range("aa14").Value .Subject = mafeuille.Range("aa15").Value .send End With MsgBox "Votre mail a été envoyé", vbInformation + vbOKOnly, "CONFIRMATION ENVOI" Application.ScreenUpdating = True End Sub

@Learnaccess 4 жыл бұрын

@@albatros8607 Je ne vois pas d'erreur particulière. Votre code semble OK Dans ce cas, cela peut venir d'une sécurité Outlook.

@raymondchatelain491 4 жыл бұрын

Bonjour a vous comme d`habitude un super tuto. Mais moi j`ai un petit problème, quand j`essais de l`envoyer il me donne un code d `erreur le (send) en bleu et disant sub ou fonction non définie et pourtant j`ai pris la même formule que vous. lol et maintenant trouver le problème avec le send un autre avec la ligne With selection maintenant lol découragé. Pas drôle d`être un novice.

@Learnaccess 4 жыл бұрын

Raymond Chatelain Pour moi c’est juste un pb de syntaxe Vérifier

@_Greenflag_ 4 жыл бұрын

Sans arrêt, j'ai "incompatibilité de type" ... qu'est ce que cela veut dire ? D'avance merci !!! Je remarque que mon excel est en .xls, est ce lié ? Mon code : Sub EnvoiMail() Dim Mafeuille As Worksheet Dim Nbligne As Integer Set Mafeuille = ThisWorkbook.Sheets("Agent") Nbligne = Mafeuille.Range("C7:C26") Mafeuille.Range("C7:I26" & Nbligne).Select With Selection.Parent.MailEnvelope.Item .Subject = Mafeuille.Range("c5").Value .To = Mafeuille.Range("C3").Value .Display End With End Sub

@_Greenflag_ 4 жыл бұрын

Je réfléchis à un début de réponse ... en fait j'ai des valeurs numériques, comme des val non numériques, ainsi que des dates, etc dans ce que je veux copier ... donc dois je déclarer plus de variables au début afin de les préciser ? Merci

@Learnaccess 4 жыл бұрын

M C Vous avez fait un pas à pas (f8) de votre code ? Je ne vois pas d’erreur Je ne sais où se trouve le pb Mettez votre classeur en xlsm et non xlsx

@_Greenflag_ 4 жыл бұрын

@@Learnaccess J'ai essayé F8, il me met en jaune le début "Sub EnvoiMail ()" et puis il me dit Mafeuille = nothing Nbligne = 0 ... : /

@Learnaccess 4 жыл бұрын

@@_Greenflag_ NB LIgne à 0 => C'est pas normal. Véfirifiez que vous avez bien des données sur la colonne

@_Greenflag_ 4 жыл бұрын

@@Learnaccess Oui, j'ai bien des données, et ma feuille n'est pas = à rien ... : / pourriez vous y jeter un coup d'oeil? Ce serait super gentil !

@tristanlambourdiere7137 5 жыл бұрын

Bonjour, j'ai utilisé votre pour réalisé mon VBA ub maillundi1() 'déclaration variable' Dim mafeuille As Worksheet Dim lingne As Integer 'affection des variables' Set mafeuille = ThisWorkbook.Sheets("lundi") 'Désactivation du raffraichissement de l'écran' Application.ScreenUpdating = False 'on selectionne la plage a copier' mafeuille.Range("a1:n47").Select For ligne = 5 To 7 'compter le nombre de ligne mail' 'Avec l'objet mail envelope on envoi dans le corps au mail' With Selection.Parent.MailEnvelope.Item On Error Resume Next .To = mafeuille.Range("q" & ligne) 'destinataire directe' .CC = mafeuille.Range("Q8") 'destinataire en copie'' .Subject = "ordre de mission" & mafeuille.Range("i1") .Send End With Next ligne End Sub il y a une erreur mailenvelope je ne comprend pas Merci avance pour votre aide

@Learnaccess 5 жыл бұрын

Vérifier la syntaxe, cela peut provenir de là Maintenant, c'est bien outlook que vous avez ? car si autre messagerie, cela ne marchera pas. Sans le code et le message d'erreur, j'ai du mal à voir le pb. IL faut exécuter le code ligne par ligne

@tristanlambourdiere7137 5 жыл бұрын

@@Learnaccess :oui c'est bien Outlook,et j'ai vérifier la syntaxe elle est bonne

@tristanlambourdiere7137 5 жыл бұрын

le code sub maillundi1() 'déclaration variable' Dim mafeuille As Worksheet Dim lingne As Integer 'affection des variables' Set mafeuille = ThisWorkbook.Sheets("lundi") 'Désactivation du raffraichissement de l'écran' Application.ScreenUpdating = False 'on selectionne la plage a copier' mafeuille.Range("a1:n47").Select For ligne = 5 To 7 'compter le nombre de ligne mail' 'Avec l'objet mail envelope on envoi dans le corps au mail' With Selection.Parent.MailEnvelope.Item On Error Resume Next .To = mafeuille.Range("Q" & ligne) 'destinataire directe' .CC = mafeuille.Range("Q8") 'destinataire en copie .Subject = "ordre de mission" & mafeuille.Range("i1") .Send End With Next ligne End Sub message erreur: erreur d'execution 1004 la methode select de la classe range a echoue

@tristanlambourdiere7137 5 жыл бұрын

@@Learnaccess le code bloque a :mafeuille.Range("a1:n47").Select

@Learnaccess 5 жыл бұрын

@@tristanlambourdiere7137 sincèrement, je ne vois pas où le pb pourrai se situé. sans le fichier et le code à ma disposition, je vais avoir du mal à trouver le bug. Vous pouvez m'envoyer le fichier à mon adresse : jeanpaul.bonnetto@gmail.com

@user-nu2mu1yt2h 3 ай бұрын

Bonjour, merci pour votre superbe vidéo. VBA surligne en jaune ce ligne de code. Avez-vous une idée de la raison ? Nbligne = Mafeuille.Range("A" & Application.Rows.Count).End(x1Up).Row

@Learnaccess 3 ай бұрын

C’est xlup et pas x1up L et non 1

@user-nu2mu1yt2h 3 ай бұрын

@@Learnaccess merci!!

@hoperz735 Жыл бұрын

Stp l'exécution du code me donneerreur de compilation ds la ligne With Selection.Parent.MailEnvelope.Item

@lysalambert2523 Жыл бұрын

:( je ne comprends pas tout fonctionnait et maintenant cela bug à nouveau sur autre chose. La méthode 'mailenvelope" de l'objet '_worksheet a echoué. la procedure s'arrete sur With Selection.Parent.MailEnvelope.Item pourriez vous m'aider svp

@Learnaccess Жыл бұрын

Même version d’Excel ?

@lysalambert2523 Жыл бұрын

Oui ;(

@lysalambert2523 Жыл бұрын

C est ok. J ai rédigé la procédure autrement et cela marche

@eliehuchet2416 Жыл бұрын

@@lysalambert2523 Salut j'ai le même problème. Comment as tu reformuler ton code? Merci par avance

@sbillel2440 2 жыл бұрын

Merci

@lynghluu2765 4 жыл бұрын

Bonjour, Merci de votre aide par contre je ne reçois rien dans mon mail :( pouvez vous m'aider ?

@Learnaccess 4 жыл бұрын

Cela doit venir du code VBA Faite un test sur une cellule de la feuille pour voir si cette cellule apparait dans le mail Si pas OK, cela vient de votre code et de la plage à sélectionner