Workbooks.open

[Schelledraad]

Ik ben een paar weken geleden overgestapt naar Office 365 Nu had ik in Excel 2013 in het lint een aantal icoontje staan, gekoppeld aan eenvoudige VBA instructies in het VBAProject (PERSONAL) zoals

Workbooks.Open Filename:="C:\Users\Jan\Documents\abcd\Agenda.xlsb"

Na de Migratie van 2013 naar 365 bleef e.e.a. prima werken tot....Gisteren. Macros werkten niet meer en als ik het met de macrorecorder opnieuw opneem zoals bovenstaand is onderstaand het resultaat.

ChDir "C:\Users\Jan\OneDrive - abcd\Documents\abcd"
Workbooks.Open Filename:="https://abcd-my.sharepoint.com/personal/jan_xxx_nl/Documents/Documents/abcd/Agenda.xlsb"

Ik word dus ongewild naar internet omgeleid en dat wil ik niet ! Wie weet hoe dit kan en hoe ik dat kan verhelpen,

 

[JEC.]

Je kunt in ieder geval proberen om je sharepoint folder te syncen met je Drive. Dus Sharepoint locatie openen en vervolgens zoeken naar een knop "sync"

 

[Schelledraad]

Ja maar ik wist niet eens dat ik sharepoint had/heb, laat staan hoe ik dat moet uitschakelen. Ik hoor trouwens via verschillende kanalen dat Sharepoint op kantoren een behoorlijke chaos veroorzaakt, maar dat ter zijde)

 

[jkpieterse]

Jouw documenten map wordt gesynchroniseerd met OneDrive for business/Sharepoint en kennelijk is dat het https adres dat erbij hoort. Werkt de code niet?

 

[Schelledraad]

Nee code werkt niet. Het vreemde is dat het van de ene op de andere dag gebeurde zonder dat ik aan welke instelling dan ook heb geprutst.

 

[jkpieterse]

met "werkt niet" kunnen we weinig. Wat gebeurt er precies?
Wat als je deze regel aanpast:

Workbooks.Open Filename:="https://abcd-my.sharepoint.com/personal/jan_xxx_nl/Documents/Documents/abcd/Agenda.xlsb"

naar

Workbooks.Open Filename:="Agenda.xlsb"

 

[Schelledraad]

Nope. Ik krijg voortdurend de vraag of het bestand is verplaatst of verwijderd. Geen van beide is het geval.

 

[jkpieterse]

Als je het bestand in kwestie hand-matig opent en je zet dit in het venster direct (control+G in the VBA editor):

?ActiveWorkbook.FullName

en je drukt op Enter, dan krijg je de lokatie en naam van het bestand. Komt dat overeen met wat de macro recorder opneemt?

 

[Schelledraad]

Waar ik mee zit is dat de recorder, als ik gewoon mijn C schijf wil openen hij automatisch ChDir "C:\Users\Jan\OneDrive en het programma dan op OneDrive wil openen. Daar staat net niet eens ?!?!?

 

[jkpieterse]

De recorder produceert niet altijd code die klopt. Wat is het antwoord op mijn vraag van de vorige keer?

 

[Schelledraad]

Dan krijg ik dit te zien.

https://Frank-my.sharepoint.com/personal/frank/Documents/Documents/etc etc ?!?!?

 

[jkpieterse]

En werkt het dus niet om die link in workbooks.open te gebruiken?

 

[Schelledraad]

Nope. Lukt niet.

 

[jkpieterse]

En als je dat adres plakt in het bestand, openen vakje, opent het bestand dan wel? Lijkt alsof je een probleem hebt met de onedrive synchronisatie

 

[Schelledraad]

Nou, gisteren is mijn windows beheerder wezen sleutelen en het probleem lijkt opgelost.

Yhanks allen.