Pb ouvrir fichier XPS en VBA...

  • Initiateur de la discussion Initiateur de la discussion Neo_MTL
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Neo_MTL

XLDnaute Nouveau
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

Code:
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
 
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)
Code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long
Code:
Private Sub Visionner_XPS(Chemin$, NomFic$)
Dim x$, retval
x = Chemin + NomFic
retval = ShellExecute(0&, vbNullString, x, vbNullString, vbNullString, vbNormalFocus)
End Sub

Code:
Sub a()
Visionner_XPS "c:\Temp\", "es_Grises.xps"
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour