Mise à jour d’une base Access par fichier CSV ou Excel – Episode 3

Suite de notre série sur l’importation de données CSV ou Excel dans une table Access. Aujourd’hui, il est temps de tester ce qui a été mis en place dans les articles précédents.

Si vous avez manqué le début

Relisez les articles suivants, si vous êtes arrivé sur cette page directement… 😉

• Mise à jour d’une base Access par fichier CSV ou Excel – Episode 1
• Mise à jour d’une base Access par fichier CSV ou Excel – Episode 2

Rappels

Si vous avez zappé l’épisode 1, je rappelle qu’on dispose au départ d’un fichier CSV appelé dest01.csv qui contient ceci :

Id,Prénom,Nom,Email
8,Han,Solo,han.solo@rebels.com
9,Hervé,Inisan,webmaster@self-access.com
10,Luke,Skywalker,
11,Anakin,Skywalker,anakin.skywalker@darkstar.com
12,R2,D2,

Toutes ces données doivent être importées dans cette table de la base Access :

Un peu de configuration

Pour paramétrer un peu nos tests (et éviter de réécrire plusieurs fois les mêmes choses), faites ceci :

1. Ajoutez un module standard (pas un module de classe, cette fois) à votre base de données.
2. Nommez ce module mod Configuration, par exemple.
3. Recopiez-y ce qui suit.
4. Modifiez selon vos besoins la constante SOURCE_PATH.

Remarques sur la configuration

La constante SOURCE_PATH définit le chemin où seront stockés les fichiers CSV (ou les fichiers Excel, plus tard). En fait, elle ne sera pas utilisée directement, mais plutôt au travers de la fonction SourcePath(). L’idée est la suivante :

• Si SOURCE_PATH contient un chemin absolu (du style : C:... ou P:...), la fonction SourcePath() renvoie la constante SOURCE_PATH sans la changer.
• Dans le cas contraire, on suppose qu’il s’agit d’un chemin relatif, et relatif à la base Access. Dans mon exemple ci-dessus, le chemin "Fichiers CSV" sera ajouté au chemin de la base de données.
• Ce serait encore mieux en testant aussi les chemins réseau, démarrant par \\serveur 😉

Le code de test

Voici enfin une petite procédure pour tester l’importation (en d’autres termes, pour tester la classe TableUpdater des articles précédents).

1. Créez encore un nouveau module standard (le mien s’appelle mod Tests TableUpdater).
2. Recopiez ce qui suit dans le module :

Quelques explications

La procédure importante est TestTableUpdaterNewsletterCSV. Cette procédure déclare un objet TableUpdater, le paramètre, lance l’importation, et enfin affiche un message de synthèse. L’objet TableUpdater reçoit ces paramètres :

• Headers : True si le fichier source contient une ligne d’en-tête, False sinon. A priori, il faut que votre fichier CSV contienne des en-têtes, et que ceux-ci correspondent aux noms de champs de la table Access à mettre à jour.
• Source : le chemin complet du fichier CSV ou Excel contenant les données à importer.
• SourceType : Csv ou Excel, selon le format du fichier de données.
• Target : la table à mettre à jour.
• TempTable : nom de la table temporaire à utiliser pour importer le fichier source. Si vous n’alimentez pas cette valeur, elle prend un nom automatique dérivé du nom de la table cible.

Une fois les paramètres définis, la méthode tu.Import lance l’importation proprement dite. En fin d’importation :

• tu.LastError.Number donne le numéro d’erreur, si erreur il y a eu (joli, non ?). La valeur vaut NoError si tout s’est bien passé. Dans le cas contraire, le nombre est l’une des valeurs de l’énumération ImportInfo déclarée dans l’article précédent.
• tu.LastError.Label donne le texte en clair de l’erreur.
• tu.InsertedRows donne le nombre de lignes insérées. N’a d’intérêt que si tu.LastError.Number = NoError.
• tu.UpdatedRows donne le nombre de lignes modifiées. Même remarque que ci-dessus.

La procédure BilanImportation se charge d’afficher… le bilan de l’importation. J’ai extrait cette partie de la procédure principale de façon à pouvoir la réutiliser dans d’autres articles. Ça vous permet aussi, si l’affichage ne vous contient pas, de le remplacer plus facilement (vous pouvez utiliser autre chose qu’un MsgBox).

Tester, enfin !

Placez le curseur quelque part dans la procédure TestTableUpdaterNewsletterCSV (mais qui m’a donné des noms de procédures comme ça, qui ?! 🙂 ), et cliquez sur l’icône Exécuter / Sub/UserForm. Si ça fonctionne, vous obtiendrez le nombre de lignes ajoutées ou mises à jour. Sinon, un message d’erreur vous indiquera ce qui a échoué.

Consultez bien sûr la table, pour vérifier que tout est ok :