VBA -Pbl ouverture fichier à partir de One Drive
Bonjour
j'ai téléchargé un Fichier freeware sur ce site (onglet Téléchargement) concernant un planning.
Quand je le dézip il fonctionne très bien en local
Quand je le lance à partir de One Drive cela ne fonctionne plus (même en copiant le dossier zip)
Je pense qu'il y a un code qui le verrouille
Voilà ce qui s'affiche: erreur en rouge
Set FSO = CreateObject("Scripting.FileSystemObject")
If Right(FSO.GetFolder(ThisWorkbook.Path).Name, 3) = "zip" Then '
Msg = " Fichier d'une archive compressé, lancement impossible!" & vbCrLf & vbCrLf & _
" L'application va se fermer." & vbCrLf & vbCrLf & _
" Copier et coller les fichiers dans un nouveau dossier."
puis
Sub Connect_xls(Ndf As String)
Set Cnx = CreateObject("ADODB.Connection")
Cnx.provider = "MSDASQL"
Cnx.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
"DBQ=" & Ndf & "; ReadOnly=False;"
Set Rst = CreateObject("ADODB.Recordset")
End Sub
Merci de votre aide
Bonjour, les codes vba qui utilisent "ThisWorkbook.path" ne peuvent pas être utiliser directement pour one Drive.
Excel s'attend à trouver une adresse du style Lettre de lecteur exemple C:/ .....
L'astuce est de connecter une lecteur réseau vers votre one drive afin d'attribuer une lettre de lecteur.
https://www.it-connect.fr/connecter-un-lecteur-reseau-onedrive-sous-windows/