Application.Dialogs(xlDialogOpen).Show

T

Temjeh

Guest
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!

XLDnaute Barbatruc
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
 
T

Temjeh

Guest
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
 

Discussions similaires

Réponses
7
Affichages
600

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal