Faire appel à un module depuis un USERFORM
salut tout le monde!
J'ai d'une part un MODULE avec un bout de code, puis d'autre part un USERFORM avec une autre bout de code.
Lorsque je click sur mon bouton1 de mon userform je veux éxécuter mon module...
kelk1 peut me renseigner.
mon module :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Sub ouvertureWORD()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim maTbl As Table
Set WordApp = CreateObject("word.application") 'ouvre une session Word
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\david goncalves\Bureau\contrat de prêt final\test.doc")
WordApp.Visible = True 'Word n'est pas masqué pendant l'opération
Set maTbl = WordDoc.Tables(1)
'Debug.Print Workbooks("contrat de prêt.xls").Worksheets("Feuil").Cell("B2").Value
Debug.Print ActiveWorkbook.ActiveSheet.Range("B2")
maTbl.Cell(1, 1).Range.Text = ActiveWorkbook.ActiveSheet.Range("B2")
End Sub |
dans mon userform :
Code:
1
2
3
4
5
|
Private Sub CommandButton3_Click()
.................... 'comment appeler ma fonction Sub ouvertureWORD() de mon module apres click sur CommandButton3_Click()
End Sub |
merci d'avance.
:king:
