Sélection et copie dans un courriel (VBA)

Fermé
Jennifer - Modifié le 2 sept. 2022 à 07:09
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 - 9 sept. 2022 à 06:53

Bonjour,

Ma macro fonctionne parfaitement, mais j'aimerais apporté un petit quelque chose de plus. :)

J'aimerais ajouter dans le corps du message une image du tableau sélectionné qui se trouve  dans B4:G44. Seulement je ne m'y connait pas assez pour trouver le code à inscrire. Quelqu'un peu m'aider ? 

Sub Envoyer_email()
    Dim oOutlook As Object
    Set oOutlook = CreateObject("Outlook.Application")
    
    Dim oMail As Object
    Set oMail = oOutlook.CreateItem(0)
    
    With oMail
        .To = Range("D45").Value
        .Subject = "Nouvelle demande de " & ThisWorkbook.Name
        .Body = "Une nouvelle demande d'ajout de ressource est en attente d'approbation"
        .Display
    End With
End Sub

Merci à l'avance !

A voir également:

4 réponses

Réponse 1 / 4
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
Modifié le 2 sept. 2022 à 08:01

Bonjour,

Une facon de faire:  https://www.cjoint.com/c/LIcf7bacrCg

Dans la fonction, vous trouverez une adresse tres utile pour l'envoi de @Mail Outlook 
0
Réponse 2 / 4
Jennifer
Modifié le 7 sept. 2022 à 23:39

Super merci beaucoup!

Une s'affiche dans le code où c'est inscrit RangetoHTML

Et est-ce possible de coller sous forme d'image ?

Merci encore!
0
Réponse 3 / 4
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
8 sept. 2022 à 08:33

Bonjour,

Image fichier joint

 https://www.cjoint.com/c/LIigG0UV7Mg
0
Jennifer
8 sept. 2022 à 23:37

Bonjour,

J'ai maintenant une erreur qui surligne cette partie dans le code: Call Creation_Image

Vraiment désolée je ne sais pas comment m'y prendre pour le régler moi-même.

Merci!

0
Réponse 4 / 4
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
9 sept. 2022 à 06:53

Bonjour,

C'est :

Call Creation_Image(Rng, varExportPath)

Si c'est bien ceci dans le code, avez vous inserez le module1
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
lien copié
alaurore -
LEFEUVRE -

bonsoir, j'ai copié un lien sur mon téléphone via instagram où et comment le trouver svp

7 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

Bonjour, comment puis-je copier et coller un lien dans le navigateur internet? Merci d'avance.



Configuration: Windows / Chrome 56.0.2924.87

4 réponses
erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

Bonjour,

j'ai un petit problème de code,
Bon en gros je voudrais coller les valeurs de certaines cellules de tous les onglets (89) du classeur "Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls" vers un autre classeur que j'ai nommé "BDD" sur l'onglet nommé BDD également.

voila le code que j ai écrit:

Sub Macro()

Dim i As Integer
Dim k As Integer
Dim ws As Worksheet

For i = 2 To 90
For j = 3 To 91
'
Workbooks("BDD").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C12")

18 réponses
Comment retrouver des lien copier sur sont téléphone
SAMA -
Lylou -

Bonjour, comment retrouver des lien copier dans son téléphone




2 réponses