Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmij'ers,
Ik ben bezig met een vba-code in Excel om een bestand op te slaan dat een andere naam heeft dan het origineel.
Het originele bestand is: Blanco Interactieve checklist Wab versie 1.02.xlsm. Wanneer het bestand deze naam heeft mag het systeem deze niet opslaan, echter wanneer deze een andere naam heeft is dat wel toegestaan.
Op basis van bovenstaande code gaat het systeem er altijd vanuit dat het om een ander bestand gaat dan het origineel, terwijl dat bij het testen niet het geval is.
Wat doe ik niet goed?
Alvast heel erg bedankt.
Robert
Ik ben bezig met een vba-code in Excel om een bestand op te slaan dat een andere naam heeft dan het origineel.
Code:
Sub opslag()
Bestand = "C:\BEH\2. WAB onderzoeken\1. Posten Titel Bescherming\Testmap\checklist.xlsm"
If Filename = "C:\BEH\2. WAB onderzoeken\1. Posten Titel Bescherming\Testmap\[COLOR="#FF0000"]Blanco Interactieve checklist Wab versie 1.02.xlsm[/COLOR]" Then
MsgBox "Je bevind je nu in het originele sjabloon, deze mag niet worden vervangen"
Exit Sub
Else
MsgBox "Je bevind je nu niet meer in het originele sjabloon, deze mag worden vervangen"
If MsgBox("U staat op het punt om dit bestand op te slaan. Is dit de bedoeling?", vbYesNo, "Blad opslaan?") = vbNo Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Bestand
End If
End Sub
Het originele bestand is: Blanco Interactieve checklist Wab versie 1.02.xlsm. Wanneer het bestand deze naam heeft mag het systeem deze niet opslaan, echter wanneer deze een andere naam heeft is dat wel toegestaan.
Op basis van bovenstaande code gaat het systeem er altijd vanuit dat het om een ander bestand gaat dan het origineel, terwijl dat bij het testen niet het geval is.
Wat doe ik niet goed?
Alvast heel erg bedankt.
Robert