Discussion :

[geredonis]

Bonjour,

J'ouvre un classeur excel nommé "Outil" par le code suivant :

Code :

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

1
2
3
4
5
6
7
    Dim xlApp As Excel.Application
    Dim xlwbk As Excel.Workbook
 
    Set xlApp = CreateObject("Excel.Application")
 
    xlApp.Visible = True
    Set xlwbk = xlApp.Workbooks.Open("E:\sauvegarde fichiers\Outil.xlsm")

Ce code fonctionne parfaitement mais le classeur Outil.xlsm reste en arrière plan. J'aimerais le voir directement.

Merci pour votre aide.
Dominique

[patricktoulon]

Bonjour
il y a les api windows pour ca

mais sans aller jusque la tu pourrais faire une chose toute simple
c'est activer un sheets du classeur outils

sinon avec les apis findindow et setforeground

[Docmarti]

Bonjour.

AppActivate est fait pour ça.

Code :

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

AppActivate "Outil.xlsm"

[geredonis]

Désolé mais le code avec Appactivate ne fonctionne pas.

[PMO2017]

Bonjour,

Avec votre code, vous créez une nouvelle instance Excel.

A partir de quelle application votre code est-il lancé ?
1) Excel
2) Une autre application (Word, PowerPoint, etc)

Si c'est Excel, vous pouvez directement ouvrir dans l'instance Excel existante

Code :

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

1
2
3
4
5
Sub aa()
Dim xlwbk As Workbook
'---
Set xlwbk = Workbooks.Open("E:\sauvegarde fichiers\Outil.xlsm")
End Sub

Merci de préciser l'application qui lance la procédure.

[Docmarti]

Désolé mais le code avec Appactivate ne fonctionne pas.

Pourrais-tu être plus précis : Est-ce que le code suivant produit une erreur? Si oui, quel est le message d'erreur et quelle ligne (quelle commande) produit cette erreur?

Code :

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

1
2
3
xlApp.Visible = True
AppActivate Application.Caption
AppActivate xlwbk.Name