Opslaan als

[gerrit123456789]

Ik heb het bestand bijgevoegd.

Probeer het maar eens op te slaan en kijk dan maar weer eens bij dit bestand in de VBA.

Groet,

GerritBekijk bijlage Ploegoverdracht.xlsm

 

[edmoor]

Dat document heeft geen code in de ThisWorkbook sectie.

 

[gerrit123456789]

Ik snap er helemaal niets meer van.
Ik zet de code in this workbook en telkens verdwijnt het weer.

Ik begin bijna de moed op te geven.

 

[edmoor]

Moet het document Ploegoverdracht TK2 en 3 wel of geen code bevatten?

 

[gerrit123456789]

Het opgeslagen dokument ploegoverdracht TK2 en 3 hoeft geen code meer te bevatten.
Het dokument ploegoverdracht moet de code wel blijven bevatten.,

 

[gast0660]

Als je de code uit postje #34 gebruikt blijft de code erin.

 

[gerrit123456789]

Laat maar zitten.

Ik ga wel voor iedere week een bestand maken.
Dit schiet niet op.

In ieder geval bedankt voor de hulp.

groet,

Gerrit

 

[gast0660]

Ik zet de code in this workbook en telkens verdwijnt het weer.

Dit is niet genoeg, je moet het onder deze zetten in this workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub

 

[gerrit123456789]

Ik geef de moed op.

Het werkt allemaal voor geen meter.

Ik maak wel een map met 52 bestanden voor de week nummers van 2017

 

[edmoor]

Probeer dan als laatste deze nog maar eens:
Bekijk bijlage Ploegoverdracht.xlsm

Werkt hier prima.

Ik heb er dit van gemaakt in de ThisWorkbook sectie:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Pad As String
    Dim Bst As String
    
    Pad = "C:\Users\Gerrit\Downloads\Test\overdracht\overzicht\"
    With Sheets("Data")
        Bst = "Ploegoverdracht TK2 en 3" & " - " & "jaar " & .Range("A20") & " - " & "week " & .Range("A22") & ".xlsm"
        If Bst = ActiveWorkbook.Name Then Exit Sub
    End With
    
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveCopyAs Filename:=Pad & Bst
    Application.DisplayAlerts = True
    MsgBox "Het document is klaar.", vbInformation, "Opgeslagen"
End Sub

 

[gerrit123456789]

Dit werkt goed.

Dank je wel voor de hulp.

Ik kan nu weer verder.

Nogmaals bedankt.

 

[edmoor]

Kan je toch zonder frustratie de feestdagen in