Ga naar inhoud

Sary

Lid
  • Aantal items

    108
  • Registratiedatum

Recente bezoekers van dit profiel

769 profielweergaven

Sary's prestaties

  1. Sary

    VBA Onedrive

    Geen probleem. Ik stuur je de gegevens door.
  2. Sary

    VBA Onedrive

    Zo bedoel je dan?
  3. Sary

    VBA Onedrive

    Hey Dotchiejack, Vraagje, waar haal ik het path?
  4. Sary

    VBA Onedrive

    Dag Dotchiejack, Ik heb dat hier net geprobeerd om van thuis erop te geraken maar hij opent mijn excel niet. Ik geraak op mijn Onedrive account maar als ik naar de map ga, moet ik mijn Excel openen via de knop openen in Deskop-app dit staat dan in mijn opdrachtknoppen==>> Excel voor het web ondersteunt het uitvoeren of communiceren met ActiveX-besturingselementen niet. Als u ActieveX-besturingselementen wil gebruiken, opent u dit bestand met de descop-app)en dat doet hij niet. Bestanslocatie = Mijn bestanden>Database labo>Database Mengers Tankstalen Inpak en Vloeibaar. Hier staat een map in: Vroege, Late, Nacht, Weekend-Dag, Weekend Nacht met telkens daarin een Word document in. De Excel Database staat ook in deze map. Dit ter info Mvg
  5. Sary

    VBA Onedrive

    Hey, Vandaag moet ik niet werken maar misschien geraak ik van thuis uit in onze Onedrive. Ik bekijk straks of ik je de submappen en path kan doorsturen..
  6. Sary

    VBA Onedrive

    Nog vergeten bij te zeggen: die mappen in Onedrive Vroege 14 augustus heb ik zo niet genoemd. Ik heb enkel deze map vroege genoemd. De datum wordt daar automatisch bijgezet. Mvg, Private Sub Cmd.docx
  7. Sary

    VBA Onedrive

    & "\Vroege" & "\" ( Hier kan ik mijn Word document niet naar vernoemen door de speciale tekens )
  8. Sary

    VBA Onedrive

    Bedankt voor de info😉
  9. Sary

    VBA Onedrive

    als ik ,het goed begrepen heb moet ik mijn Worddocument veranderen naar Vroege?
  10. Sary

    VBA Onedrive

    Dag Dotchiejack, Ik heb dit net aangepast maar ik krijg een foutbericht ==>> mijnbestand = Dir(mijnfolder & "\*.Doc*") Private Sub Cmd_00_Click() Unload Me End Sub Private Sub LB_00_Click() On Error GoTo oops L_00.Caption = LB_00.Column(0) mijnfolder = ThisWorkbook.Pat & "\Excel" & "\" mijnbestand = mijnfolder & L_00.Caption Set Excelapp = CreateObject("Excel.Application") Exceldapp.Documents.Open mijnbestand Excelapp.Visible = True oops: End Sub Private Sub OB_00_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Vroege" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_01_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Late" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_02_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Nacht" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_03_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Weekend-Dag" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_04_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Weekend-Nacht" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub
  11. Sary

    VBA Onedrive

    Ok, ik pas het vanavond aan. Bedankt!
  12. Sary

    VBA Onedrive

    Dit is de locatie waar we het delen en bewerken. Moet ik hiervan dan niets bijvoegen? https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar
  13. Sary

    VBA Onedrive

    Beste, Ik heb dit net aangepast, maar hij opent geen Word documenten als ik deze aan-vink. Private Sub Cmd_00_Click() Unload Me End Sub Private Sub LB_00_Click() On Error GoTo oops L_00.Caption = LB_00.Column(0) mijnfolder = ThisWorkbook.Path & "\Excel" & "\" mijnbestand = mijnfolder & L_00.Caption Set Excelapp = CreateObject("Excel.Application") Exceldapp.Documents.Open mijnbestand Excelapp.Visible = True oops: End Sub Private Sub OB_00_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Vroege" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_01_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Late" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_02_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Nacht" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_03_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Weekend-Dag" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_04_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Weekend-Nacht" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub
×
×
  • Nieuwe aanmaken...