Bonjour,
j'utilise cette macro pour me connecter a ma base access 
protéger par mdp depuis excel 
sa fonction très bien en dans l’état 
mais je souhaite place ma base access dans mon onedrive 
pour alimenter ma Listview dans un userform excel sur clé usb je me connecte 
a ma base access "ListView table.accdb" sur les pc qui n'ont pas access d’installer 
si vous avez une solution pour l'adapter pour que je puisse me 
connecter a ma base access sans la télécharger depuis n'importe quel pc 
Je souhaite pouvoir rechercher, ajouter, modifier, supprimer des enregistrements
Dans la ou les tables
Et remplacer une table par une autre mise à jour dans mon onedrive
merci d'avance 
Cordialement
Sub Connecte_base_Access()
Dim rs As Object
Dim Nom_Base, Chemin_Base, SQL, PAPA, Admin, Uid, pwd, ExtendedAnsiSQL ', connstring
 
Set conn = CreateObject("ADODB.Connection")
Nom_Base = "ListView table.accdb"
Chemin_Base = ThisWorkbook.Path & "\" & Nom_Base
connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base & ";Uid=Admin;Pwd=PAPA;ExtendedAnsiSQL=1;"
conn.Open connstring
End Sub