Hjælp til formel/funktion  i  VBA:

I øjeblikket beder programmet om at, sætte USB nøglen med navnet ”FINANS” i en USB port.

1). Vil gerne finde første ledige flytbart drev. Ikke flytbart drev kan være fra C til F.

Første flytbare drev G kan være optaget den ene gang og første ledige drev vil så være H.

Andre gange kan drev G godt være ledigt.

2). Når flytbar drev (eks. Drev = H) er fundet, skal USB nøglen med navnet Finans sættes i.

Der skal så ventes til rette USB-nøgler er isat. Derefter kan programmet går videre og gemmes på USB nøglen.

Har prøvet følgende som ikke virker efter hensigten:

Først gemmes der normalt på en Nøgle  (*.xlsm) og derefter som backup fil.

MsgBox "sæt USB-Nøglen ”FINANS” i et USB-drev og derefter tryk OK ", vbInformation, "Bjarne Jensen" 'USB-nøgle sættes i!

FilNavn = "HBJ-Privat” & Range("FiscalYear").Value

    Sti = "E:\"

    If Sti <> "E:\" Then Sti = "F:\"

    Svar = Sti & FilNavn & ".xlsm"

    Svar = Dir(Svar) 'Her checker jeg om årets fil findes

    If Svar = "" Then 'filen findes ikke og oprettes

    ActiveWorkbook.SaveAs Sti & FilNavn & ".xlsm", FileFormat:= _

    52, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

    , CreateBackup:=True