Save macro die niet automatisch overschrijft

[erwinvandod]

Hallo ik heb al geruime tijd een macro waarmee ik dingen op kan slaan. Deze macro maakt ook automatisch de mappen ervoor aan als deze er nog niet zijn. Heel handig echter ik beging nu wat problemen te krijgen dat hij automatisch een oud bestand met dezelfde naam overschrijft. Ik krijg het niet voor elkaar om het niet automatisch te overschrijven ook mede omdat de macro ervoor gemaakt is nieuwe mappen aan te maken indien ze er nog niet zijn.

Hier is een klein stukje van mijn bestand waar ik het over heb met de VB code erin, ik hoop dat jullie me kunnen helpen.

http://www.mijnbestand.nl/Bestand-RPUTN8QHMONK.xlsm

 

[Cobbe]

Voeg de tijd toe aan de naam :

opslag = myndir & boot & " " & naam & " " & datum & "" & format(now, "hhmmss")

Dan is dat probleem opgelost en ben je er zeker van altijd de laatste versie te bezitten.

 

[erwinvandod]

Cobbe,

Dat is op zich een snelle oplossing, maar ik zoek eigenlijk iets meer in de trend van een msgbox die vraagt of ik wil overschrijven of niet. Als ik alleen de tijd toevoeg krijg ik heel veel dubbele bestanden warvan ik straks dus niet meer weet wat wat is omdat mijn hersenen niet alle tijden waarop ik ze opsla kan onthouden

 

[Cobbe]

Dan kun je toch zeker op deze verder borduren:

Sub SaveFire()
Dim strNewFolderName As String
strNewFolderName = "Herman Senior"
If Len(Dir("c:\Herman Senior safety", vbDirectory)) = 0 Then
    MkDir ("c:\Herman Senior safety")
  End If
If Len(Dir("c:\Herman Senior safety\Drills", vbDirectory)) = 0 Then
    MkDir ("c:\Herman Senior safety\Drills")
  End If
If Len(Dir("c:\Herman Senior safety\Drills\Fire drills", vbDirectory)) = 0 Then
    MkDir ("c:\Herman Senior safety\Drills\Fire drills")
  End If


Dim datum, naam, boot, myndir As String

myndir = "C:\Herman Senior safety\Drills\Fire drills\"
If Len(myndir) > 0 Then
Msg = "Bestand bestaat reeds, wil u toch oplsaan?"    ' Definieert bericht.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Definieert knoppen.
Title = "Waarschuwing"    ' Definieert titel.
                          ' Geeft bericht weer.
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then   ' Gebruiker koos Neen.
    Exit Sub              ' Voert bepaalde handeling uit.
Else                      ' Gebruiker koos Ja.
End If
End If
boot = Range("C7").Value
naam = Range("A5").Value
datum = Range("c9").Value
opslag = myndir & boot & " " & naam & " " & datum & ""
MsgBox opslag
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=opslag, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[erwinvandod]

Cobbe,

Werkt op zicht goed alleen ook al bestaat het bestand nog niet vraagt die ook of ik op wil slaan. Dit probleem heb ik eerder gehad omdat hij dus automatisch mappen aan moet maken.

 

[Cobbe]

Probeer eens wat op te steken van een kenner::thumb:

http://spreadsheetpage.com/index.php/site/tip/some_useful_vba_functions/