17.11.2021, 15:57
I found the cause of the problem... but not the solution! 
cdir = Application.ActiveWorkbook.Path
But Application.ActiveWorkbook.Path is not the path you can see on the picture ("https:\\ ... ect.")
The actual path is "C:\user\Peppe\Desktop"
I checked it on the PC in which it works and I found the right path.
That's very strange because it is the same file in the same position (Desktop) on two different PCs.
I also reinstalled Office but nothing changed.
cdir = Application.ActiveWorkbook.Path
But Application.ActiveWorkbook.Path is not the path you can see on the picture ("https:\\ ... ect.")
The actual path is "C:\user\Peppe\Desktop"
I checked it on the PC in which it works and I found the right path.
That's very strange because it is the same file in the same position (Desktop) on two different PCs.
I also reinstalled Office but nothing changed.