Allen
Ik gebruik onderstaande code om een back up te nemen (file verandert van naam - gebruiker en nummer), deze werkt...
Nu probeer ik om deze back up ook nog eens op te slaan onder dezelfde naam op een ander locatie, dit doet niets...
Ik gebruik onderstaande code om een back up te nemen (file verandert van naam - gebruiker en nummer), deze werkt...
Nu probeer ik om deze back up ook nog eens op te slaan onder dezelfde naam op een ander locatie, dit doet niets...
Code:
Sub Opslaan_copy()
If Not ThisWorkbook.ReadOnly Then
Select Case MsgBox("Bestand opslaan?", vbYesNo, "Vraagske") '3 keuze box openen, "Ja/Nee/Annuleren"
Case Is = vbYes 'Wanneer "Ja", opslaan op de locaties hieronder
' Opslaan file zonder nummer en gebruiker, naam is standaardnaam werkt niet!!!
'ActiveWorkbook.Save "W:\AS_ONDH\9. Mappen van WVB-IBT-WM\Ron\Chris\" + ActiveWorkbook.Name
Dim Origname As String
Application.DisplayAlerts = False
With Sheets("Blad2")
.Range("A1").Value = .Range("A1").Value + 1
If .Range("A1").Value >= 500 Then
.Range("A1").Value = 1
End If
ActiveWorkbook.Save
End With
ActiveWorkbook.SaveAs "W:\AS_ONDH\9. Mappen van WVB-IBT-WM\Ron\Up2DateCopyPoPlanfile\" & Sheets("Blad2").Range("A1") & " " & Replace(Environ("username"), ".", " ")
Application.DisplayAlerts = True
Exit Sub 'Afsluiten bestand na het opslaan
'Case Is = vbCancel 'Wanneer "Annuleren", terug naar bestand
'Cancel = True
Case Is = vbNo 'Wanneer "Nee", afsluiten zonder opslaan
ThisWorkbook.Saved = True
Exit Sub 'Afsluiten "ingeval van gebruiker..."
End Select
End If
End Sub
