Discussion :

[aracnard]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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 ...

[kiki29]

Re, non pas forcément, voir dans le 1er lien , tous les exemples sont à adapter pour 2007.

[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.

[kiki29]

Salut, pour le lien c'est corrigé, à priori je dirais oui pour la ComboBox, voir ici, l'ayant fait jadis en VB6.

[aracnard]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[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.

[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.

[kiki29]

Salut,

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

PS : évite le gabuzomeu style sms

[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.

[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