Microsoft 365 Selection de cellules a envoyer par mail

[Philippe65]

Bonjour le forum

J'ai fait un TCD dt je souhaite envoyer par mail le contenu du resultat qui se trouve entre les cellules A et E avec un nombre de ligne variable en fonction des resultats

Je n'arrive pas a selectionner pour le coprs du mail ces cellules en VBA, j'ai laissé le code sans sujet

Pouvez vous m'aider ?

Est ce que je peux envoyer cel avec gmail, c'est la messagerie que j'utilise ?

Sub Enoyerparmail()
Dim oOutlook As Object
Set oOutlook = CreateObject("outlook.Application")

Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)

Dim sender As String
sender = Range("A4").Value

With oMail
.SentOnBehalfOfName = sender
.To = Range("b9")
.Subject = "Commande pour l'hôtel Roissy " & "du " & Format(Date, "dddd d mmmm")


.Display
End With
End Sub

Merci

Philippe

 

[fanch55]

Bonjour,

Mail Range/Selection in the body of the mail

 

[Philippe65]

Merci je vais regarder

 

[fanch55]

Envoyer des cellules dans un mail Outlook n'empêche pas le destinataire de les modifier .
Il est préférable d'envoyer une image des cellules, voyez le classeur joint .

Pour ne pas utiliser Outlook mais Gmail, c'est compliqué car il faut utiliser l'Api Google, je n'ai pas essayé .

 

[Philippe65]

Merci, ca fonctionne avec ta feuille mais pas quand je le copie sur mon fichier

 

[Philippe65]

Pour selectionner la partie que je souhaite envoyer :

Range("A1:E" & Cells(Rows.Count, "E").End(xlUp).Row).Select

Ca ça marche, mais je n'arrive pas à le mettre dans le corps du mail

Une idée ?

 

[fanch55]

Merci, ca fonctionne avec ta feuille mais pas quand je le copie sur mon fichier

Quel est le message d'erreur ?

 

[fanch55]

Pour selectionner la partie que je souhaite envoyer :

Range("A1:E" & Cells(Rows.Count, "E").End(xlUp).Row).Select

Ca ça marche, mais je n'arrive pas à le mettre dans le corps du mail

Une idée ?

Pouvez-vous fournir la sub complète ?

 

[Philippe65]

Sub CopierTableau()
Range("A1:E" & Cells(Rows.Count, "E").End(xlUp).Row).Copy

End Sub

Je suis debutant en VBA, je découvre

 

[Philippe65]

en creant un boutton copier le tableau avec le code

Sub CopierTableau()
Range("A1:E" & Cells(Rows.Count, "E").End(xlUp).Row).Copy

End Sub

et avec

Sub Enoyerparmail()
Dim oOutlook As Object
Set oOutlook = CreateObject("outlook.Application")

Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)

Dim sender As String
sender = Range("A4").Value

With oMail
.SentOnBehalfOfName = sender
.To = Range("b9")
.Subject = "Commande pour l'hôtel Roissy " & "du " & Format(Date, "dddd d mmmm")


.Display
End With
End Sub

j'ouvre le mail et je copie manuellement le tableau, ca marche mais je dois faire 2 operations, j'aimerais que le mail de genere avec le tableau et si possible un peu de texte avant le tableau

Quelqu'un à une idée ? merci