Microsoft 365 Selection de cellules a envoyer par mail

Philippe65 · 7 Janvier 2023

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 · 8 Janvier 2023

Bonjour,

Mail Range/Selection in the body of the mail

Philippe65 · 8 Janvier 2023

Merci je vais regarder

fanch55 · 8 Janvier 2023

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 · 8 Janvier 2023

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

Philippe65 · 8 Janvier 2023

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 · 8 Janvier 2023

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

Quel est le message d'erreur ?

fanch55 · 8 Janvier 2023

Philippe65 à dit:
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 · 8 Janvier 2023

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

End Sub

Je suis debutant en VBA, je découvre

Philippe65 · 8 Janvier 2023

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

Microsoft 365 Selection de cellules a envoyer par mail

Philippe65

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Philippe65

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Pièces jointes

Philippe65

XLDnaute Nouveau

Philippe65

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Philippe65

XLDnaute Nouveau

Philippe65

XLDnaute Nouveau

Discussions similaires