Focus sur 2e classeur Excel en VBA

Version imprimable

08/06/2015, 15h55
Fanfan2A

Focus sur 2e classeur Excel en VBA

Bonjour. Je vais essayer de faire simple en allant à l'essentiel.
J'ai 2 classeurs ouverts dans la même instance d'Excel; le classeur 1 peut mettre à jour le classeur 2 soit en mode automatique, soit en mode manuel suivi immédiatement du mode automatique.
Le mode automatique seul ne pose pas de problème; c'est lorsque le mode manuel doit s'effectuer avant que cela se corse...
Pour cela, il faudrait donc que la procédure du classeur 1 fasse les actions suivantes :
- activer le classeur 2
- rendre visible la ListBox de la feuille 1
- activer la mise à jour de l'affichage
- lui donner le focus comment ?
(modifications manuelles et successives effectuées par l'utilisateur)
- reprendre le focus (classeur 1) comment ?
- faire la mise à jour automatique
- enregistrer le classeur 2 et le fermer

Sachant qu'il ne s'agit pas d'attendre la fin d'un processus, que le choix dans la ListBox ne peut pas se faire automatiquement.
Ma question est :
Est-il possible qu'une procédure du classeur 1 donne la main au classeur 2 ? Comment ?
Comment le classeur 2 peut-il reprendre la main ? (réponse à une boite de dialogue style "cliquez sur OK quand vous avez terminé la màj")

Sinon quelle autre solution ?

Je reste à votre disposition pour tout complément d'information.
Cordialement

Bonjour

Supposons que l'un des classeurs s'appelle Classeur3.xlsm et l'autre Classeur4.xlsm.

Code:

1
2
3
4
5
6
7
8
9
10
'Dans ThisWorBook de Classeur3.xlsm
Private Sub Workbook_Activate()
 Debug.Print ThisWorkbook.Name & " activate"
 'Code a executer
End Sub
 
'Dans un module de Classeur3.xlsm
Sub ActiverClasseur4()
 Workbooks("Classeur4.xlsm").Activate
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
'Dans ThisWorBook de Classeur4.xlsm
Private Sub Workbook_Activate()
 Debug.Print ThisWorkbook.Name & " activate"
 'Code a executer
End Sub
 
'Dans un module de Classeur4.xlsm
Sub ActiverClasseur3()
 Workbooks("Classeur3.xlsm").Activate
End Sub

Merci de votre réponse Docmarti, mais ceci n'est pas possible pour plusieurs raisons. (je ne voulais pas trop rentrer dans les détails mais bon...)
Le classeur 1 (principal) permet une multitude de fonctions, dont celle d'export qui permet de mettre à jour le classeur 2 (qui est à usage professionnel, qui contient des données propres à chaque employé et qui n'est modifiable, sauf sur quelques cellules non protégées).
Voici une partie de code de la procédure d'export du classeur 1 que je n'arrive pas à terminer car je ne sais pas comment la mettre en "pause" pour autoriser la modification manuelle du classeur 2, puis la faire reprendre lorsque cette modification est terminée :

Code:

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
                Rep = MsgBox(m, vbQuestion + vbYesNo, T)
                If Rep = vbYes Then
                    K.Sheets(iO1).Activate          ' onglet 1
                    ' vérification RT
                    T = "Vérification du régime de travail"
                    m = "Le régime actuel est :" & vbLf & [ChoixRégime] & vbLf & vbLf & "Voulez-vous le modifier ?"
                    Rep = MsgBox(m, vbQuestion + vbYesNo + vbDefaultButton2, T)
                    If Rep = vbYes Then
                        dH = [dureeHebdo]: txU = [tauxUtil]: NbS = [nbSemCycle]
                        Application.ScreenUpdating = True
                        ' activer le choix du régime
                        ActiveSheet.ListeRégime.Visible = True
                        T = "Modification R.T de " & e_NOM
                        m = "Veuillez modifier le régime de travail puis poursuivez le déroulement du formulaire en cliquant sur les boutons " & G & "Continuer" & G & "jusqu'à la section 6."
                        MsgBox m, vbInformation, T
                        ' puis choisir le régime
                        T = "ATTENTE FIN DE MISE A JOUR"
                        m = "Lorsque vous aurez validé la section 6, n'oubliez-pas de cliquer sur le bouton OK de cette boite de dialogue !" & vbLf & vbLf & "Avez-vous cliqué sur le bouton Valider de la section 6 ?"
                        Do
                            ' ?
                            DoEvents
                            Rep = MsgBox(m, vbQuestion + vbYesNoCancel + vbDefaultButton2, T)
                        Loop While Rep = vbNo
                        If Rep = vbCancel Then
                            Application.EnableEvents = True
                            Set K = Nothing
                            Exit Sub
                        End If
                        ThisWorkbook.Activate
                        Application.ScreenUpdating = False
                        '
                    End If
                    ' écriture des valeurs                    (mise à jour en mode automatique)
                    ActiveSheet.Unprotect (MdP)
                    If ActiveSheet.boutonModification = False Then ActiveSheet.boutonModification = True
                    If [aCompter] <> CDate(e_DATE) Then [aCompter] = CDate(e_DATE)
                    [dateSign] = Date
                    RT_C = [nbSemCycle]

Cordialement.