Hola yo lo q hago es esto....una macro q habre un filedialog open logada contra el servidor..mas o menos va
Sub abrir_sharepoint()
On Error GoTo myError
Dim davDir As New ADODB.Record
davDir.Open "", _
"URL=direccion url", _
adModeReadWrite, _
adFailIfNotExists, _
adDelayFetchStream, _
"nombreusuario", _
"contraseña"
'
With Dialogs(wdDialogFileOpen)
.Name = "url direccion carpeta docs"
.Show
'.Execute
End With
davDir.Close
myError:
Resume Next
'MsgBox ("No se ha podido abrir el archivo")
End Sub
