Exécuter un script à l’ouverture d’un fichier Excel

Exécuter un script à l’ouverture d’un fichier Excel peut être utile par un exemple  par la réalisation d’un script de sauvegarde qui copie votre fichier Excel ou autre dans un endroit précis pour sauvegarder la version d’origine en cas d’erreur de manipulation ou de perte de données après l’ouverture.

Pour se faire :

1. Appuyez sur Alt+F11 pour allez dans VBA

2. Allez dans ThisWorkBooks et choisir la procédure « Open » puis OptionExplicit

3. Collez le code VBA suivant

 Option Explicit

Private Sub Workbook_Open()

   Dim tonfichier As String

   Dim oWsh

oWsh = CreateObject("Shell.Application")

oWsh.ShellExecute "adresse du fichier vbs à exécuter"

Set oWsh = Nothing

End Sub

4. Enregistrer le fichier sous format prenant en charge les macros (XLSM)

Ainsi, à l’ouverture du fichier Excel le script choisit va s’exécuter automatiquement.