Kopieren data op Onedrive tussen 2 bestanden

[loek010]

Beste Hulpverleners,

Probleem met Copy data workbook1 naar workbook2 deze 2 bestanden staan allebei op Onedrive
ik open vanuit Excel desktop op onedrive workbook1 vanuit dit workbook wil ik dus de data copieeren
naar workbook2 maar krijgt dan foutcode 9 Subscript valt buiten gebruik
maar als ik workbook2 vanuit workbook1 opent met Workbooks.Open met onderstaande macro
dan ziet en opent hij gewoon workbook2 alleen met copieeren ziet hij het bestand niet
of zit er iets niet goed in de vbacode
hoop dat ik de vraag goed heeft omschreven

Iemand een oplossing?

Dit werkt wel :

Sub Open_AfsprakenlijstenHB75()
Dim File_Location As String
Dim File_Name As String

    File_Location = "https://d.docs.live.net/55xxxxxxxxxxbbf5bf/Afsprakenlijsten%20HB75%5eM/"
    File_Name = "WMO%20DAR%20AfsprakenLijsten%20HB75%5eM.xlsx"
    Workbooks.Open File_Location & File_Name, Password:="paswoord"
End Sub

dit werkt niet :

Private Sub CommandButton1_Click()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
Dim File_Location As String
Dim File_Name As String

    File_Location = "https://d.docs.live.net/55xxxxxxxxxxbbf5bf/Afsprakenlijsten%20HB75%5eM/"
    File_Name = "WMO%20DAR%20AfsprakenLijsten%20HB75%5eM.xlsm"

  
  Set wsCopy = ActiveWorkbook.Worksheets("Huisbezoeken")
  Set wsDest = (File_Location & File_Name) .Worksheets("Afsprakenlijst")
  
  lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "D").End(xlUp).Row
  lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
  
  wsCopy.Range("D3:I" & lCopyLastRow).Copy
  wsDest.Range("A" & lDestLastRow).PasteSpecial xlPasteValues
  wsDest.Range("A" & lDestLastRow).PasteSpecial xlPasteComments
  Application.CutCopyMode = False 
End Sub

 

[JEC.]

Ik vind je vraag onleesbaar...

 

[loek010]

@JVeer

Oke onleesbaar maar het staat toch echt in het Nederlands geschreven :d, misschien bedoel je dat de vraag niet goed geformuleerd is dan begrijp ik het
maar ik weet niet hoe ik het anders moet omschrijven er is een ondrive die in excel via locatie toevoegen is toegevoegd op deze drive staan de 2 bestanden
die ik lokaal op de de desktop met excel kan openen ze staan dus in de cloud op onedrive niet lokaal op de computer
het openen van het bestand waar naar toe gekopieerd moet worden werkt wel van uit het ene bestand alleen er naar toe kopiëren werkt dus weer niet

 

[JEC.]

Zou niet weten of het werkt. Jouw code wat aangepast:

PS: Het ging me om je Nederlands. Zonder interpunctie is je vraag onleesbaar

Sub j()
    File_Location = "https://d.docs.live.net/55xxxxxxxxxxbbf5bf/Afsprakenlijsten%20HB75%5eM/"
    File_Name = "WMO%20DAR%20AfsprakenLijsten%20HB75%5eM.xlsm"
    
    Set DestFile = Workbooks.Open(File_Location & File_Name).Sheets("Afsprakenlijst")
      With ThisWorkbook.Sheets("Huisbezoeken")
        lCopyLastRow = .Cells(.Rows.Count, 4).End(xlUp).Row
        lDestLastRow = DestFile.Cells(DestFile.Rows.Count, 1).End(xlUp).Offset(1).Row
        .Range("D3:I" & lCopyLastRow).Copy
        DestFile.Range("A" & lDestLastRow).PasteSpecial xlPasteValues
        DestFile.Range("A" & lDestLastRow).PasteSpecial xlPasteComments
      End With
  Application.CutCopyMode = False
End Sub

 

[loek010]

@JVeer

Je code werkt het zat inderdaad in Workbooks.open nu ziet hij het bestand wel en kopieert nu wel.
Alleen ben ik vergeten je te vertellen dat het een gefilterde lijst is die gekopieerd moet worden
dus hij zet dan de hele lijst over, maar heb dat probleem opgelost met SpecialCells(xlCellTypeVisible)
dus probleem opgelost, thanks voor de hulp :thumb:

 

[JEC.]

Ahh kijk! Mooi