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
si vous avez une solution pour adapter pour que je puisse me
connecter a ma base access
merci d'avance
Cordialement
Sub Connecte_base_Access()
Dim rs As Object
Dim Nom_Base, Chemin_Base, SQL, PAPA, Admin, Uid, pwd, ExtendedAnsiSQL ', connstring
Bonjour, Par exemple, lorsque j'ouvre un fichier Excel à partir de "OneDrive" j'obtiens le chemin suivant : "https://d.docs.live.net/3539694fe0b5ce56/Documents/_suivi_test.xlsm" J'ai obtenu ce chemin en ouvrant Excel / créant une nouvelle macro dont le seul but est d'extraire le chemin du fichier où était situé le fichier. Dans ton code, si tu modifies l'emplacement de ta base de données, tu dois modifier le chemin dans ton code dans cette ligne : Chemin_Base = ThisWorkbook.Path & "" & Nom_Base ThisWorkbook.Path à remplacer par le nouveau chemin. Si tu n'es pas connecté à OneDrive, on va te demander de le faire! MichD
Bonjour,
Par exemple, lorsque j'ouvre un fichier Excel à partir de "OneDrive" j'obtiens le chemin suivant :
"https://d.docs.live.net/3539694fe0b5ce56/Documents/_suivi_test.xlsm"
J'ai obtenu ce chemin en ouvrant Excel / créant une nouvelle macro dont le seul but est d'extraire
le chemin du fichier où était situé le fichier.
Dans ton code, si tu modifies l'emplacement de ta base de données, tu dois modifier le chemin dans
ton code dans cette ligne :
Chemin_Base = ThisWorkbook.Path & "" & Nom_Base
ThisWorkbook.Path à remplacer par le nouveau chemin.
Si tu n'es pas connecté à OneDrive, on va te demander de le faire!
Bonjour, Par exemple, lorsque j'ouvre un fichier Excel à partir de "OneDrive" j'obtiens le chemin suivant : "https://d.docs.live.net/3539694fe0b5ce56/Documents/_suivi_test.xlsm" J'ai obtenu ce chemin en ouvrant Excel / créant une nouvelle macro dont le seul but est d'extraire le chemin du fichier où était situé le fichier. Dans ton code, si tu modifies l'emplacement de ta base de données, tu dois modifier le chemin dans ton code dans cette ligne : Chemin_Base = ThisWorkbook.Path & "" & Nom_Base ThisWorkbook.Path à remplacer par le nouveau chemin. Si tu n'es pas connecté à OneDrive, on va te demander de le faire! MichD
Michd
Enregistrer la macro d'ouverture, le code généré va te donner l'adresse exacte... MichD
Enregistrer la macro d'ouverture, le code généré va te donner l'adresse exacte...
Enregistrer la macro d'ouverture, le code généré va te donner l'adresse exacte... MichD
gortex
Le lundi 03 Septembre 2018 à 19:22 par Gortex :
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 si vous avez une solution pour adapter pour que je puisse me connecter a ma base access 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 & ";Uidmin;Pwd=PAPA;ExtendedAnsiSQL=1;" conn.Open connstring End Sub
Re merci michd toujours opérationnel je me suis mal expliqué je souhaite me connecter et modifier ma base access sans la télécharger cordialement
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 si vous avez une solution pour adapter pour que je puisse me connecter a ma base access 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 & ";Uidmin;Pwd=PAPA;ExtendedAnsiSQL=1;" conn.Open connstring End Sub
Re merci michd toujours opérationnel je me suis mal expliqué je souhaite me connecter et modifier ma base access sans la télécharger cordialement
Michd
| modifier ma base access sans la télécharger Qu'est-ce que tu veux modifier? Quelques champs de quelques enregistrements d'une table des tables de la base de données? Autres choses? Tu n'es pas trop spécifique! MichD
| modifier ma base access sans la télécharger
Qu'est-ce que tu veux modifier? Quelques champs de quelques enregistrements d'une table des tables
de la base de données? Autres choses? Tu n'es pas trop spécifique!
| modifier ma base access sans la télécharger Qu'est-ce que tu veux modifier? Quelques champs de quelques enregistrements d'une table des tables de la base de données? Autres choses? Tu n'es pas trop spécifique! MichD
Michd
Le code suppose que tu as ajouté la référence "Microsft ADO Objects 2.8 Library". MichD
Le code suppose que tu as ajouté la référence "Microsft ADO Objects 2.8 Library".
Le code suppose que tu as ajouté la référence "Microsft ADO Objects 2.8 Library". MichD
Re oui c'est le cas
gortex
Le lundi 03 Septembre 2018 à 23:27 par Michd :
| modifier ma base access sans la télécharger Qu'est-ce que tu veux modifier? Quelques champs de quelques enregistrements d'une table des tables de la base de données? Autres choses? Tu n'es pas trop spécifique! MichD
Je souhaite pouvoir rechercher, ajouter, modifier, supprimer des enregistrements Dans la ou les tables Et remplacer une table par une autre mise à jour Cordialement
| modifier ma base access sans la télécharger Qu'est-ce que tu veux modifier? Quelques champs de quelques enregistrements d'une table des tables de la base de données? Autres choses? Tu n'es pas trop spécifique! MichD
Je souhaite pouvoir rechercher, ajouter, modifier, supprimer des enregistrements Dans la ou les tables Et remplacer une table par une autre mise à jour Cordialement
Michd
Comme tu recherches beaucoup d'information sur ACCESS, voici ma suggestion : Plus bas dans la page, tu as la liste des MVP de Microsoft sur ACCESS qui a un site Web avec exemples et explications. http://www.mvps.org/links.html#Access 2 Sites que tu peux consulter... mais il y en a beaucoup d'autres dans la liste, à toi de voir ce qui te convient. http://access.mvps.org/access/tables/index.html http://allenbrowne.com/tips.html MichD
Comme tu recherches beaucoup d'information sur ACCESS,
voici ma suggestion :
Plus bas dans la page, tu as la liste des MVP de Microsoft
sur ACCESS qui a un site Web avec exemples et explications.
http://www.mvps.org/links.html#Access
2 Sites que tu peux consulter... mais il y en a
beaucoup d'autres dans la liste, à toi de voir ce
qui te convient.
http://access.mvps.org/access/tables/index.html
http://allenbrowne.com/tips.html
Comme tu recherches beaucoup d'information sur ACCESS, voici ma suggestion : Plus bas dans la page, tu as la liste des MVP de Microsoft sur ACCESS qui a un site Web avec exemples et explications. http://www.mvps.org/links.html#Access 2 Sites que tu peux consulter... mais il y en a beaucoup d'autres dans la liste, à toi de voir ce qui te convient. http://access.mvps.org/access/tables/index.html http://allenbrowne.com/tips.html MichD
