Requete INSERT INTO / UPDATE en VBA

Version imprimable

Bonjour,

J'ai créé une connection ODBC et j'ai reussi a créée une macro contenant une requete d'exportation.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=dataP;DBQ=K:\********\Base de données.xlsx;DefaultDir=K:\*******" _
        ), Array( _
        "RAA\Fichiers;DriverId=1046;FIL=excel 12.0;MaxBufferSize=2048;PageTimeout=5;")) _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array("SELECT DISTINCT `_xlnm#_FilterDatabase`.Désignation,`_xlnm#_FilterDatabase`.Nom,  `_xlnm#_FilterDatabase`.ville" & Chr(13) & "" & Chr(10) & "FROM `_xlnm#_FilterDatabase` `_xlnm#_FilterDatabase`" & Chr(13) & "" & Chr(10) & "WHERE (`_xlnm#_FilterDatabase`.No", "m='JEAN')" & Chr(13) & "" & Chr(10) & "ORDER BY `_xlnm#_FilterDatabase`.Désignation")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tableau_Lancer_la_requête_à_partir_de_dataP6"
        .Refresh BackgroundQuery:=False
    End With

Est il possible de créer des requete de type INSERT ou UPdate toujours via des macro excel merci.

Cordialement

04/10/2012, 16h01
kiki29

Salut, à consulter même s'il s'agit d'ADODB : Lire et écrire dans les classeurs Excel fermés
sinon pour le Recordset ADO
04/10/2012, 16h29
aracnard

Rebonjour,
Donc dans un premier tempsje dois convertir ma base de données excel fichier *.xlsx en fichier *.mdb.
Apres je dois refondre les différentes requete select, update, insert ...
04/10/2012, 16h56
kiki29

Re, non pas forcément, voir dans le 1er lien , tous les exemples sont à adapter pour 2007.
04/10/2012, 17h22
aracnard

Un grand merci le premier ne s'ouvrai pas correctement le nouveau fonctionne tres bien, j'ai beaucoup de lecture pour appliquer cela mais au final c a peu pres ce que je souhaiter, la fonction recherchev sous excel ou les boucle en VBA c'est tres bien mais cela a ses limites sur une base de donnée a plusieurs colones et beaucoup de lignes.
Un grand MERCI.

Je vais peut etre abuser un peu mais est il possible de charger un combobox en macro excel via un select distinct (je sais le faire en VBnet mais pas en VBA classique).Merci encore pour le lien.
04/10/2012, 17h44
kiki29

Salut, pour le lien c'est corrigé, à priori je dirais oui pour la ComboBox, voir ici, l'ayant fait jadis en VB6.
05/10/2012, 08h55
aracnard

Bon j'ai commencé par le début et en fait la ligne

Code:

Cn As ADODB.Connection

bloque et me met : type défini par l'utilisateur non défini.

Il me manque un driver ou une option complémentaire ???

Bon j'ai résolu la chose, mais j'ai eu une autre erreur qui m'a forcé à changer le format de ma base de données et passer du format *.xlsx au format *.xls.
C'est pas que cela me dérange obligatoirement mais le résultat, c'est que ma base a triplé de volume avec la conversion ...
05/10/2012, 09h25
kiki29

Salut, pour l'erreur c'est une référence à cocher, il faut développer en Early Binding et déployer en Late Binding, surtout en environnement hétérogène, voir Early ou Late Binding
Tu n'as pas vu ceci 2007 pour la connection ?
Pour le triplement ou autre du volume c'est normal les fichiers XLS* sont en fait des fichiers zippés : à preuve sur une copie d'un fichier XLSX, XLSB, XLSM remplace cette extension par ZIP , dézippe ce fichier et tu verras l'aspect de ton fichier Excel et sa taille.
05/10/2012, 11h14
aracnard

Un gros LOL en effet j'ai dezippé mon fichier qui a la base fait 273Ko il est devenu 1.3 Mo ... un gros lol de la part de MS en fait ça prend moins de place mais demande plus de mémoire au final.

Sinon n'y a-t-il pas moyen de passer la macro direct en *.xlsx ou je vais devoir travailler en *.xls

Merci pour les infos en tout cas.
05/10/2012, 11h26
kiki29

Salut,

Citation:

Tu n'as pas vu ceci 2007 pour la connection ?

PS : évite le gabuzomeu style sms
09/10/2012, 14h03
aracnard

Bonjour,
C'est j'ai reussi je peu exporter les données et les afficher il va falloir que je regarde les modifications et les nouveaux enregistrements.
Cependant est il possible d'afficher le resultats de la requete directement dans un controle listview sur un userform.

Merci des différents renseignements.
10/10/2012, 09h02
aracnard

Bonjour,
J'ai toujours quelques probleme et je n'arrive pas a charger directement un controle listview par ma requete, je suis obliger de passer par une feuille excel ce qui ralenti considerablement mon programme.

PS : il est vrai que mon écriture gabuzomeu laisse à desirer ... vive les shadocks