Application.Dialogs(xlDialogOpen).Show

[Temjeh]

Bonjour

Je cherche a revenir a mon classeur variable:
J'ai un classeur1 ouvert ...je clic...

Application.Dialogs(xlDialogOpen).Show

..ouvre

Windows('classeur1').Activate

..bla bla

ici je veut revenir au classeur ouvert avec Application.Dialogs du genre:

Windows('Application.Dialogs(xlDialogOpen).name').Activate

Merci

Temjeh

 

[myDearFriend!]

Bonsoir Temjeh,

Tu peux essayer comme ça :

Dim Wbk As Workbook
      If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
      Set Wbk = ActiveWorkbook
      MsgBox 'Le classeur ' & Wbk.Name & ' est ouvert et activé'
      ThisWorkbook.Activate
      MsgBox 'Le classeur principal redevient le classeur actif'
      Wbk.Activate
      MsgBox 'Le classeur ' & Wbk.Name & ' est réactivé'

Cordialement,

Message édité par: myDearFriend!, à: 17/01/2006 22:51

 

[Temjeh]

Merci beaucoup pour ton aide c'est parfait. Avec cela j'ai pu finir le code pour Pierre un peu plus bas.

Ps si tu as une chance regarde ma question plus bas pour une suggestion (le code a l'air gros mais c'est juste une ligne que je veux)...merci

Temjeh