VBA Sharepoint file

[Cozzy123]

Hi all,

I've gone through some of the recent posts but I'm still struggling.

I have a userform that captures text from textbox's, I would like to use a command button to then upload the text in the textbox's into an excel file on Sharepoint. The file on sharepoint is the master copy, so it would have to then filed the next free row, cells etc. I can make it work when its on a Network Drive, but I can't get it to work on Sharepoint, any help very welcome.

Thanks

 

[Cozzy123]

I think I'm almost there, apologies for my pigeon VBA.

I have setup Sharepoint so when I open a file it will always open in desktop app, here is my code:


ActiveWorkbook.FollowHyperlink Address:=Url (This is my sharepoint address that I've set)

MsgBox "Uploading your data"

Workbooks("sheet1").Activate

Application.Wait (Now + TimeValue("00:00:05"))

NextRow = _
ActiveWorkbook.Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(NextRow, 1) = TextBox72
Cells(NextRow, 2) = ComboBox2
Cells(NextRow, 3) = TextBox73
Cells(NextRow, 4) = TextBox74
Cells(NextRow, 5) = ComboBox109
Cells(NextRow, 6) = ComboBox111
Cells(NextRow, 7) = TextBox75
Cells(NextRow, 8) = TextBox77
Cells(NextRow, 9) = TextBox76
Cells(NextRow, 10) = TextBox78
Cells(NextRow, 11) = TextBox82
Cells(NextRow, 12) = TextBox79
Cells(NextRow, 13) = TextBox80
Cells(NextRow, 14) = ComboBox114
Cells(NextRow, 15) = ComboBox87
Cells(NextRow, 16) = ComboBox113
Cells(NextRow, 17) = TextBox81
Cells(NextRow, 18) = ComboBox112
Cells(NextRow, 19) = ComboBox110

Workbooks("sheet1").Close

MsgBox "Your data was uploaded successfully, thank you."

When I run this code, it opens the excel sheet but it gives me a run time error 9, but when I F5 and refresh it works?

Any thoughts?

Cheers