Microsoft 365 Incompatibilité Excel/One Drive

eric72

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

Pièces jointes

  • Fiterest TEST.xlsm
    722.5 KB · Affichages: 1
  • SOURCE COMMUNES.xlsm
    31.2 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510