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