Wo finde ich die Sicherungsdatei?
Hi,
du willst doch nicht ernsthaft behaupten, dass du keine Sicherungsdatei angelegt hast, sondern deine Tests in deiner einzigen Originaldatei durchführst?
Hallo,
hier der funktionierende Code:
Code:
Sub Effacer_Database()
'
' Effacer_les_données Macro
ok = MsgBox("Voulez-vous vraiment effacer toutes les données importées???", vbOKCancel + vbCritical)
If ok = vbCancel Then Exit Sub
Range("A4:BO2057").Select
Selection.ClearContents
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearComments
MsgBox "A présent toutes les données sont effacées irrémédiablement!"
End Sub
Vielen Dank für eure freundliche Hilfe!
Schönes WE
Alooha
Hallo,
@Günter:
sorry, ich war auf der ersten Seite geblieben und hatte deine Nachricht nicht bemerkt.
Doch, alle 5 Minuten wird die Sicherungsdatei abgespeichert, aber, auf deine Frage hin habe ich jetzt nachgeschaut und jetzt erst bemerkt dass dort auch (eigentlich logischerweise) steht, wo die Sicherungsdateien abgespeichert werden. Das wusste ich eben nicht, habe im Internet gesucht, und bin fündig geworden, habe in dem angegebenen Ordner auf meinem PC gesucht, dort auch eine Datei gefunden, aber nicht die richtige.
Danke für deine Frage! Durch sie weiss ich jetzt wo sie sind.
Aber ich hatte sowieso so gut wie nichts geändert seit dem letzten Abspeichern.
Salve
Alooha