|
Modifications possibles
Tout d'abord pour exécuter une macro (ou l'appeler à partir d'une autre macro, il suffit
d'utiliser son nom, nous pouvons donc alléger le code généré.
ce qui nous donne comme Procédure (j'ai enlevé les commentaires):
Sub Finale()
Importation
MiseEnForme
InsererDate
TransfertBdd
End Sub
Ensuite nous pouvons accélérer l'execution, en effet, ce qui consomme de la ressource et
donc ralenti l'exécution, c'est en particulier le rafraichissement de l'affichage.
Nous allons donc rajouter en debut de prcédure l'instruction suivante :
Application.ScreenUpdating = False et bien entendu,
après exécution le contraire soit :
Application.ScreenUpdating = true
Comme il n'y a plus de rafraichissement, l'utilisateur ne sait pas si tout c'est bien passé ou non,
nous allons donc lui envoyer une boite de dialogue de fin d'exécution avec MsgBox.
Voici le code final de cette procédure :
Sub Finale()
' arrêt du rafraichissement d'écran
Application.ScreenUpdating = False
'appel des sous procédures (macro créées précédement)
Importation
MiseEnForme
InsererDate
TransfertBdd
' remise en route du rafraichissement d'écran
Application.ScreenUpdating = False
' Avertissement utilisateur
Msgbox ("Traitement Terminé")
End Sub
Enfin nous allons permettre à la macro de se lancer automatiquement à l'ouverture du classeur. Pour
ce faire, nous allons dans l'éditeur Visual Basic et nous double-cliquons sur ThisWorkbook dans
l'explorateur de projet.
En faisant ça,
nous ouvrons le module de code gérant les événements du classeur.
En haut du module, nous avons les deux listes déroulantes gérant les objets et leurs événements :
dans la première liste, nous choisissons Workbook, ce qui a pour effet d'appeler l'événement par defaut du classeur : "Open"
Dans la procédure qui s'est créée automatiquement, nous insérons l'appel de la macro finale
N'oublions pas d'enregistrer le classeur et fermons le. A la réouverture l'application
doit se lancer automatiquement; Voilà notre première application terminée.
Télécharger le fichier excel de l'application complète :
( clic droit-> Enregistrer la cible sous )
|
