Foutmelding bij opslaan in OneDrive map

[Gijs van de wij]

Beste mensen,

Ik heb een knop gemaakt die een sheet opslaat als PDF
Waarbij ik een map kan kiezen op een OneDrive map op mijn Laptop
(De "Locatiekiezer" gaat naar de eerste letter van de klant.
Alleen geeft hij een foutmelding (runtime error) Zie plaatje in voorbeeld bestand
Als ik een andere locatie aangeeft in de functie (geen OneDrive map) gaat het wel in één keer goed???
Bij debuggen en doorstappen met F8 werkt het wel in de One Drive map

Heeft iemand een idee in welke richting ik de macro moet aanpassen om het wel te laten werken?

Alvast bedankt

Gijs

 

[edmoor]

Daar kan ik niet veel mee zonder dat je het hele pad naar de OneDrive map er bij vermeld en of dat pad bestaat ja of nee.

 

[Gijs van de wij]

Hallo Edmoor

Het path van de OneDrive bestaat D:\Users\I03800067\OneDrive - XXXX\Public\Klanten\

de XXXX is een bedrijfsnaam

Het path werkt waar hij op vastloopt is in OneDrive is

ActiveSheet.ExportAsFixedFormat 0, Locatie & Bestandsnaam & Format(Date, "dd-mm-yyyy") & ".pdf"

De keuze van de locatie werkt goed

Waarschijnlijk is het voorbeeld bestand te klein als ik er wat meer data in zet dan loopt het ook vast op deze regel.

Vervelend is wel dat het soms ook wel goed gaat.
Ook het originele bestand staat in een OneDrive map.

Het lijkt of excel soms te snel opgeeft om het bestand compleet te plaatsen.
Of het lijkt alsof OneDrive tijdens het plaatsen van het document er iets mee wil doen.


Wat ik met deze code wil bereiken is dat
de filelocatie zoeker naar de d:\.....\klanten/A,B,C, enz
Afhankelijk van de eerste letter van de klant
waarna ik een map kan uitkiezen die bestaat of een nieuwe map aanmaken.
daarna moet de sheet als PDF wordt opgeslagen.


Ik hoop dat dit het wat duidelijker maakt

 

[edmoor]

Heb je in de Verkenner soms de Preview mode (Voorbeeldvenster) aan staan?
Zet die dan eens uit.

 

[Gijs van de wij]

ik heb de preview in verkenner uit gezet
Het werkt 3 x en daarna is het gedaan met de pret
Het is nu wel dat OneDrive van alles aan het updaten is

 

[edmoor]

Probeer het nog maar eens als OneDrive gereed is. Ik verwacht dat het dan over is.
Al kan het uiteraard weer gebeuren als OneDrive bezig is op het moment dat je die PDF opslaat.
Ik zou er een On Error bij zetten en dan controleren of Err.Number 1004 is.
Zoja, een seconde wachten en dan nogmaals proberen.
Zonee, MsgBox Err.Description en stoppen.

 

[Gijs van de wij]

Ik hen een workaround gevonden
eerst naar de c:\temp wegschrijven en daarna verplaatsen naar de juiste locatie op de OneDrive.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim Bestandsnaam As String
    Bestandsnaam = "\" & Range("F4").Value & " Tagnummer " & Range("F3") & " "
Dim Locatie As String
    
    Locatie = "C:\Temp\"
    ActiveSheet.ExportAsFixedFormat 0, Locatie & Bestandsnaam & Format(Date, "dd-mm-yyyy") & ".pdf"
    BSTNa = Bestandsnaam & Format(Date, "dd-mm-yyyy") & ".pdf"
    BSTNb = Bestandsnaam & Format(Date, "dd-mm-yyyy") & ".pdf"

    Locatie = GetFolder()
    
    For i = 1 To 20
    
    If Dir(Locatie & BSTNb) <> "" Then
    
        BSTNb = Bestandsnaam & Format(Date, "dd-mm-yyyy") & " " & i & ".pdf"
    End If
    Next
    
        Name "C:\Temp" & BSTNa As Locatie & BSTNb
    
    

Application.ScreenUpdating = True

End Sub