Application.Dialogs(xlDialogOpen).Show

Temjeh · 17 Janvier 2006

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! · 17 Janvier 2006

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 · 18 Janvier 2006

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

Application.Dialogs(xlDialogOpen).Show

Temjeh

Guest

myDearFriend!

XLDnaute Barbatruc

Temjeh

Guest

Discussions similaires