Affichage page

Re : Affichage page

Bonsoir

En attendant mieux:
À mettre dans le workbook:

Private Sub Workbook_Open()

MsgBox "Visualisation de 15 secondes"

Sheets("Feuil2").Activate

PauseTime = 15
Start = Timer
Do While Timer < Start + PauseTime
Loop
Sheets("Feuil1").Activate

End sub

Temjeh

Re : Affichage page

Bonjour, ricoco, Temjeh, le Forum,

Une autre proposition dans le fichier joint.

A bientôt