Discussion :

[battit64]

Code :

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

1
2
3
4
5
6
7
8
9
 
Imports Microsoft.Office.Interop
 
 Dim wordApp As Word.Application = New Word.ApplicationClass()
    Dim wordDoc As Word._Document
sub essai()
   wordDoc = wordApp.Documents.Open(FileName:=Chemin & nomFich)
        wordApp.Visible = True
end sub

je lance word via cette commande et j'aimerais recuperer le numero de process de l'instance lancé ^peut etre avec Process.GetProcessById(hInst) ou hinst représente l'ID mais je ne sais pas comment faire, en fait c'est pour pouvoir integrer ma page Word à ma forms.
Ou si quelqu'un a une autre idée pour inserer ma page word 2007 dans ma forms en vb .net je suis preneur

[medina_soft]

Bonjour
Essayer plutot d'utiliser le controle WebBrowser, vous pouvez ouvrir avec ce controle(en plus des pages web) plusieurs types de documents(texte,word,excel,pdf,...)

voila la syntaxe: WB.Navigate(Chemin & nomFich)

[battit64]

j'ai essayé et ça marche malheureusement cela m'ouvre word à l'exterieur de ma forms et pas dans mon control web

[battit64]

en fait ça marche avec l'ouverture des .doc mais pas des .docm..

[battit64]

oui mais j'ai un autre probleme en fait je fais appel au commande:

Code :

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

wordDoc = wordApp.Documents.Open(FileName:=Chemin & nomFich)

ou

Code :

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

1
2
    Dim wordApp As Word.Application = New Word.ApplicationClass()
    Dim wordDoc As Word._Document

le probleme si j'ouvre ma fenetre via

Code :

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

WebBrowser1.Navigate(Chemin & nomFich)

ça marche mais je peux plus faire appel au commande

Code :

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

wordapp.quit wordapp.close

comment faire? pour quitter ou faire un close de l'appli ou meme lancer une macro style

Code :

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

worddoc.nommacro(parametre)

[battit64]

peut etre apres avoir lancé le ficher doc par WebBrowser1.Navigate peut etre peut on recuperer l'objet par

Code :

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

1
2
3
4
 Dim wordApp As Word.Application
    Dim wordDoc As Word._Document
wordApp = GetObject(,"Word.Application")
et worddoc=wordapp (apres je sais pas)

pour pouvoir faire les commandes wordapp.close ect....