OVH Cloud OVH Cloud

Combobox excel avec une colonne d'une table runtime access

15 réponses
Avatar
Gortex
Bonjour,
je souhaite charger une combobox dans userform excel avec une colonne d'une table runtime Access
sur une machine sur la quel Access n'est pas installer
j' ai trouver ca

Const c_t_parm As String = "Prevision"
Dim ACapp As Access.Application, db As DAO.Database, rcontacts As DAO.Recordset
Set ACapp = New Access.Application
Set db = ACapp.DBEngine.OpenDatabase _
("C:UsersxxxxxDocumentsExcel_Tabletable.accdb", False, False, ";pwd=xxxx")
Set rcontacts = db.OpenRecordset(c_t_parm, dbOpenDynaset)
Do While Not rcontacts.EOF
ComboBox1.AddItem rcontacts![Societes intervenantes]
rcontacts.MoveNext
Loop
End Sub

Ca fonctionne très bien quant Access est installer mais pas avec le runtime Access
vous avez une solution pour venir au secoure d'un débutant merci

5 réponses

1 2
Avatar
Michel__D
Le 27/03/2020 à 20:27, Michel__D a écrit :
Bonjour,
Le 25/03/2020 à 08:56, gortex a écrit :
Le mardi 24 Mars 2020 à 05:50 par Gortex :
Bonjour,
je souhaite charger une combobox dans userform excel avec une colonne d'une
table runtime Access
sur une machine sur la quel Access n'est pas installer
Ca fonctionne très bien quant Access est installer mais pas avec le
runtime Access
vous avez une solution pour venir au secoure d'un débutant merci

Bonjour
ok merci j' attend votre retour quant vous pourrez m'accorder du temps
car je souhaite me servir de cette combo box comme critère pour
faire une sorte de rechercheV dans ma table access et récupérer la ligne trouver
dans mes textbox de mon userform excel.
Cordialement


Voici par exemple une des façon de procèder (ce n'est pas la seule) :
Fichier Excel
https://mon-partage.fr/f/pCIYpZlS/
Base de données
https://mon-partage.fr/f/asUTHXdJ/
Placer les 2 fichiers dans le même répertoire.
Avatar
MichD
Voici un fichier exemple : https://www.cjoint.com/c/JCDmBtXxvmj
MichD
Avatar
MichD
Le 29/03/20 à 08:28, MichD a écrit :
Voici un fichier exemple : https://www.cjoint.com/c/JCDmBtXxvmj
MichD

C'est le même fichier, mais j'ai décoché la référence
"Microsoft Activex Data Objects (ADO)
https://www.cjoint.com/c/JCDmJkQhrnj
Michd
Avatar
MichD
Voilà à retenir, j'avais oublié les constantes "texte" par leur
équivalent numérique.
https://www.cjoint.com/c/JCDmNEptH3j
MichD
Avatar
MichD
Jamais 2 sans 3, le fichier à retenir!
https://www.cjoint.com/c/JCDm6LoGWBj
MichD
1 2