Envoyer des données depuis Userform Outlook vers Userform Excel

Bonjour Forum,

j'utilise un Userform sur Outlook, j'ai un bouton qui active l'ouverture d'un Userform sur Excel. Je peux utiliser le userform d'excel sans problême, mais j'aimerais savoir comment envoyer des informations depuis le userform d'outlook vers le userform d'Excel

Voici le code qui ouvre le classeur puis active le userform

Private Sub CommandButton140_Click()

Dim ExApp As Excel.Application
Set ExApp = New Excel.Application

Dim ExWbk As Workbook
Set ExWbk = ExApp.Workbooks.Open("chemin\fichier.xlsm", ReadOnly:=False)

ExWbk.Application.Run "Module1.Bouton1_Cliquer" '<------- Userform.show

End Sub

j'avais penser à quelque chose du genre

ExApp.Workbooks.VBProject.Userform1.Textbox1.Value = "TEST"

Mais ca ne fonctionne pas

Merci

Salut Crackwood01

Perso, je ne chercherai pas "trop compliqué", je passerai par un petit fichier temporaire

Avec du code du style :

Sub CreateFileLog()
  Dim FileNumber As Byte
  Dim LogFile As String
  FileNumber = FreeFile 
  LogFile = "C:\Users\xxxxx\Documents\Report.txt"
  Open "C:\Users\xxxxx\Documents\Report.txt" For Append As #FileNumber
  Print #FileNumber, Range("A1")
  Close #FileNumber
End Sub

Et

Sub LoadFileLog()
  Dim FileNumber As Byte
  Dim LogFile As String, TextLine As String
  FileNumber = FreeFile 
  LogFile = "C:\Users\xxxxx\Documents\Report.txt"
  Open "C:\Users\xxxxx\Documents\Report.txt" For Input As #FileNumber
  Line Input #1, TextLine
  Me.TextBox1.Value = TextLine
  Close #FileNumber
End Sub

A placer aux bons endroits

A+

Merci BrunoM45,

c'est aussi ce que j'ai pensé aujourd'hui!

Merci de m'avoir proposé la méthode!!

Rechercher des sujets similaires à "envoyer donnees userform outlook"