[VB.NET][2.0]Ouvrir Word ou un autre logiciel en cliquant sur un bouton

Version imprimable

08/11/2006, 11h04
batosai

[VB.NET][2.0]Ouvrir Word ou un autre logiciel en cliquant sur un bouton

Bonjour a tous,

Dans mon site web, je désirerais en cliquant sur un bouton, ouvrir par exemple word pour afficher le contenu d'un fichier dans une nouvelle fenêtre.
Je récupèrerais biensûre avant le chemin complet et valide de mon fichier.

Comment faire?

Hello

T'aurais pu chercher un peu plus sur ce coup ;)
Voilà Monsieur :

1 Ajouter la référence Microsoft Word 9.0 object library ou plus récent je sais pas avec quoi tu bosses.

2 Tu mets le code qui suit
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim WordApp As New Word.Application Dim WordDoc As Word.Document 'Ouverture du document au chemin contenu dans Text1 'ATTENTION AUCUNE VERIFICATION SUR LE CHEMIN dim obj as new object = ctype(textbox1.text, object) Set WordDoc = WordApp.Documents.Open(obj) Stop 'Fermeture du document SANS sauveagarde Call WordDoc.Close(False) 'Destcruction du document word Set WordDoc = Nothing 'Quitte l'application Word Call WordApp.Quit 'Destrcution de l'objet Word Application Set WordApp = Nothing
Je pense que ça devrait faire l'affaire . Bonne programmation

08/11/2006, 18h08
batosai

Le pb c'est que je n'ai pas de reference vers microsoft word dans visual studio 2005.

Commen je peux la retrouver?
09/11/2006, 11h07
maverickbj

Re Salut

Sur visual studio 2OO5 pour rajouter la référence tu suis ca:

Tu cliques Website puis /Add reference
Ensuite Clique sur le Tab COM c'est la que ça y est je l'ai fait hier.

Tu devrais trouver Microsoft Word 11.0 object library.
Si tu le trouves pas essai d'ajouter la référence Microsoft office 11 components d'abord et retourne sur la liste tu le trouveras normalement

Bon courage
09/11/2006, 14h19
batosai

ok merci je regarde ca....
merci

J'ai réussi a ouvrir word. Mais à chaque fois que je veux ouvirir un fichier, j'ai le message "Imposible d'ouvrir ..." puis il m'ouvre ensuite le fichier que je veux. Au moment de fermer il me demande si je veut remplacer le normal par le fichier que j'ai ouvert. Je ne sais pas a quoi correspond ce Normal.

C'est peut etre flou mais je vais vous donner mon code. J'aimerais que Word se ferme correctement. En me demandant a la limite si je veux bien enregistrer les modifications effectuées sur mon fichier mais pas autre chose.

voila comment je procede pour ouvir mon fichier:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Protected Sub GVAccueil_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) If (e.CommandName.Equals("OuvrirFichier")) Then Dim path As String Dim wordApp As New Word.Application Dim WordDoc As New Word.Document 'On récupère le chemin du fichier GVAccueil.SelectedIndex = e.CommandArgument path = GVAccueil.SelectedRow.Cells(1).Text + ".doc" 'On ouvre Word wordApp.Documents.Open(CType(path, Object)) WordDoc.Close(False) wordApp.ShowMe() wordApp.Visible = True GVAccueil.SelectedIndex = -1 End If End Sub

14/11/2006, 13h54
Arthis

Juste une petite question , a quoi ca sert d'ouvrir Word et de le mettre en visible sur le serveur , si tu lance la commande par un client?
14/11/2006, 14h20
batosai

Si je ne fait pas cette étape je ne vois pas la fenetre word...

Le fait d'ouvrir word permet de visionner le contenu du fichier. Cela évite de chercher dans les dossiers un fichier...
14/11/2006, 16h40
batosai
Voila j'ai changé mon code comme suit et ca fonctionne. La fonction document.add ne doit pas ouvir un fichier comme je le pensais. Je n'ai pas trouvé de doc la dessus. Si quelqu'un pouvait répondre à ce pb ca m'éclairerais quand meme ^^...

Le code final est :
Code:

1 2 3 4 'On ouvre Word wordApp.Documents.Add(CType(path, Object)) wordApp.Visible = True

Salut,

essaye ce code là ca marche avec tous les formats de fichier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 Response.Clear()
 
      Response.AddHeader("Content-Disposition", "attachment; filename=" + NomFichier)
 
                Dim ext As String
                Dim type As String
                ext = NomFichier.Substring(NomFichier.LastIndexOf(".") + 1)
                Select Case ext
                    Case ".htm", ".html"
                        type = "text/HTML"
                    Case ".txt"
                        type = "text/plain"
                    Case ".doc", ".rtf"
                        type = "Application/msword"
                    Case ".csv", ".xls"
                        type = "Application/x-msexcel"
                    Case ".pdf"
                        type = "Application/pdf"
                    Case Else
                        type = "text/plain"
                End Select
            Response.ContentType = type
            Response.Flush()
 
            Response.TransmitFile(NomFichier)
            Response.End()

14/11/2006, 18h25
batosai

avec ton code une fenetre s'ouvre demandant a l'utilisateur ce qu'il souhaite faire. Je voulais d'une part savoir si il etait possible de sauter cette étape et d'ouvrir directement le fichier.

Autre question : toujours dans cette fenetre, le nom du fichier a telecharger est le nom de ma page aspx et nom le nom du fichier en question. Comment faire pour avoir le vrai nom?

sinon ton code marche impec merci beaucoup ca devrait me simplifier la tache de faire comme ceci...
14/11/2006, 18h30
batosai

j'ai trouvé en fait, il suffit de changer la response.addheader(nomfichier, nomfichier)
voilou et encore merci je vais tester un peu plus tout ca....
15/11/2006, 09h55
batosai

En fait ca affiche dans la meme fenêtre le document word.
Est il possible de lancer tout ça dans une nouvelle fenêtre?