Discussion :

[dodo28]

bonsoir

j ai créé un code qui permet d'ouvrir a l'ouverture du fichier un userform et le refermer au bout de quelques secondes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Private Sub Workbook_Open()
 
'ouverture de l userform
 
  UserForm1.Show
'fermeture aprés 5s
 
Application.Wait Now + TimeValue("00:00:05")
    Unload UserForm1
 
End Sub

mon problème ils s'ouvre bien au démarrage mais il ne se referme pas.
Et est il possible de provoquer une animation de fondu (par exemple) a l'ouverture et la fermeture de l'userform
merci

[tirex28]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Dans ThisWorkbook
Private Sub Workbook_Open()
    UserForm1.Show
End Sub
 
'Dans Userform1
Private Sub UserForm_Activate()
    Application.Wait Now + TimeValue("00:00:05")
    Unload Me
End Sub

Cordialement,

Tirex28/

[dodo28]

merci beaucoup ca marche,