Discussion :

[shr3dpit]

Bonjour à tous,
j'aimerai savoir si il est possbile afficher un document word dans une application mdi en tant que fenêtre fille. Si c'est possible, comment faire?

Merci pour vos réponse

[shr3dpit]

J'ai trouvé finalement en faisant une loooooongue recherche sur le net Je met le code, ça peut servir à quelqu'un

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
18
19
20
 
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" 
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, 
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub Form_Load()
Dim hcalc As Long
Dim RetVal
Dim hParent As Long
 
'ouverture du fichier
   RetVal = ShellExecute(0, "Open", "Q:\Espace_admin\MonDocument.doc", "", "", 10)
 
 ' récupération de l'identifiant de la fenetre =>hwnd en fonction de son entete
    hcalc = FindWindow(vbNullString, "Microsoft Word - MonDocument.doc")
 ' on change la fenetre parent du document  en lui donnant le hWnd de la fenêtre fille
    hParent = SetParent(hcalc, Me.hwnd)
 
End Sub