Activation classeur VBA

Bonjour,

Dans le déroulement d'une macro, je crée un dossier explorer et bascule sur celui ci pour visualiser la création de documents.

Sauf que je ne parviens pas à revenir automatiquement sur le classeur excel une fois les documents générés.

J'ai vérifié, les variables semblent me donner les bon noms de classeur et lorsque je cherche dans l'explorer j'ai bien le document....

Dim classeur As String
Application.Visible = True
classeur = ActiveWorkbook.Name
Application.DisplayAlerts = True
Application.ScreenUpdating = True

Windows(classeur).Activate
MsgBox ("Documents générés")
    

Avez-vous une idée ?

Cordialement,

Ch@p'

Bonjour,

Essayer ceci

    Dim classeur As Workbook

    Application.Visible = True
    Set classeur = ActiveWorkbook
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    classeur.Activate
    MsgBox ("Documents générés")

Bonjour ChapiChapo, bonjour le forum,

Peut-être en remplaçant :

Windows(classeur).Activate

par :

Workbooks(classeur).Activate

[Édition]

Bonjour Thev, nos post se sont croisés...

Merci à tous les deux,

Je viens de tester les deux méthodes que vous m'avez proposé.

Hélas, le classeur reste toujours derrière la fenêtre Explorer ouverte et refuse de revenir au premier plan....

D'autres idées ?

Cordialement,

Ch@p'

Bonjour,

Tout dépend de la façon dont tu as créé ta fenêtre "explorer " .

Il est possible que cette fenêtre appartienne au classeur où se déroule ton code (objet: ThisWorkBook), auquel cas ce code pourrait convenir :

 
    Dim window1 As Window, window2 As Window

    Set window1 = thisworkwook.Windows(1)   'fenêtre du classeur
    Set window2 = thisworkwook.Windows(2)   'fenêtre d'explorer  si rattachée au classeur
    window1.Activate

Sinon, il faut passer par des APIs pour intervenir sur les 2 fenêtres.

Marche pas non plus,

Cela ouvre un nouveau classeur Excel, mais pas celui que j'ai déjà ouvert....

Dommage...

Cordialement.

Ch@p'