Macro om pdf maken en nummer ophogen

[whe]

Hallo,

Ik heb een macro gemaakt om een pdf te maken en deze op te slaan in een van te voren aan te geven plaats.
Deze de naam te geven van een factuurnummer.
Hierna de factuur nummer met 1 op te hogen.
Ik krijg een foutmelding dat dit bestand al bestaat of dat deze geopend is.
Kan iemand naar mijn macro kijken om te zien wat er niet goed is.
Alvast bedankt.

Wil

Sub Knop1_Klikken()
'
' Knop1_Klikken Macro
' Kopieren van het bestand


    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show <> -1 Then MsgBox "Geen directory geselecteerd! Probeer opnieuw...": Exit Sub
        mydir = .SelectedItems(1)
    End With
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=mydir & "\" & Right([M23], 5) & ".pdf"
    [M23].Value = [M23].Value + 1
End Sub

M23 is de plaats waar de factuurnummer staat.
5 is de positie die opgehoogd moet worden.

 

[edmoor]

Hij doet het hier prima, ook als ik hem laat opslaan met een pdf naam die al bestaat. Ik zou dus zo niet weten waarom hij het bij jou niet doet. Maar probeer het eens zo:

Sub Knop1_Klikken()

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show <> -1 Then MsgBox "Geen directory geselecteerd! Probeer opnieuw...": Exit Sub
        mydir = .SelectedItems(1)
    End With
    
    Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=mydir & "\" & Right([M23], 5) & ".pdf"
    [M23].Value = [M23].Value + 1
    Application.DisplayAlerts = True
    
End Sub

 

[whe]

Blijf de melding houden.
Bij onderstaande tekst maakt hij een probleem.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=mydir & "\" & Right([M23], 5) & ".pdf"

Wil

 

[edmoor]

Ja, en die doet het bij mij prima. Hoe ziet dat factuurnummer in M23 eruit?

 

[whe]

gewoon nummer van 5 cijfers.
53013

 

[edmoor]

Hij blijft het bij mij gewoon goed doen met de macro zoals je deze eerst plaatste. Kan er niks anders van maken.
Kies je wel een map waar je schrijfrechten hebt?

 

[whe]

Ik probeer het vandaag met een andere versie office.
Laat de uitslag weten.

 

[edmoor]

Wie weet. Ik heb Office 2010.

 

[Warme bakkertje]

Het enige wat je nog zou kunnen toevoegen om zeker te zijn dat de juiste waarde genomen wordt is een With....End With lus.
Ook de bemerking dat die Right..constructie toch overbodig is als er toch maar enkel 5 cijfers in die cel staan, dan gebruik je toch gewoon de celwaarde als bestandsnaam.
Voor de rest moet ik de woorden van edmoor toetreden dat dit voor de rest perfect werkt (XL2007).
Wat betreft die schrijfrechten zou je een foutmelding krijgen dat het bestand niet kan worden opgeslagen op de gekozen locatie, niet dat het bestand al bestaat of geopend is.

Sub Knop1_Klikken()

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show <> -1 Then MsgBox "Geen directory geselecteerd! Probeer opnieuw...": Exit Sub
        mydir = .SelectedItems(1)
    End With
    Application.DisplayAlerts = False
    With ActiveSheet
        .ExportAsFixedFormat 0, mydir & "\" & Right(.[M23], 5) & ".pdf"
        .[M23].Value = .[M23].Value + 1
    End With
    Application.DisplayAlerts = True
    
End Sub

 

[whe]

Hallo,

Op excel versie 2010 werkt hij perfect.
Het is toch iets waar office 2007 niet mee overweg kan.
Bedankt voor de reacties

 

[whe]

De wijzigingen van warme bakkertje geprobeerd en het werkt perfect onder office 2007.
Bedankt.