Enr_Copie et Enr_CopieBis

Version imprimable

04/03/2025, 10h49
vba_lieb

Enr_Copie et Enr_CopieBis

Bonjour à tous,

J'utilise les fonction Enr_Copie et Enr_CopieBis de la solution :

Manipuler les données des bases Access depuis Excel
Fonctions en VBA basées sur ADODB pour les développeurs

Site : https://laurent-ott.developpez.com/t...-depuis-excel/

Alors, pour ma part, je récupere des informations d'une base de donnée qui sont exportées sous format Excel. (impossible d'avoir un accés à celle-ci). Donc unique solution.

Ainsi, j'importe ce fichier Excel dans une table nommé REF_USI60_V1

En regardant Enr_Copie, je peux effectivement faire une copie des informations vers une autre table, mais cet autre table doit voir la meme structure... Ce qui m'interesse pas du tout car il y a énormément de champ...

Voici dans les commentaires de Enr_Copie ce qu'il y a dans les commentaires :
' Remarque : si la table destination à des champs supplémentaires à la table sources, ils ne seront pas renseignés.

C'est aussi pareil, si je souhaite mettre à jour les données de table sources (REF_USI60_V1) vers ma table destination (OF_GENERAL)...
Commentaire pour Enr_CopieBis :
' Remarque : si la table destination à des champs supplémentaires à la table sources, ils ne seront pas renseignés.

Vous l'aurez compris, ce que je souhaite, c'est pouvoir faire une copie de ma table source (REF_USI60_V1) vers ma table OF_GENERAL en indiquant mes champs à importer...

Et biensur, là aussi, Enr_CopieBis pour mettre à jour ma table OF_GENERAL avec les données de ma table source REF_USI60_V1

A moins de passer par une requette Sql, mais là , j'ai du mal tout seul :)

Merci pour le coup de pousse.
06/03/2025, 15h21
EricDgn

1 pièce(s) jointe(s)

Bonjour,

Pour avancer un peu ci-attaché un petit exemple qui montre comment ajouter et mettre à jour des données depuis une feuille Excel dans une table Access. A tester en ajoutant, modifiant des données dans la feuille Excel puis en lançant les requêtes.

Cordialement.

Bonjour,

Je ne sais pas où vous en êtes de vos recherches.

Hormis la solution proposée par par EricDgn :coucou:, qui paraît la plus simple.

Si vous connaissez un peu VBA vous pouvez essayer d'insérer les colonnes choisies dans une chaîne SQL :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
        chemin_fichier = "c:\documents\..\fichier_xlsx"
        nom_feuille = 'feuille1" 
        plage_donnees = "" ' facultatif
        liste_colonnes = "champ1, champ2, champ3"
        nom_table = "table_dest"
 
        ' si la table de destination n'existe pas
        If Not TableExists(nom_table) Then ' création d'une nouvelle table
 
            sSQL = "SELECT " & liste_colonnes & " INTO [" & nom_table & "] " & _
                    "FROM [Excel 8.0;HDR=YES;DATABASE=" & chemin_fichier & "].[" & nom_feuille & "$" & plage_donnees & "] AS T1 "                    
 
        Else ' insert dans table existante
 
            If MsgBox("Table déjà présente : Souhaitez-vous vider les données de la table de destination ?", vbYesNo) = vbYes Then
                CurrentDb.Execute "delete from [" & nom_table & "]", dbFailOnError
            End If
 
            sSQL = "INSERT INTO [" & nom_table & "] " & _
                "SELECT " & liste_colonnes & " " & _
                "FROM [Excel 8.0;HDR=YES;DATABASE=" & chemin_fichier & "].[" & nom_feuille & "$" & plage_donnees & "] AS T1 "
 
        End If
 
        CurrentDb.Execute sSQL, dbFailOnError
 
        ' rafraîchit la fenêtre de navigation Access
        Application.RefreshDatabaseWindow

Pour la fonction TableExists vous pouvez trouver son code sur internet :

https://stackoverflow.com/questions/...s-table-exists

19/03/2025, 14h15
deedolith

Hello

Comme cela t'as déja été mentionné sur le forum Excel: Power Query est ton ami.

Avec Office, il ne faut pas se faire ch**, tout ce qu'on peut faire en se passant de VBA, on le fait. Il en résulte un application plus fiable et plus robuste.