Discussion :

[lescalot]

Bonjour,

Je me trouve à débuger une macro écrite par un collègue qui n'est plus là.
Dans cette macro il lançait des programmes en fortran en //.
Sa programmation se termine par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
       If reponse > 0 Then
' Boucle d'attente de la fin d'exécution
 
                Do
 
                        reponse2 = OpenProcess(PROCESS_QUERY_INFORMATION, False, reponse)
                        Debug.Print reponse2
 
                Loop While (reponse2 <> 0)
        End If
End Sub

Je comprends la boucle do loop while mais qui peut m'expliquer les commandes OpenProcess et debug.print

Je pense qu'il s'agit d'une boucle permettant d'attendre qu'un fortran soit terminé

Merci

[aalex_38]

Bonjour,

Debug.Print est juste la pour ecrire une info dans le debugueur, ici on ecrit la valeur de reponse2

OpenProcess est une fonction windows qui se trouve dans une dll (kernel32)
il me semble qu'elle sert souvent pour recuperer l'identifiant du processus, pour en savoir plus tu peux regarder sa définition sur le site MSDN :

The handle returned by the OpenProcess function can be used in any function that requires a handle to a process, such as the wait functions, provided the appropriate access rights were requested.

Elle doit être déclarée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Je pense qu'il s'agit d'une boucle permettant d'attendre qu'un fortran soit terminé

Bon y a qu'un tout petit bout de code mais on semble effectivement attendre la fin d'un processus (variable reponse)

[lescalot]

Je pense avoir saisi le sens de l'openprocess, par contre si quelqu'un pouvait m'expliquer les paramètres de la parenthèse peut être arriverai je à debuguer le programme.
En fait je pense que cette phrase a été écrite pour windows 2000 et maintenant on est sous XP. J'ai donc une correction de syntaxe à faire.

Pour debug.print j'ai compris qu'il s'agissait d'écrire dans debug, mais quel est ce fichier "debug"

Désolé de ne donner de mes nouvelles que maintenant mais j'étais très pris ces derniers temps.

Merci à tous

[aalex_38]

Bonjour,

Pour debug.print j'ai compris qu'il s'agissait d'écrire dans debug, mais quel est ce fichier "debug"

Le résultat du debug peut être consulté dans la fenêtre d'execution (CTRL + G)

[aalex_38]

Je pense avoir saisi le sens de l'openprocess, par contre si quelqu'un pouvait m'expliquer les paramètres de la parenthèse peut être arriverai je à debuguer le programme.

Openprocess n'est pas de code VBA mais une fonction windows ici appelée par VBA, tu peux trouver sa définition dans MSDN

[lescalot]

Ok merci à tous