Discussion :

[DenisHen]

Bonjour à tous,

Voilà, j'ai fais une macro qui dessine dans un logiciel appelé AutoCAD. Tout fonctionne très bien, au lancement de la macro, AutoCAD passe bien au premier plan et on voit "progresser" le dessin.

Mais lorsqu'Excel affiche une MsgBox ou une InputBox, Excel reste en arrière plan, sans montrer sa fenêtre...

J'aimerai juste savoir comment faire passer Excel ou juste le MsgBox au premier plan...

Merci à tous et bonne journée...

Denis...

[Menhir]

As-tu essayé de faire avec ta MsgBox un simple

Code :

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

Windows("MonFichier").Activate

Tu peux aussi tenter :

Code :

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

Application.Activate

[DenisHen]

Bonjour Menhir et merci de m'aider.

Mais aucune de tes deux propositions ne fonctionnent.

J'ai juste Excel qui clignote dans le barre des taches mais le "focus" reste sur AutoCAD...

J'ai aussi essayé :

Code :

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

Windows(NomFichier).Visible = True

Code :

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

Windows(NomFichier).OnWindow = True

Même résultat...

Denis...

[Menhir]

Tu as mis ça avant ou après ta MsgBox ?

[Menhir]

Tu peux aussi essayer

Code :

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

1
2
Application.WindowState = xlMinimized
Application.WindowState = xlNormal

Autre possibilité

Code :

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

Application.UserControl = True

Tu n'aurais pas mis dans ton code des instruction pour empêcher le rafraichissement d'Excel ou des trucs dans le genre ?

[DenisHen]

Merci pour ton aide Menhir...

Je mets tes propositions avant ma MsgBox...

Rien ne fonctionne... Toujours le même clignotement dans la barre des taches...

[Menhir]

L'application qui lance la macro, est-ce AutoCAD ou Excel ?

[DenisHen]

L'application est bien Excel, En gros, la macro :
- lance AutoCAD s'il n'est pas lancé,
- ouvre un nouveau document AutoCAD,
- dessine des points et des textes s'il y a lieu...

Les points (2D ou 3D) sont dans un calque séparé. S'il n'y a pas de nom de calque dans la bonne cellule du classeur, j'ai une MsgBox qui dit qu"il n'y a pas de nom au calque des points et Exit Sub...

Dons, je clique sur une commande dans mon ruban sous Excel, AutoCAD prend la main et Excel affiche une MsgBox "derrière" AutoCAD...

C'est pour celà que j'aimerai refaire passer Excel au premier plan, pour voir cette MsgBox...

[Invité]

bonjour,
je n'ai pas encore trouvé toute l’arborescence, mais juste à titre de piste; l’idée est d'executer les commande Excel dans le projet AutoCad, ainsi les message ne sont pas masqués par autocad car il émane de lui!

Code :

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

ObjAutocadApplication.ACADProject.VBA.MsgBox "toto"

je recherche si cette solution est possible mais je la donne en pâture à plusieur on est plus fort!

[Menhir]

J'avais songé aussi à la commande qui permet de simuler une frappe au clavier (mais comme j'évite de l'utiliser, j'ai oublié son nom et je n'arrive pas à le retrouver) pour simuler l'appui sur Alt+Tab pour changer d'application.

[DenisHen]

Merci à vous deux pour votre aide...

Bon, je n'ai pas réussi à adapter la proposition de rdurupt, en fait, dans mes déclaration, j'ai ça :

Code :

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

1
2
    Dim AcadApp As AcadApplication
    Dim DocAutoCad As Object

Et là our j'ai mon MsgBox :

Code :

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

        If Calque = "" Then MsgBox "Le nom du calque des ""Points XY"" n'est pas défini", vbOKOnly, "Attention...": Exit Sub