VBA ACCESS Code pour Importer des données à partir d’un fichier Excel

Ce code permet d’Importer les données à partir d’un fichier Excel et les placer dans une table Access de même nom et dont les entêtes des colonnes sont de même type. Il y a lieu de ce fait de préparer le fichier Excel avec des noms de colonnes selon les mêmes noms utilisés dans code VBA dans les autres instructions d’une application donnée.

L’instruction Principale à utiliser est la suivant :

      DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, Fichier, STRsource, True

Toutefois, si nous voulons l’utiliser dans code complet contenant d’autres fonctionnalités, voici un exemple concret:

Private Sub Commande15_Click()

Dim STRsource, Fichier, TYPE_Fich As String

TYPE_Fich = Form_INITIALISER_BALANCE.TXT_TYPE

‘La liste des fichiers à importer peut être contenue dans une liste de choix (Voir figure)

Fichier = Form_INITIALISER_BALANCE.TXT_FICHIER_SOURCE

' Demander confirmation

    If MsgBox("Confirmez-vous l'importation les données extra?", _

        vbQuestion + vbYesNo) = vbNo Then

        Exit Sub

    End If

'Supprimer les données d'une table : requête pour vide la table en cas de besoin

Call Supprimer_Donnee(Fichier)

    STRsource = Application.CurrentProject.Path & "\DONNEES\" & Fichier & "." & TYPE_Fich

'Importer les données à partir d'une fichier Excel vers une table Access de même nom

      DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, Fichier, STRsource, True

      ' Vérifier que le fichier existe bien

    If Dir(STRsource) = "" Then

        MsgBox "Le fichier '" & strFichier1 & "' est introuvable !", _

            vbExclamation

        Exit Sub

        End If

'Appeler les requêtes de mise à jour par fichier

   Call REQUETE_PAR_FICHI(Fichier)

  

End Sub

Ce code peut être associé à un bouton de commande et appliquer à différent fichier source pour l’optimisation du code.

Comme il apparait de cet imprime écran, pour minimiser au maximum les codes VBA, nous pouvons prévoir différent types de fichiers à importer.

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.