Salut
Comment puis-je enregistrer automatiquement une feuille Excel entière sur une clé USB en un seul clic ?
---
Hi
How can I automatically save an entire Excel sheet to a USB with one click?
..tnx
Hi Wie kann ich mit einem Klick automatisch eine ganze Excel-Tabelle auf einem USB-Stick speichern? ..tnx
Hallo,
warum jetzt drei Sprachen in diesem deutschen Forum? Und warum mehrfach derselbe Beitrag im Forum?
Den Beitrag im Access-Forum habe ich gelöscht. Dieser Beitrag passt zudem nicht zu den früheren Beiträgen von Dir.
Bis das geklärt ist, habe ich Dich erstmal auf Moderierte Beiträge gesetzt, was heißt, dass Beiträge von Dir
dann freigeschaltet werden müssen. Gegebenenfalls bitte per PN Kontakt aufnehmen.
Gruß
Hallo,
herzlichen Dank für die Klärung. Das Konto läuft wieder normal, also unmoderiert.
Gruß
Hallo,
ich schätze mal, Du hast die Frage auch hier gestellt:
https://www.clever-excel-forum.de/Thread...rn-auf-USB
Dazu zunächst der Hinweis, dass wir Crosspostings - also das Schreiben der Frage derselben Frage in verschiedenen Foren - zwar erlauben,
es aber gut und sinnvoll die Beiträge in den verschiedenen Foren untereinander zu verlinken. Denn sonst arbeiten mehrere Helfer/innen
gleichzeitig an Deinem Problem, ohne voneinander zu wissen.
Jetzt zur Frage: damit Du eine Auswahl der USB-Laufwerke treffen kannst, bräuchtest Du bspw. eine Userform.
Ich habe Dir mal eine Beispieldatei erstellt, Du im Modul noch das Speichern ergänzen und testen müsstest.
Gruß
MsgBox strDrive
ThisWorkbook.SaveAs frmDrives & ":\excel\" & Format(Now, "yyyy.mm.dd") & ".xlsm"
End If
----
dann bräuchte ich nur diese Zeile so umzuändern ? Oder?
Hallo,
Die Zeile mit MsgBox kannst Du wegmachen und die andere Zeile auskommentieren.
Gruß
Hallo,
ändere die Zeile in
Code:
ThisWorkbook.SaveAs strDrive & ":\" & Format(Now, "yyyy_mm_dd") & ".xlsm"
Gruß Uwe