Discussion :

[Godzestla]

Bonjour,

après avoir au départ d'excel:
1)ouvert un document word et affiché la boite de dialogue de sélection d'imprimante dans word
Code Word

Code :

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

1
2
3
4
 
Sub Document_Open()
    Dialogs(wdDialogFilePrint).Show
End Sub

2) Attendu Word tant que la boite de dialogue Sélection d'imprimante est affiché dans Word
Code Excel

Code :

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

1
2
3
4
 
        'Wait for Dialog window closed
        Do While WordApp.Dialogs(wdDialogFilePrint) = True
        Loop

Je voudrais ramener excel (ThisWorkbook) au premier plan.

Comment faire

[fring]

Bonjour,

et pourquoi pas

Code :

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

Workbooks("MonClasseur.xls").Activate

ou si c'est le classeur qui contient la macro

Code :

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

ThisWorkbook.Activate

[Godzestla]

Salut Fring,
je viens d'essayer.

cela ne me mets pas Excel en avant-plan, désolé.

C'est Word qui reste en avant.

[fring]

Et tu l'as inséré où ce bout de code ?

[Godzestla]

Salut,

Voici le code excel en question qui se trouve dans le Workbook excel maitre

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Open_Files_Button_Click()
Application.StatusBar = False
Open_Detailled
Open_Personal
Open_French_Model           'Ouverture du premier fichier word
Open_German_Model 'Ouverture du second fichier Word
Enable_Checkup                'Chnage les propriétés d'un bouton 
ExcelPremierPlan
End Sub

Sub Open_German_Model()
'

    Master_workbook = ThisWorkbook.name
    Windows(Master_workbook).Activate
    Sheets("Tools").Select
    Bonus_German_Model_File_Cell = "G26"
    Bonus_German_Model_File_Status_Cell = "G34"
    Bonus_German_Model_File = Range(Bonus_German_Model_File_Cell).Value
    If Not CheckWordFileOpen(Bonus_German_Model_File) Then
        'ouvre session word
         Set Bonus_WordAppDe = New Word.Application
        'ouvre du document Word
         Set Bonus_Word_German = Bonus_WordAppDe.Documents.Open(Bonus_German_Model_File)
         DoEvents 'Yields execution so that the operating system can process other events.
        'word est masqué si pas debug Mode
        Bonus_WordAppDe.Visible = Bonus_Debug
        'Wait for Dialog window closed
        Do While Bonus_WordAppFr.Dialogs(wdDialogFilePrint) = True
        Loop

    End If
    
    Windows(Master_workbook).Activate
    Sheets("Tools").Select
    Range(Bonus_German_Model_File_Status_Cell).Value = "*OPENED*"
    Range(Bonus_German_Model_File_Status_Cell).HorizontalAlignment = xlCenter
End Sub

Sub ExcelPremierPlan()
ThisWorkbook.Activate
End Sub

[fring]

en effet...bin...là je cale
Windows("monclasseur.xls").Activate ne fonctionne que lorsqu'on reste dans l'application Excel, dès qu'une autre application est activée cela ne fonctionne plus.

Ya surement un truc tout bête mais là je ne le vois pas