Excel : parser une plage selectionnée

Marsh Posté le 02-05-2024 à 21:19:21

Bonjour,

j'essaye d'automatiser l'envoi d'email via vba sous excel.
Cela fonctionne bien.

Il me reste deux choses que je n'arrive pas à faire
1 : comment mettre dans Range la plage de cellulles selectionnées ? (à la place de mon Set RList = Range("B1", Range("B1" ).End(xlDown))

2 : Comment dans le .Body, je peux insé"rer une image (elle est en local, f:\test\01.jpg)

Voici mon code :

Code :

Sub sendmail()
Dim EApp As Object
Set EApp = CreateObject("Outlook.Application" )
Dim EItem As Object
Set EItem = EApp.CreateItem(0)
Dim path As String
path = "F:\TEMPOBOX\AFFICHEUR TEMPO - Notice Mars 2024.pdf"
Dim RList As Range
'Set RList = Range("B1", Range("B1" ).End(xlDown))
Dim R As Range
For Each R In RList
Set EItem = EApp.CreateItem(0)
With EItem
.To = R.Offset(0, 8)
.SentOnBehalfOfName = "MONADRESEMAIL"
.Subject = "Titre du message"
.Attachments.Add (path)
.Body = "Bonjour " & R & " " & R.Offset(0, 1) & vbNewLine & vbNewLine & vbNewLine & vbNewLine _
& "Je vous remercie pour votre achat." & vbNewLine & vbNewLine _
.Display
End With
Next R
Set EApp = Nothing
Set EItem = Nothing
End Sub

Merci pour votre aide.

Message édité par davidmarli le 03-05-2024 à 08:32:14

---------------
Matheux Fou - https://afficheur-tempo.fr - TEMPO BOX pour abonnés TEMPO EDF

Reply

Marsh Posté le 02-05-2024 à 21:19:21

Reply

Marsh Posté le 03-05-2024 à 08:17:41

je pense ne pas avoir été clair pour le 1.

En fait j'ai des données dans les colonnes B et suivantes (jusqu'à M)

Dans mon premier exemple je spécifie dans la macro la plage de B1 jusqu'à la dernière valeur contenues dans la colonne B.

Moi ce que je voudrais, c'est que l'utilisateur sélectionne une plage (par exemple de B150 à B156) et qu'ensuite la macro se fasse jute sur ces lignes là.

J'ai vu qu'on pouvait selectionner une plage avec un inputbox (type 8)

Mais ensuite je ne vois pas comment on passe de l'inputbox à l'équivalent de mon "Set RList = Range("B1", Range("B1" ).End(xlDown))"

En espérant avoir été plus clair.

PS : c'est ma première macro, je n'ai vraiment aucune connaissance en VBA

Merci pour votre aide.

Reply

Marsh Posté le 03-05-2024 à 12:14:27

Bonjour, comme pourtant indiqué dans l'aide VBA :

Code :

Set RList = Application.InputBox(prompt := "Sample", type := 8)

Reply

Marsh Posté le 03-05-2024 à 15:02:37

Il me semble que j'avais essayé cela...
Je revois ça ce soir.

Merci.

Message édité par davidmarli le 03-05-2024 à 15:03:13

---------------
Matheux Fou - https://afficheur-tempo.fr - TEMPO BOX pour abonnés TEMPO EDF

Reply

Excel : parser une plage selectionnée

Sujets relatifs:

Leave a Replay