Hallo
Ich habe folgende Code
If Dir("G:\Doc\Commun\Bureau chefdépt\Depot\octobre\" & Cells(3, 8) & ".xls") = "" Then
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="G:\Doc\Commun\Bureau chefdépt\Depot\octobre\" & Cells(3, 8) & ".xls"
Application.ScreenUpdating = True
End If
Das Datum steht in Cells3,8
Das funktioniert auch.
Mit Code kontrolliert Excel ob schon eine Mappe mit Name vom heutigen Datum existiert.
Wenn nein dann kein Problem.
Wenn ja dann soll er die bestehende Mappe mit dem heutigen Datum öffnen und ein Sheet einfügen und anstatt die Mappe zu erstellen nur ein Sheet in der Mappe erstellen.
Hoffentlich habe ich mich verständlich ausgedrückt.
Gruss Lucien