Macro werkt niet

[Hans290875]

Weet iemand de oplossing voor onderstaande foutoplossing bij de macro 'sluiten'?

 

[peter59]

Ik heb het vermoeden dat dit iets met de printer te maken heeft.
Klopt het dat je ook deze foutmelding krijgt?

1004 - De huidige printer is niet beschikbaar. Selecteer een andere printer.

 

[edmoor]

Werkt prima hier met mijn test.
Wel de code iets vereenvoudigd.
Wat is de foutmelding die je krijgt?

Sub sluiten()
    Dim FacName As String
    'FacName = "C:\Users\DickRhetap\Rhetap\Rhetap - Documenten\Documenten\D.v.Rhee Holding\Facturen [Verzonden]\Fact " & Range("E18").Value & ".pdf"
    FacName = "C:\Users\Ed\Desktop\Facturen [Verzonden]\Fact " & Range("E18").Value & ".pdf"
 
    If Dir(FacName) <> "" Then
        MsgBox "Het bestand: " & FacName & " bestaat reeds"
    Else
        ActiveSheet.ExportAsFixedFormat 0, FacName
        Range("E18").Value = Range("E18").Value + 1
        Range("B12").Select
        ActiveWorkbook.Close savechanges:=True
    End If
End Sub

 

[Hans290875]

Ik heb de vereenvoudigde code 1 op 1 overgenomen in het Excelbestand.
In de 2 bijlagen de foutmelding.

 

[edmoor]

Je moet in die macro uiteraard wel je eigen foldernamen gebruiken.
Nu staat mijn test info er in.

 

[Hans290875]

Ik heb voor de test info een ' gezet, maar ik blijf de foutmelding houden.

 

[edmoor]

Welke regel wordt geel als je op Foutopsporing klikt?
Wat staat er precies in cel E18?

 

[Warme bakkertje]

Getest en goedgekeurd. Als het bij jou niet werkt scheelt er duidelijk iets met het pad naar de folder.

Sub sluiten()
    Dim FacName As String, fName As String
    With Sheets("Factuur")
        FacName = "C:\Users\DickRhetap\Rhetap\Rhetap - Documenten\Documenten\D.v.Rhee Holding\Facturen [Verzonden]\"
        fName = "Fact " & .Range("E18").Value
        If Dir(FacName & fName & ".pdf") <> "" Then
            MsgBox "Het bestand: " & Chr(10) & Chr(9) & FacName & fName & ".pdf" & Chr(10) & " bestaat reeds!"
        Else
            .ExportAsFixedFormat 0, FacName & fName
            .Range("E18").Value = .Range("E18").Value + 1
            Application.Goto .Range("B12")
            ActiveWorkbook.Close True
        End If
    End With
End Sub

 

[edmoor]

Als het pad wel in orde is kan het ook zo zijn dat de inhoud van E18 een teken bevat dat niet in een bestandsnaam mag worden gebruikt.
Vandaar mijn vraag in #7.

Overigens had ik mijn voorbeeld in #3 uiteraard ook getest en in orde bevonden.
Als je een MsgBox zo netjes opmaakt zou ik er ook nog vbInformation of vbExclamation achter zetten

 

[Warme bakkertje]

Volgens het vb is het gewoon een nummer (dat volgens de code telkens met 1 wordt verhoogd na elke export) dus normaal gezien zou daar het probleem niet mogen liggen.
Jouw code werkt uiteraard ook feilloos maar ik heb er voor de zekerheid toch maar een expliciete verwijzing naar het factuurblad aan toegevoegd. (ben geen grote fan van ActiveSheet)

 

[edmoor]

De macro wordt gestart met een knop op het werkblad en dan is ActiveSheet sowieso overbodig, maar voor sommige opdrachten is een verwijzing naar het werkblad of een Range verplicht.

Bericht automatisch samengevoegd: Gisteren om 15:45

Volgens het vb is het gewoon een nummer (dat volgens de code telkens met 1 wordt verhoogd na elke export) dus normaal gezien zou daar het probleem niet mogen liggen.

Daar heb je helemaal gelijk in.

 

[Hans290875]

In de bijlage de regel die geel wordt bij de foutopsporing.
Kan de foutmelding iets te maken hebben met het feit dat alle data via Onedrive gaan?

 

[edmoor]

Weet je zeker dat de paden correct zijn?
Heb je dat al eens goed gecontroleerd?
Want die melding duidt erop dat dat niet zo is, zoals al eerder werd geopperd.

Kijk ook naar de rechten.
Ga in de verkenner naar die laatste folder.
Klik met rechts en kies Nieuw.
Staat er dan alleen Folder dan heb je geen rechten om daar een bestand aan te maken.
Dat is wat mij betreft de meest waarschijnlijke oorzaak van je probleem.
Maak dan dat pad ergens anders aan en dus niet in C:\Users

 

[HSV]

Lijkt me dat er dan de OneDrive map bij tussen moet staan.

FacName = "C:\Users\DickRhetap\OneDrive\Rhetap\Rhetap - Documenten\Documenten\D.v.Rhee Holding\Facturen [Verzonden]\"

 

[edmoor]

Dat is inderdaad ook nog mogelijk, de OneDrive ellende.
En is het eerste dat ik na een Windows installatie volledig verwijder.

 

[HSV]

Ik gebruik wel OneDrive (gemakzucht via mobiel), maar heb het uitgeschakeld op Excel.
Wat een ellende steeds.

 

[cow18]

stomme opmerking, kan die "facname" op een bepaald moment niet te lang worden ? Ik denk dat ik daar ooit nog eens iets mee gehad heb.
Edit : eventjes gegoogled, 255, dus dat legt wel heel ver weg ...