Récuperer les donées d'une table access pour les mettre dans des comboBox excel

Version imprimable

23/04/2008, 17h00
moilou2

Récuperer les donées d'une table access pour les mettre dans des comboBox excel

Bonjour, voila se que je désireré faire:

J'ai une multitude de classeur Excel, qui se remplissent avec des UserForm. Dans chaque classeur, j'ai une feuille nomée "Données", qui me permet d'alimenter les ComboBox des UserForm.

Le problème, c'est que quand je veut mettre à jour des données comunes à plusieurs classeur, il faut que j'aille dans chacun des classeurs modifier ces données.

Mon idée est donc de créer une base de données ACCESS, qui contiendré toutes les données necessaire à l'alimentation des comboBox (zone de liste modifiable) dans mes UserForm de mes tableaux Excel.

Ma question est donc : est-il possible d'alimenter le contenu d'une combo box dans un UserForm d'un classeur Excel, en puisant les données dans des tables ACCESS.

Voila merci;)
23/04/2008, 17h07
Jean-Pierre49

Bonjour

dans les tutoriels Cafeine l'explique, tu peux aussi te servir de Csv.
C'est la méthode que j'ai retenu,
23/04/2008, 17h17
moilou2

Peut tu m'envoyer les liens de ces méthode si c'est possible merci!;)

Je ne vais pas pouvoir maintenant je dois partir,

je t'envois ce que j'utilise (avec Csv)
Comme j'ai beaucoup de base je trouve plus souple de passer avec des Csv

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Avec Reférence DAO 3.6 Object Library
 
                            Dim Donnees                 As DAO.Database
                            Dim Requete                 As DAO.Recordset
                            Dim Chemin                  As String
 
    Chemin = "C:\XXXXXXXXXX\XXXXX\XXXXX\"
    Set Donnees = DAO.OpenDatabase(Chemin, False, False, "Text;Database=" & Chemin)
 
    Set Requete = Donnees.OpenRecordset("SELECT champs2 FROM [MonFichierCsv.csv] WHERE champs1 = 'X'", DAO.dbOpenSnapshot)
    Me.MaListe.Clear
    Me.MaListe.Style = fmStyleDropDownList
    Do While Not (Requete.EOF)
        Me.MaListe.AddItem Requete.Fields(0).Value
        Requete.MoveNext
    Loop
    Me.MaListe.ListRows = 255
    Me.MaListe.ListIndex = 0

Bon courage

23/04/2008, 17h34
laloune

http://vb.developpez.com/cours/?page=ficbd#dao

pourquoi est-ce plus pratique de passer par des csv ? ne vaut-il pas mieux attaquer directement la BDD (les fichiers csv d'export ne sont pas nécessairement à jour :roll:)

non ?
24/04/2008, 11h08
moilou2

Bonjours à tous, je n'ai pas trouvé mon bonheur dans vos explications:cry:

Je redi quand même au cas ou vous n'auriez pas compris, je souhaite récupérer le contenu d'une table ACCESS dans une combobox d'un formulaire Excel!

Sans passer par des fichiers intermédiaires
24/04/2008, 11h41
SilkyRoad

bonjour

relit les messages et les solutions qui t'ont été proposées ...

en complément:
http://excel.developpez.com/faq/?page=Access

http://excel.developpez.com/sources/...s#vba_daoCombo

bonne journée
michel
24/04/2008, 11h53
moilou2

OK ba je vais regarder se que tu m'a envoyé!

Se que je voulé surtout savoir c'était si il été possible de le faire directement sans passer par une étape intérmédiare.

C'est à dire que les dopnnées de la listBox aillent se puiser directement dans la base de donnée ACCESS, sans passer par un autre fichier.