• 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 NIET opslaan

Status
Niet open voor verdere reacties.

vrouw

Terugkerende gebruiker
Lid geworden
27 mrt 2010
Berichten
1.520
Ik heb onderstaande code voor het opslaan van document.
Als het bestand al bestaat en met de vraag komt om te overschrijven en je dan kiest voor Nee krijg ik de foutmelding:

Run-time error '91'
Object variable or With block variable not set.

Kies je Ja dan is er geen probleem.

Code:
ThisWorkbook.SaveAs "C:\testing\" & .[B2] & .[B3] & .[AB5] & .[C4] & ".xls"
 
Ergo ?

Code:
Application.displayAlerts=False
ThisWorkbook.SaveAs "C:\testing\" & .[B2] & .[B3] & .[AB5] & .[C4] & ".xls"
 
Zooo blond...
Ik had de regel Application.displayAlerts=False
na de oplaancode geplaatst:o
 
Nu komt er dus helemaal geen melding meer he??
Kan je een melding nog wel laten komen voor het overschrijven maar dat er geen foutmelding van de VBA komt?
 
Test dan met de Dir functie of het bestand al bestaat, of niet. In beide gevallen neem je een gepaste actie.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan