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.