userform et ole

Question

Bonjour a tous,
quelqu'un pourrait-il me donner un exemple de script VB permettant d'ouvrir une feuille excel, lancer une macro "toto" qui ouvre une userform "xxx", et qui rempli (le script VBA) des champs textbox dans cette userform ?

en fait j'essaie via le module OLE de perl, d'envoyer
des données sur la userform et je ne m'en sors pas

URGENT merci

cs_wape · Answer

1. Script VB

Sub Main()

   Dim oXlApp As Excel.Application
  
   Set oXlApp = CreateObject("Excel.Application")
   
   With oXlApp
       .Workbooks.Open ("C:\MonClasseur.xls")
       .Run "Toto"
       .Quit
   End With
   
   Set oXlApp = Nothing
   
   End
   
End Sub

2. Script VBA

Sub Toto()

   With UserForm1
      .TextBox1.Text = "Texte 1"
      .TextBox2.Text = "Texte 2"
      .Show
   End With
   
   End
   
End Sub

Slts

wape

Userform et ole

1 réponse

Discussions similaires