Discussion :

[ANOVA]

Bonjour,

je souhaite faire une macro VBA qui permet de fermer le fichier 15 secondes après son ouverture.

J'ai testé ceci :

Code :

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

1
2
3
4
5
6
7
8
Sub fermeture()
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub
 
Sub auto_open()
    Application.OnTime Now + TimeValue("00:00:15"), "fermeture"
End Sub

Normalement, la fonction auto_open s'exécute à l'ouverture du fichier. Elle dit de lancer la sub fermeture 15 secondes après (en sauvegardant le fichier, j'ai trouvé ces fonctions sur http://officeassistant.ibelgique.com/excel_vba.html).

Le problème est que la fonction auto_open ne semble pas se lancer. Si je met :

Code :

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

1
2
3
Sub auto_open()
    MsgBox "Bonjour"
End Sub

et que j'ouvre le fichier, rien ne s'affiche. D'où vient le problème ?

Je vous remercie.

[ANOVA]

En fait, apparement, la sub auto_open n'est pas la bonne. C'est Workbook_open qu'il faut utiliser. Je suis désolé d'avoir posé une question alors que c'était un problème tout bête.