• 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.

Macro werkt wel in excel 2003 maar niet in 2007 en 2010: Workbooks.Open Filename:=Ac

Status
Niet open voor verdere reacties.

oceanrace

Gebruiker
Lid geworden
14 mei 2008
Berichten
198
Hallo,
Onderstaande code werkt perfect in excel 2003.
Echter, excel 2007 en 2010 loopt erop vast!
Weet iemand hier een oplossing voor?

Code:
Sub heropen()
       Keuze = MsgBox("Alle ingevulde gegevens worden gewist, weet je het zeker?", vbExclamation + vbYesNo, "Bestand resetten")
 
    Select Case Keuze
 
        Case vbYes
ActiveWorkbook.Saved = True
Workbooks.Open Filename:=ActiveWorkbook.FullName
Application.EnableEvents = True
 
        Case vbNo
   End Select
Exit Sub
 
End Sub
 
Dat is vreemd,
Bij mij loopt hij vast.
Zou het door de grootte van het bestand komen misschien?
Of door mijn laptop uit 2007...
 
Zou je ook gewoon het laatst geopende bestand opnieuw kunnen openen op een andere manier?
 
Ik heb het inmiddels als volgt opgelost:


Sub heropen()
Keuze = MsgBox("Alle ingevulde gegevens worden gewist, weet je het zeker?", vbExclamation + vbYesNo, "Bestand resetten")

Select Case Keuze

Case vbYes
Application.OnTime Now + TimeSerial(0, 0, 1), _
"'" & ThisWorkbook.Name & "'!naamvanjemacro"

ThisWorkbook.Close savechanges:=False

Case vbNo
End Select
Exit Sub

End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan