• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA bestand opslaan als op USB-stick

Status
Niet open voor verdere reacties.

Cor de Snor

Gebruiker
Lid geworden
27 okt 2001
Berichten
64
Beste lezer, ik heb een bestand scores, dit staat op een USB stick en wil dit opslaan als (bestandsnaam in cel AA6) Het bestand wordt nu wel opgeslagen onder de juiste naam op de C: schijf maar niet op de USB-stick. Hiervoor gebruik ik de VBA code:
Sub Opslaan()
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=Sheets(1).Range("AA6")
End Sub

Deze stick wordt gebruikt op verschillende computers waardoor de driveletter en map niet altijd dezelfde zijn. Wat kan ik er aan doen dat het bestand toch altijd wordt opgeslagen als in dezelfde map van scores.xls op de USB-stick.
 
Zo dan:
Code:
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Sheets(1).Range("AA6")

Haal tevens dat On Error Resume Next eruit.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan