cs_cissou06
Messages postés124Date d'inscriptionmercredi 2 juillet 2003StatutMembreDernière intervention16 mai 2007
-
14 mai 2007 à 12:01
cs_cissou06
Messages postés124Date d'inscriptionmercredi 2 juillet 2003StatutMembreDernière intervention16 mai 2007
-
16 mai 2007 à 09:26
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.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 14 mai 2007 à 15:21
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~
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_cissou06
Messages postés124Date d'inscriptionmercredi 2 juillet 2003StatutMembreDernière intervention16 mai 20071 14 mai 2007 à 16:13
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!
cs_cissou06
Messages postés124Date d'inscriptionmercredi 2 juillet 2003StatutMembreDernière intervention16 mai 20071 15 mai 2007 à 09:33
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...