• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Foutmelding bij gebruik macro in factuurprogramma factuur5.xls

Status
Niet open voor verdere reacties.

Pieter74

Nieuwe gebruiker
Lid geworden
19 jul 2012
Berichten
4
Hoi,

Voor het maken van facturen maak ik al geruime tijd gebruik van factuurprogramma factuur5.xlsm

Op mijn oude laptop gaf dit nooit problemen. In eerste instantie op mijn nieuwe laptop ook niet. Na een aantal facturen kwam er echter een foutmelding tijdens het uitvoeren van de macro die de factuur genereert.
Na van alles geprobeerd te hebben heb ikexcel opnieuw geinstalleerd. Na het maken van een factuur waarbij de macro werkte, zit ik nu weer met hetzelfde probleem.

Na het uitvoeren van de macro krijg ik geen factuur te zien maar de volgende melding: Fout 2147024809 (80070057) tijdens uitvoering: Het item met de opgegeven naam is niet gevonden.

Wanneer ik dan foutopsporing selecteer krijg ik in een overzicht één geel gemarkeerde regel te zien. Ik vermoed dat het om het "item" gaat wat daar wordt genoemd.

Een stukje uit de tekst:

'Afmetingen van kopie aanpassen
Code:
With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.4)
        .RightMargin = Application.InchesToPoints(0.4)
        .TopMargin = Application.InchesToPoints(0.4)
        .BottomMargin = Application.InchesToPoints(0.4)
End With
    ActiveSheet.Shapes("Picture 2").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    'Selection.ShapeRange.Height = 500
    Selection.ShapeRange.Width = 480
    DoEvents

'Kopiebestand opslaan
    On Error GoTo FoutBijOpslaan
    If Bestandsnaam$ > "" Then ActiveWorkbook.SaveAs Bestandsnaam$
    On Error GoTo 0
Ik vermoed dat "picture 2" niet wordt gevonden.
Weet iemand of dit klopt, waarom dit zo is en of ik dit op kan lossen.

Voorlopig maak ik de facturen nog maar even op mijn oude laptop maar een oplossing zou zeer welkom zijn.

Gr. Pieter
 
Laatst bewerkt door een moderator:
Code:
ActiveSheet.Shapes("Picture 2").Select

Dit is een foto van de weggeschreven factuur.
Dus loopt er iets anders mis.
Zonder bestand is dat(voor mij) niet te achterhalen.
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan