Récupérer une information d'un Userform

Bonjour,

J'ai fais un Userform avec une liste.

Puis je fais un choix, je récupère ce choix en mémoire dans mon CommandButton1 dans R.

Ce que je veux c'est que je puisse utiliser ce choix dans ThisOutlookSession pour pouvoir l'écrire dans la case "Objet" d'un mail, j'arrive pas a utiliser cette information dans le ThisOutlookSession.

Private Sub UserForm_Initialize()

ComboBox1.AddItem "[INFO]"
ComboBox1.AddItem "[URGENT]"

End Sub

Private Sub CommandButton1_Click()

    R = ComboBox1.Text
    Unload UserForm1

End Sub

Merci de votre aide

Bonjour,

Déclare la variable R dans le haut d'un module

Public R As String

de cette façon la variable sera disponible dans tout les code

Je te remercie pour ta réponse i20100, en fait ce que je veux dire c'est mon information se retrouve dans la fonction CommandButton1_Click, dans une variable que j'ai nommé R. Je souhaite récupérer le contenu de cette variable pour la mettre dans ThisOutlookSession, sa ne marche pas si je ne l'utilise pas sur cette feuille la.

re,

voici un exemple,

re,

voici un autre exemple avec un Nom caché Excel4Macro ,

Je te remercie beaucoup pour t'es exemples, sa m'aide beaucoup, je pense que mon problème vient du VBA d'Outlook, j'ai fais la même chose que toi, malheureusement le choix que je choisi dans la liste déroulante s'efface du coup sa affiche rien au final. Dommage je ne peux pas publier un fichier Outlook pour te montrer.

Merci beaucoup en tout cas

re,

tu l'a fais comme ça ?

vba outlook

Non j'ai pas de MsgBox, j'ai mis ce code là :

Public R as String

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    If Not Item.Class = olMail Then Exit Sub

    If InStr(1, Item.Subject, "[") = 0 Then

         UserForm1.Show

         Item.Subject = R & "-" & Item.Subject

     End If

End Sub

et dans le UserForm j'ai mis sa :

Private Sub UserForm_Initialize()

ComboBox1.AddItem "[INFO]"
ComboBox1.AddItem "[URGENT]"

End Sub

Private Sub Recuperation

    R = ComboBox1.Text

End Sub 

Private Sub CommandButton1_Click()

    Unload UserForm1

End Sub

re,

sur la page du UserForm, (1 ComboBox et 2 CommandButton)

Private Sub UserForm_Initialize()
ComboBox1.AddItem "[INFO]"
ComboBox1.AddItem "[URGENT]"
End Sub

Private Sub ComboBox1_Change()
R = ComboBox1.Text
End Sub

Private Sub CommandButton1_Click()
Call Test_R
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

pour faire le test j'ai mis sur la page du Module1

Public R As String

Sub Test_R()
MsgBox R
End Sub

Merci beaucoup ça marche

Rechercher des sujets similaires à "recuperer information userform"