Bonjour à tous,
J'ai un fichier qui appelle un autre fichier dans lequel il y a toutes les communes de France afin d'alimenter une combobox à l'ouverture d'un Userform "UsfEffectif", avec la méthode suivante:
Dim Bd$ 'Récupération des communes et code postal dans autre fichier appartenant forcément au même répertoire
Bd = ThisWorkbook.Path & "\SOURCE COMMUNES.xlsm"
Me.Repaint
With CreateObject("ADODB.Connection")
Sql = "select [Nom_commune],[Code_postal] from [Feuil1$]"
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Bd & ";Extended Properties='Excel 12.0;HDR=Yes'"
tablo = .Execute(Sql).GetRows
.Close
Lorsque je lance l'userform après avoir fermé ONE DRIVE cela fonctionne nickel, par contre si One Drive est ouvert il m'indique que "La mise à jour est impossible. La base de données ou l'objet est en lecture seule", il bug sur cette ligne:
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Bd & ";Extended Properties='Excel 12.0;HDR=Yes'"
Avez-vous déjà rencontré ce problème, si oui, avez-vous trouvé la solution pour contourner ce problème.
Merci d'avance pour votre dévouement!!!
Eric
J'ai un fichier qui appelle un autre fichier dans lequel il y a toutes les communes de France afin d'alimenter une combobox à l'ouverture d'un Userform "UsfEffectif", avec la méthode suivante:
Dim Bd$ 'Récupération des communes et code postal dans autre fichier appartenant forcément au même répertoire
Bd = ThisWorkbook.Path & "\SOURCE COMMUNES.xlsm"
Me.Repaint
With CreateObject("ADODB.Connection")
Sql = "select [Nom_commune],[Code_postal] from [Feuil1$]"
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Bd & ";Extended Properties='Excel 12.0;HDR=Yes'"
tablo = .Execute(Sql).GetRows
.Close
Lorsque je lance l'userform après avoir fermé ONE DRIVE cela fonctionne nickel, par contre si One Drive est ouvert il m'indique que "La mise à jour est impossible. La base de données ou l'objet est en lecture seule", il bug sur cette ligne:
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Bd & ";Extended Properties='Excel 12.0;HDR=Yes'"
Avez-vous déjà rencontré ce problème, si oui, avez-vous trouvé la solution pour contourner ce problème.
Merci d'avance pour votre dévouement!!!
Eric
