petite question d'ouverture de feuille avec macro

[rainbow69006]

Bonjour

dans mon classeur1 j'ai ce bout de programme qui me permet d'ouvrir des classeurs et des pages specifies.

If OptionButton1 Then 'si coche AA
Workbooks.Open chemin & ComboBox1.Value & "." & ComboBox2.Value & ".xls"
Sheets(1).Activate 'active la feuille 1

Est il possible de faire que sa ouvre la feuille0 pendant 0.5seconde puis que sa ouvre la feuille 1?

merci

 

[_Thierry]

Re : petite question d'ouverture de feuille avec macro

Bonjour Rainbow, le Forum

Tu peux travailler avec ceci :

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Const FullPath As String = "C:\Documents and Settings\te\My Documents\MyBookWithTwoPage.xls"
 
 
Sub Open_05_Seconde()
Dim MonClasseurCible As Workbook
 

Set MonClasseurCible = Workbooks.Open(Filename:=FullPath)

MonClasseurCible.Worksheets(1).Activate

Sleep (500)

MonClasseurCible.Worksheets(2).Activate
 
End Sub

Bon Week End

@+Thierry