Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook Créer un bouton et lui affecter une macro

Créer un bouton et lui affecter une macro

2 réponses
Avatar
Fredo(67)
Bonjour,
Je souhaiterai cr=E9er un bouton et lui affecter la macro suivante :
Transf=E9rer l'email s=E9lectionn=E9 =E0 l'adresse test@test.fr

Je connais pas mal les macros de Excel, mais l=E0 j'avoue que je s=E8che
un peu

Est-ce possible ?
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fredo(67)
Bonjour,

Pas d'idée ?

On 15 juin, 17:39, "Fredo(67)" wrote:
Bonjour,
Je souhaiterai créer un bouton et lui affecter la macro suivante :
Transférer l'email sélectionné à l'adresse

Je connais pas mal les macros de Excel, mais là j'avoue que je sèche
un peu

Est-ce  possible ?


Avatar
Fredo(67)
La réponse :

En considérant comme étant le destinataire :

Sub Transfert()

Dim oOlExp As Explorer
Dim oOlSel As Selection
Dim oOlItm As MailItem
Dim oOlFwd As MailItem

Set oOlExp = ActiveExplorer
Set oOlSel = oOlExp.Selection

For Each oOlItm In oOlSel
Set oOlFwd = oOlItm.Forward
oOlFwd.Recipients.Add ""
oOlFwd.Send
Next oOlItm

Set oOlFwd = Nothing
Set oOlItm = Nothing
Set oOlSel = Nothing
Set oOlExp = Nothing

End Sub


On 16 juin, 09:44, "Fredo(67)" wrote:
Bonjour,

Pas d'idée ?

On 15 juin, 17:39, "Fredo(67)" wrote:



> Bonjour,
> Je souhaiterai créer un bouton et lui affecter la macro suivante :
> Transférer l'email sélectionné à l'adresse

> Je connais pas mal les macros de Excel, mais là j'avoue que je sèch e
> un peu

> Est-ce  possible ?- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -