Apercu Web browser word Excel

Bonjour,

je rencontre un problème d’aperçu avec web browser.Je souhaite avoir l’aperçu (type fenêtre d’aperçu Windows) du fichier Word, excel,texte et PDF (pr les deux derniers ça fonctionne )

Mais :

Problème n°1 :

- ne fonctionne pas avec Word et excel

Problème n°2 :

- éviter d'avoir la fenêtre de sélection du fichier ;je souhaiterais que lorsque je clique sur un bouton "aperçu" sur la ligne correspondante (lien hypertexte dans la cellule d'a coté)

Voir fichier test ci-joint...

Dans un module j'ai :

'Aperçu

Option Explicit

Public Fichier As Variant

'Public Fichier2 As Variant

Sub SelectPDF()

ChDir ThisWorkbook.Path & "\"

'Fichier = Application.GetOpenFilename("Fichier PDF (*.pdf), *.pdf")

'Fichier2 = Application.GetOpenFilename("Text Files (*.txt),* .txt")

Fichier = Application.GetOpenFilename("*,*")

',Add-In Files (*.xla),*.xla")

If Fichier <> False Then Aperçu.Show

'If Fichier2 <> False Then Aperçu.Show

End Sub

Et l'userform

Option Explicit

Private Sub UserForm_Initialize()

With Aperçu

.Height = 600

.Width = 600

End With

With WebBrowser1

.Left = 5

.Top = 5

.Width = Aperçu.Width - 10

.Height = Aperçu.Height - 35

End With

WebBrowser1.Navigate Fichier

'WebBrowser2.Navigate Fichier2

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

'Private Sub WebBrowser2_StatusTextChange(ByVal Text As String)

'End Sub

Pour rappel je suis debutant...

Merci et bonne journée.

17test.xlsm (32.01 Ko)
Rechercher des sujets similaires à "apercu web browser word"