Pb ouvrir fichier XPS en VBA...

[Neo_MTL]

Bonjour à tous,

Voici mon problème. Je n'arrive pas à ouvrir un fichier XPS sur le réseau via le code VBA. Il m'arrive une erreur du type

erreur d'exécution 5147221018 (800401e6)

Si je vais voir qu'elle est ce type d'erreur, cela me dit que c'est une erreur "Extension incorrect de fichier."

Le code que nous utilisons est le suivant

Sub OuvrirFichAttach()
 
    ActiveWorkbook.FollowHyperlink "Path_du_fichier\Nom_du_fichier.XPS", NewWindow:=True
    On Error Resume Next
    Application.CommandBars("Web").Visible = False
    ActiveWindow.WindowState = xlMaximized
    On Error GoTo 0
    ThisWorkbook.Close False
 
End Sub

Nous avons aussi essayé au lieu de ActiveWorkbook, Application et ça ne fonctionne pas.

Nous voulons trouver un code sans utiliser le Shell si possible....

Merci à l'avance


Neo

 

[Staple1600]

Re : Pb ouvrir fichier XPS en VBA...

Bonsoir à tous

Nous voulons trouver un code sans utiliser le Shell si possible....

Donc désolé mais sans respecter cette consigne, cela fonctionne 😉

Test OK en local avec W7 et XL2013
(le fichier XPS est ouvert dans Visionneuse XPS)

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long

Private Sub Visionner_XPS(Chemin$, NomFic$)
Dim x$, retval
x = Chemin + NomFic
retval = ShellExecute(0&, vbNullString, x, vbNullString, vbNullString, vbNormalFocus)
End Sub

Sub a()
Visionner_XPS "c:\Temp\", "es_Grises.xps"
End Sub