Discussion :

[dado91400]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[getule]

bonjour
appelles la procédure du module à partir de boutton1_click

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
private sub button1_click
 
call nomdelaproceduredumodule
 
end sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton3_Click()
call NomDeLaProcedureDuModule
 
End Sub

[dado91400]

un grand merci!

A+