Excel VBA erreur à l'aide de WScript.Shell.Exécuter

Après avoir récemment mise à niveau à partir de microsoft Excel 2010 Excel 2013, j'ai déménagé un complément personnalisé (.xlam) à la nouvelle Application.Chemin_accès_librairie répertoire (C:\Program Files\Microsoft Office 15\root\office15\Library\BTRTools). Il y a un peu de code qui lance un fichier exécutable (exe) (situé dans le sous répertoire de l'add-in). Cependant, depuis la mise à niveau/déplacer, je ne suis pas d'avoir une erreur:

PrettyPrintXml.exe - Application Error

The application was unable to start correctly (0xc000007b). Click OK to close the application.

Je suis évidemment assez convaincu que c'est les autorisations de fichier. J'ai ajouté moi-même les autorisations de plein droit à l' \dossier Bibliothèque (et tous les sous-marins). A noter que je pense que j'ai eu à le faire même avec Excel 2010 (dossier à C:\Program Files (x86)\Microsoft Office\Office14\Library) pour faire fonctionner les choses.

Cependant, après tout cela, je suis toujours bloqué et ne peut pas lancer le fichier exe. Toutes les idées/suggestions sur la façon de faire ce travail?

Code est assez standard:

Public Sub RunShellExecute(sFile As String, Optional params As String = "", Optional wait As Boolean = False)

Dim wsh As Object: Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = wait
Dim windowStyle As Integer: windowStyle = 1
Dim exe As String: exe = IIf(Left(sFile, 1) <> """", """" & sFile & """", sFile)
Dim exeParams As String: exeParams = IIf(params <> "", " " & params, "")
Dim errorCode As Integer: errorCode = wsh.Run(exe & exeParams, windowStyle, waitOnReturn)

If errorCode = 0 Then
    '//MsgBox "Done! No error to report."
Else
    MsgBox "Program exited with error code " & errorCode & "."
End If

End Sub
0xc000007b est un STATUS_INVALID_IMAGE_FORMAT erreur. Il peut être un 32 - et 64-bit dll problème plutôt que d'un problème d'autorisations.
Pas sûr à 100%. Si je déplace mon ensemble de l'ajouter dans le répertoire de l'ancien emplacement (..Office14\Library) tout fonctionne. Le problème avec ceci est puis "lien automatique de mise à jour" ne fonctionne pas b/c Excel recherche uniquement pour des compléments dans le Chemin_accès_librairie et UserLibraryPath répertoires. Vous pensez que cela peut être parce que même si mon Excel installer est de 32 bits, il a fait ses Chemin_accès_librairie répertoire de la c:\Program Files\ au lieu de c:\Program Files (x86)? Je suis sûr que j'ai essayé le UserLibraryPath et a obtenu le même résultat, mais je vais vérifier ça aujourd'hui.

OriginalL'auteur Terry | 2013-09-27