Discussion :

[curt]

Bonsoir à tous,

j'ai Access 2007 sur deux postes : un vista et un XP. La même base sur les deux postes (exactement la même copie !!).

Sur XP, lorsque j'ouvre Excel via Access, Excel s'ouvre au premier plan (par dessus Access).

Sur Vista, Excel reste dans la barre des tâches et je dois cliquer dessus pour le passer "par dessus" Access.

La seule différence est l'OS installé.

Où est l'astuce dans Vista (ou Access) pour avoir Excel au premier plan ?

Bonne soirée.
Curt

[Domi2]

Bonjour,

Pourrais-tu poster la partie du code qui instancie et ouvre Excel ?

Domi2

[curt]

Bonjour Domi2,

Le code est ci-dessous. Le lancement se fait à partir d'un module (j'utilise un bouton du Ruban pour lancer l'ouverture du fichier modèle 'Importation XL - Access.xlt')

Merci pour ton aide.
Bonne journée.
Curt

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub btnListeExcel(ByVal control As IRibbonControl)
On Error GoTo Err_btnListeExcel
 
Dim xls As Excel.Application
 
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "C:\Program Files\MaBase\Importation XL - Access.xlt"
xls.visible = True
Exit Sub
 
Exit_btnListeExcel:
Exit Sub
 
Err_btnListeExcel:
MsgBox "Le fichier 'Importation XL - Access.xlt' est introuvable." & Chr(13) & "Veuillez le recopier dans le dossier C:\Program files\MaBase", , "Information !"
Resume Exit_btnListeExcel
 
End Sub

[Domi2]

J'observe effectivement le même comportement (sous Vista, je ne peux pas tester sous XP actuellement).

Comme ceci, cela fonctionne :

Code :

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

1
2
3
4
5
6
7
8
Dim appXls As New Excel.Application
 
With appXls
 
    .Workbooks.Open "C:\Program Files\MaBase\Importation XL - Access.xlt"
    .Visible = True
 
End With

A tester, également sous XP.

Domi2

[curt]

merci pour ton aide Domi2,

mais le résultat est le même :

Sur XP, Excel s'ouvre "par dessus" Access
Sur Vista, Excel reste dans la barre des tâches...

J'ai pas d'idée .....

Curt

[Domi2]

Je viens de retester...

Cela fonctionne, la seule différence que je note est que j'ai ouvert un .xls...

Et je n'ai pas d'autres idées non plus...

Domi2

[LedZeppII]

Bonjour,

Une méthode avec la fonction ShellExecute de l'API.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL As Long = 1
 
Private Sub OpenFromXLT()
Dim strXLT As String
 
strXLT = "C:\Mes Documents\Excel\LeTemplate.xlt"
ShellExecute Application.hWndAccessApp, "new", strXLT, "", "", SW_SHOWNORMAL
End Sub

Ça marche sous XP. Je ne sais pas ce que ça donne sous Vista.

A+

[curt]

Bonjour LedZeppII,

ça fonctionne nickel.
Merci à toi et à Domi2 pour cette aide précieuse.

C'était la dernière question (résolue) de l'année.

Je vous adresse tous mes voeux pour l'année qui arrive.
Tous mes voeux aux lecteurs, rédacteurs, modérateurs,etc de ce fabuleux forum.

BONNE ANNEE 2009 A VOUS TOUS.

Curt