Discussion :

[moilou2]

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

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

[moilou2]

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

[Jean-Pierre49]

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 :

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

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

non ?

[moilou2]

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

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

[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

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