XL 2013 Chemin d'accès avec One Drive ?

Bonjour le Forum ,
J’ai une question pour des utilisateurs avertis…

Une de mes macros interroge, sans l’ouvrir, un fichier stocké sur un de nos serveurs entreprise.
cf. ci-après la copie d'une partie du code (merci à michel XLD, Thierry xld & Cie…)
Avec la mise en place de OneDrive, mon fichier est maintenant stocké dans le ‘cloud’ et ce code VBA ne fonctionne plus : quelqu’un aurait-t-il une suggestion à me faire ?
Merci d’avance pour vos retours souvent inspirés !
BH

‘-------------------------- Extrait du code VBA actuel ----------------------------
Dim monWbk As String, cde_SQL As String
Dim Cn As Object, rqst As Object
cde_SQL = "SELECT Info1, Info2, Info3, Info4, Info5 FROM [" & nomFeuille & "$] where Info1='" & saisie & "' AND Info4='" & Me.lblMagasin.Caption & "'" 'FONCTIONNE
'Définit le classeur fermé servant de base de données
'monWbk = "\\510.556.222.333\Societe\Service_Commercial\Mon_Repertoire\Mabase.xlsx"
Set Cn = CreateObject("ADODB.Connection")

With Cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
"DBQ=" & monWbk & "; ReadOnly=True;"
.Open
End With

Set rqst = CreateObject("ADODB.Connection")
Set rqst = Cn.Execute(cde_SQL)
'------------------------------------------------------------------------------------------------
Dim monTab()
Dim nbEnr As Integer
ReDim Preserve monTab(5, nbEnr)

If rqst.EOF Then ' astuce d'après @+Thierry xld
MsgBox "Aucun nom correspondant à votre" & vbCr & _
" saisie ('" & saisie & "') n'a été trouvé !", vbExclamation, nomAppli
Application.ScreenUpdating = True
Exit Sub
End If