Faire passer Excel au 1er plan

Résolu
Signaler
Messages postés
124
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 mai 2007
-
Messages postés
124
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 mai 2007
-
Bonjour!

Je développe un outil en VBA sous Visio qui rempli une feuille sous Excel. J'aimerais à la fin pouvoir montrer la feuille Excel, c'est-à-dire la faire passer en premier plan.

Quelqu'un peut m'aider? Merci d'avance!

10 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Comme ceci, ça devrait suffire

    xlApp.WindowState = xlMaximized
    xlApp.Visible = True

MPi
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
tu peux utiliser AppActivate

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
un peu de code ca serait bien non?

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

c'est clair que c'est maigre comme infos..
Si c'est toi qui rempli les données par code, à la fin suffit de faire un Sheets("Nom de ta feuille").Activate, et voilà.

Sinon, si tu veux pas que qqun sélectionne une autre feuille, il suffit de mettre cette procédure :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Sh.Activate  ' ou Sheets("NomFeuille").Activate
End Sub

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
  
Messages postés
124
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 mai 2007

Merci pour vos réponses mais rien ne marche... Ma fenêtre Visio à partir de laquelle le code est déroulé est désactivée mais reste en 1er plan alors que je voudrais voir ma feuille Excel...

Je continue à chercher. Si jamais vous avez plus d'infos à me donner je prends! Merci!
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
xlApp.Visible = True   'où xlApp est ton objet Excel.Application
devrait suffire

MPi
Messages postés
124
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 mai 2007

En fait je me suis rendue compte que ça marche si ma fenêtre Excel est en arrière plan. Par contre si elle est réduite (qu'elle se trouve dans la barre des applications mais qu'elle n'est pas en arrière plan de Visio) ça ne la fait pas apparaître...

J'ai essayé Excel.Application.ActiveWindow.WindowState=xlMaximized mais ça ne la fait pas apparaitre non plus...

Merci quand même...
Messages postés
124
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 mai 2007

Merci bcp! Je pensais en fait que WindowState ne pouvait s'appliquer qu'à un objet de type Window....
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Problème résolu alors ou bien?

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
124
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 mai 2007

Oui, oui! Merci à tous pour votre aide!