Utilisation pratique des API SendMessage ou PostMessage

Version imprimable

24/08/2016, 05h20
CognitiKom

Utilisation pratique des API SendMessage ou PostMessage
Bonjour

J'ai une application assez lourde en Excel dont le but est d'extraire des informations de documents PDF, Word, Excel, PowerPoint ou encore des fichiers image, sachant que je convertis les images et les PDF en .rtf pour les analyser comme du Word.

Du fait que ces extractions se font à partir de règles descriptives telles que : Extraire toutes les lignes à partir de la n° 2 de la colonne QUANTITÉ du tableau dont le titre supérieur commence par Ventes de l'année ou encore Extraire toutes les plages de texte du document commençant par un texte en gras, en police ARIAL ou COLIBRI de taille 12 à 16 et finissant au premier changement visuel - l'utilisateur doit disposer nativement d'environ 150 à 200 critères de ce type, sans compter tous ceux qu'il peut écrire par lui-même dans un classeur externe -, le traitement de pré-analyse des documents est devenu lourd et donc malheureusement lent.
Étonnement lent je devrais dire car concernant les documents que je traite sous Word (.doc et . rtf issus de documents océrisés), je viens de constater que le même traitement réalisé nativement en VBA sous Word s'exécute entre 10 et 40 fois plus rapidement qu'en VBA sous Excel.
Je vais donc devoir "sous-traiter" une partie de mon code à Word en arrière-plan.
Jusqu'ici, j'avais prévu des "fenêtres d'avancement" (UserForms) qui permettent de rassurer l'utilisateur sur le bon fonctionnement du programme. Ces fenêtres font notamment état de l'action en cours (ouverture du document, analyse des tableaux, etc.) mais indiquent également le pourcentage d'avancement de l'action en cours ainsi qu'un pourcentage évalué global.
Je souhaite maintenir ces fenêtres en place.
Entre autres solutions, j'ai commencé à explorer les API SendMessage et PostMessage : je voudrais que Word adresse régulièrement à mes fenêtres d'avancement Excel des données qui permettent de les actualiser.
- Pour le moment, je n'ai réussi qu'à modifier le bandeau de mes fenêtres : en pratique le bandeau est masqué pour être remplacé par un affichage personnalisé et donc ça ne me gênerait pas de récupérer les informations d'avancement via le bandeau, mais à ma connaissance il n'y a pas d'évènement "Bandeau_change".
- Je sais comment identifier le handle de ma fenêtre d'avancement ou celui d'un éventuel TextBox qui recevrait le message, mais la syntaxe des SendMessage / PostMessage m'échappe
- Et d'ailleurs, quelle API choisir ? Si j'ai bien compris, SendMessage attend un code retour alors que PostMessage est totalement asynchrone, mais est-ce la seule différence (sachant que j'ai déjà un début de réponse : j'ai réussi à faire marcher SendMessage (mal, mais bon) mais pas PostMessage.
Vos lumières seraient les bienvenues

Merci d'avance
Gilbert
24/08/2016, 08h49
araigné

Pas besoin d'API

Bonjour Gilbert,

Si vous souhaitez transiter des informations entre Excel et Word, dans votre cas il suffit de créer un objet en PublicNotCreatable dans Excel qui contient les méthodes et propriétés que vous voulez appeler depuis Word, un fois le code Word lancé, faites un callback vers Excel pour récupérer l'objet en late binding que vous pourrez manipuler depuis Word et donc le processus est hote dans Excel.

Je pourrai vous envoyer un exemple ce week-end car je n'ai pas de pc sous la main.

Bonne continuation.
24/08/2016, 10h55
CognitiKom

Bonjour Araigné

Un grand merci pour cette suggestion : je ne connaissais pas du tout.

Si vous pouvez m'envoyer un exemple, c'est sûr que cela m'arrangerait.

Bonne journée
Gilbert
24/08/2016, 11h23
kiki29

Salut, à voir : récupérer le texte d'un fichier PDF dans une feuille Excel , Pdf2Excel et dans la FAQ, et ici.
24/08/2016, 11h56
CognitiKom
Bonjour Kiki, le 29ème du nom, à moins que ce ne soit Kiki-le-Breton (moi je suis d'origine Normande, personne n'est parfait :D)

En fait, je ne m'intéresse pas seulement au contenu (= au texte) mais aussi à sa mise en forme et à sa position dans la page.
Je veux ainsi que l'utilisateur puisse par exemple dire au logiciel de :
- de récupérer le texte qui se trouve dans un "cadre" de x cm de large sur y cm de haut, situé à xx cm du haut de la page (voire de la marge haute apparente) et à yy cm du bord gauche de la page (voire de la marge gauche apparente)
- ou encore de récupérer la ou les plages de texte qui commencent par du texte en telle couleur (à n% près) et dans telle police ou telle autre et qui finissent au premier texte espacé verticalement de plus de 1 cm

1 pièce(s) jointe(s)

Chose promi....

Bonjour Giblert,

Voici l'exemple en pj.
Pour les plus curieux le code utilisé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
'Dans un module de classe appelé InterfaceWordToExcel
'A mettre en PublicNotCreatable
'Cet objet servira à communiquer entre Word et Excel.
 
Option Explicit
 
Public Sub ExempleMessage(Message As String)
 
    Call MsgBox(Message)
 
End Sub
 
Public Sub ExemplePrint(Val As Long)
 
    Debug.Print Val
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
'Dans un module std d'Excel
 
Option Explicit
 
Public Sub Exemple()
 
    Dim WdApp As Object
    Set WdApp = CreateObject("Word.Application")
 
    Dim WdDoc As Object
    Set WdDoc = WdApp.Documents.Open(ThisWorkbook.Path & "\Doc Word hote du code.docm")
 
    Call WdApp.Run("DebutCodeWord", New InterfaceWordToExcel)
 
    Call WdDoc.Close(False)
    Call WdApp.Quit
 
    Set WdDoc = Nothing
    Set WdApp = Nothing
 
End Sub

Et enfin le code dans Word!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
'Dans un module std
 
Public Sub DebutCodeWord(ObjetExcel As Object)
    'Il prend en entré l'objet Excel qui nous sert à retourner dans Excel
    Call ObjetExcel.ExempleMessage("Début")
 
    Dim i As Long
 
    For i = 0 To 99
        Call ObjetExcel.ExemplePrint(i)
    Next
 
    Call ObjetExcel.ExempleMessage("Fin")
 
End Sub

J'espère que tu réussira à implémenter la méthodologie sans trop de difficulté.
@+

26/08/2016, 21h16
clementmarcotte

Bonjour,

Citation:

Envoyé par CognitiKom

Bonjour Kiki, le 29ème du nom, à moins que ce ne soit Kiki-le-Breton (moi je suis d'origine Normande, personne n'est parfait :D)

Mes ancêtres de France aussi. (Fécamp)

Citation:

Envoyé par araigné

Bonjour Giblert,

Voici l'exemple en pj.
Pour les plus curieux le code utilisé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
'Dans un module de classe appelé InterfaceWordToExcel
'A mettre en PublicNotCreatable
'Cet objet servira à communiquer entre Word et Excel.
 
Option Explicit
 
Public Sub ExempleMessage(Message As String)
 
    Call MsgBox(Message)
 
End Sub
 
Public Sub ExemplePrint(Val As Long)
 
    Debug.Print Val
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
'Dans un module std d'Excel
 
Option Explicit
 
Public Sub Exemple()
 
    Dim WdApp As Object
    Set WdApp = CreateObject("Word.Application")
 
    Dim WdDoc As Object
    Set WdDoc = WdApp.Documents.Open(ThisWorkbook.Path & "\Doc Word hote du code.docm")
 
    Call WdApp.Run("DebutCodeWord", New InterfaceWordToExcel)
 
    Call WdDoc.Close(False)
    Call WdApp.Quit
 
    Set WdDoc = Nothing
    Set WdApp = Nothing
 
End Sub

Et enfin le code dans Word!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
'Dans un module std
 
Public Sub DebutCodeWord(ObjetExcel As Object)
    'Il prend en entré l'objet Excel qui nous sert à retourner dans Excel
    Call ObjetExcel.ExempleMessage("Début")
 
    Dim i As Long
 
    For i = 0 To 99
        Call ObjetExcel.ExemplePrint(i)
    Next
 
    Call ObjetExcel.ExempleMessage("Fin")
 
End Sub

J'espère que tu réussira à implémenter la méthodologie sans trop de difficulté.
@+

Un grand merci !

C'est super. Tu me sauves :D

Gilbert

29/08/2016, 08h14
araigné

À ce point là!!! :-D
Bonne chance pour la suite de ton projet.

Raphaël.
29/08/2016, 10h18
CognitiKom

Citation:

Envoyé par araigné

À ce point là!!! :-D

Non, quand même pas :)
Mais c'est vrai qu'avec les dizaines de difficultés :arf: que j'ai rencontrées jusqu'ici sur ce projet, une de moins est la bienvenue...:ave:

Gilbert