David62800
XLDnaute Nouveau
bonjour
je cherche a créer une macro pour faire l'envoie un tableau en 1 clic
voici mon code actuel avec Outlook mais mais ca bloque avec ma version Outlook apparemment
est il possible de modifier mon code pour que l'envoie ce fait avec Gmail (page internet) en y incluant directement l' identifiant et mot de passe
merci de votre aide
si vous avec une autre solution pour un envoie du tableau avec enregistrement et envoie en pièce jointe je suis preneur aussi
voici mon code actuel
Sub EnvoiMail()
'declaration des variables
Dim Mafeuille As Worksheet ' la feuille contenant le tableau de board
Dim NbLigne As Integer ' Nombre de lignes a recuperer
'Affectation des variables
Set Mafeuille = ThisWorkbook.Sheets("Dashboard") 'on definit le nom de la feuille
'desactivation du rafraichissements de l'ecran
Application.ScreenUpdating = False
'on calcule le nombre de ligne a prendre dans la feuille a partir de la colonne A
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
'on selectione la plage a copier
Mafeuille.Range("A1:O" & NbLigne).Select
'avec l'objet MailEnvoie on envoie dans le corps du mail
With Selection.Parent.MailEnvelope.Item
.to = Mafeuille.Range("R1").Value 'destinataire direct
.co = Mafeuille.Range("R3").Value 'destinataire en copie
.bcc = "" 'destinataire en copie invisible
.Subject = Mafeuille.Range("R2").Value 'objet du mail
.attachements.Add "CheminFichier" 'piece jointe
.Send 'envoie du mail
.display 'affichage du mail
End With
'confirmation d'envoie du mail
MsgBox "Votre mail a été envoyé avec succé.", vbInformation + vbOKOnly, "Confirmation envoie mail"
'activation du rafraichissements de l'ecran
Application.ScreenUpdating = True
End Sub
je cherche a créer une macro pour faire l'envoie un tableau en 1 clic
voici mon code actuel avec Outlook mais mais ca bloque avec ma version Outlook apparemment
est il possible de modifier mon code pour que l'envoie ce fait avec Gmail (page internet) en y incluant directement l' identifiant et mot de passe
merci de votre aide
si vous avec une autre solution pour un envoie du tableau avec enregistrement et envoie en pièce jointe je suis preneur aussi
voici mon code actuel
Sub EnvoiMail()
'declaration des variables
Dim Mafeuille As Worksheet ' la feuille contenant le tableau de board
Dim NbLigne As Integer ' Nombre de lignes a recuperer
'Affectation des variables
Set Mafeuille = ThisWorkbook.Sheets("Dashboard") 'on definit le nom de la feuille
'desactivation du rafraichissements de l'ecran
Application.ScreenUpdating = False
'on calcule le nombre de ligne a prendre dans la feuille a partir de la colonne A
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
'on selectione la plage a copier
Mafeuille.Range("A1:O" & NbLigne).Select
'avec l'objet MailEnvoie on envoie dans le corps du mail
With Selection.Parent.MailEnvelope.Item
.to = Mafeuille.Range("R1").Value 'destinataire direct
.co = Mafeuille.Range("R3").Value 'destinataire en copie
.bcc = "" 'destinataire en copie invisible
.Subject = Mafeuille.Range("R2").Value 'objet du mail
.attachements.Add "CheminFichier" 'piece jointe
.Send 'envoie du mail
.display 'affichage du mail
End With
'confirmation d'envoie du mail
MsgBox "Votre mail a été envoyé avec succé.", vbInformation + vbOKOnly, "Confirmation envoie mail"
'activation du rafraichissements de l'ecran
Application.ScreenUpdating = True
End Sub
