Discussion :

[damsmut]

Bonjour,

A partir d'Access, je fais de l'automatisation et donc j'ouvre un fichier Excel afin de le piloter.

Et je souhaite basculer d'une fenêtre à l'autre Access / Excel... mais cela ne marche pas toujours...

Donc dans Access j'ai ce bout de code... mais qui pourrait très bien être dans Excel...

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
Choix_Feuille_DDE:
    Dim Nom_Feuille As String
 
    AppActivate "Microsoft Access" 'ici Access s'active bien
    MsgBox "Veuillez sélectionner la feuille Excel.", vbQuestion, "CHOIX FEUILLE"
 
    AppActivate xlApp 'ici Excel s'active bien
    xlApp.CommandBars("Workbook tabs").ShowPopup 400, 300
    Nom_Feuille = xlWkbook.ActiveSheet.Name
 
    'Demande de confirmation de la feuille sélectionnée
    AppActivate "Microsoft Access", True 
'ici ça coince, la fenêtre Access s'active bien... elle clignote en orange dans la barre des tâche... mais la fenêtre ne passe pas au premier plan !!! comment faire ??
 
 
    Réponse = MsgBox("Est-ce la bonne feuille ? : " & Nom_Feuille, vbYesNo, "Confirmation")
    If Réponse = 7 Then GoTo Choix_Feuille_DDE

Ma question se trouve en commentaire dans le code ci-dessus --> "'ici ça coince, la fenêtre Access s'active bien... elle clignote en orange dans la barre des tâche... mais la fenêtre ne passe pas au premier plan !!! comment faire ??
"


--> Pour reformuler, comment faire pour activer Access ou Excel... passer d'une fenêtre à l'autre...


Merci
A+
Dams'

[casefayere]

Bonsoir,
Je ne manipule pas access mais avec excel l'instruction

Code :

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

windows("ta fenetre avec l'extension").Activate

Je ne sais pas si ça correspond à ta demande

Bonne soirée

[damsmut]

non ça ne marche pas sous access... par contre je pense que j'aurai du plutot poster dans le forum Access...

s'il y'a un Administrateur qui passe dans le coin... est-ce que tu peux déplacer ce post... merci