VBA Excel, problème peu commun

Bonjour,

Je vais essayer d'exposer mon problème clairement :)

En gros :

J'ai un dossier dans lequel j'ai un xls, un exe et un txt.

L'exe est un programme codé en C qui ouvre le txt, l'analyse et crée un autre fichier txt avec des statistiques. Quand je double click sur l'exe, tout se passe normalement et analyse le fichier texte et fait son boulot.

Dans mon xls, j'ai une macro qui lance l'exe via :

[CODE]Path = Workbooks("Simulateur_RRC.xls").Path
RetVal = Shell(Path + "\" + "file_analyzer.exe", 1)
Windows("Simulateur_RRC.xls").Activate[/CODE]

Et quand je click sur le bouton, ça lance bien mon exe mais l'exe ne fait pas ce qu'il faut. On arrive directement en fin de l'exe et il ne fait pas son boulot.

Plus de détails :

L'exe en gros :

if (fichier = fopen("nom.txt","r"))
{
analyse ....
affichage avancement ...
fclose(fichier);
}

printf("info...");
system("PAUSE");

Donc :

quand je double click sur l'exe : je sais que tout se passe bien grâce aux infos sur l'avancement de l'analyse

quand je lance mon exe via VB, j'ai juste le printf("info"); et le system("PAUSE"); de la fin mais bien sur les infos affichés sont vides.

Bref je comprends vraiment et en essayant avec un autre exe basique qui affiche des nombres aléatoires, tout marche très bien ...

Voilà s'il y'a quelqu'un qui connait ce problème ou un spécialiste de VB ....

Merci

 

 

concatène pas avec +

ActiveWorkbook.Path suffit ^^

enfin, ici, on attend pas la fin de l'execution de l'exe externe, c'est peut etre voulu.

mais le soucis, pour moi, c'est que tu précise pas le Working directory...
fopen("nom.txt","r"))

Ah peux-tu développer le "enfin, ici, on attend pas la fin de l'execution de l'exe externe, c'est peut etre voulu. " stp ?

Pour le code en C j'ai tapé juste quelques lignes pour expliquer le principe mais c'est un peu plus complexe dedans :)

J'ai essayé d'incorporer ta fonction à mon fichier excel mais je ne sais pas trop comment faire en fait ...

J'ai tout copier coller dans un module et en testant avec ExecCmd "P:\Excel simulateur RRC\file_analyzer.exe", j'ai une petite erreur ... il me dit que seul les commentaires peuvent apparaitre après les End Sub

Ca concerne les lignes :

Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Public Declare Function GetExitCodeProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpExitCode As Long) As Long
Public Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long
Public Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Je pense que ça doit être comme des déclarations de prototypes en C mais je ne sais pas où les mettre par contre : /

euh idem pour la fonction ShellExecute, je ne sais pas où mettre

Declare Function ShellExecute Lib "Shell"(hWnd As Integer, lpszOp
As String, lpszFile As String, lpszParams As String, lpszDir As
String, fsShowCmd As Integer) As Integer
Declare Function FindWindow Lib "User"(lpClassName$, lpWindowName As
Long) As Integer

Merci pour tes réponses

Suite à ce que j'ai compris, j'ai mis ça :

Sub analyser_fichier()

Declare Function ShellExecute Lib "Shell" (hWnd As Integer, lpszOp As String, lpszFile As String, lpszParams As String, lpszDir As String, fsShowCmd As Integer) As Integer
Declare Function FindWindow Lib "User" (lpClassName$, lpWindowName As Long) As Integer

hWnd = FindWindow("OPUSAPP", 0)
X = ShellExecute(hWnd, "Open", "P:\Excel simulateur RRC\file_analyzer.exe", "", "", 1)

End Sub


Par contre quand je lance, j'ai de nouveau le même message disant que seuls les commentaires peuvent apparaitre après les End machin :( 

ah ok :)

j'ai déplacé les declare en haut et je n'ai plus la même erreur mais quand j'exécute je pense que il y'a un problème avec

hWnd = FindWindow("OPUSAPP", 0)
X = ShellExecute(hWnd, "Open", "P:\Excel simulateur RRC\file_analyzer.exe", "", "", 1)

J'ai essayer de changer le paramètre "OPUSAPP" par le nom de la feuille ou du fichier xls mais ça ne change pas ...

j'ai une erreur disant que le fichier User est introuvable ...