Gem fil VBA

du kunne jo teste om filen allerede eksisterede, hvis den da gør det. Jeg går ud fra at c13 og c15 skifter?

Ja, filen eksisterer allerede. Jeg er ved at lave en template, der skal ud til alle vores datterselskaber, så jeg er i gang med at teste filen af, og den skal kunne tage højde for de fleste ting.

Og ja c13 og c15 skal skifte for hver gang de rapporterer til os.

her er hvordan du tjekker om den er der i forvejen

Sub SaveFile()
    Dim FileName As String
    If Dir(Range("c13") & " " & Range("c15") & ".xls") = "" Then
        FileName = Range("c13") & " " & Range("c15") & ".xls"
        ActiveWorkbook.SaveAs FileName
    Else
        MsgBox "File has already been saved" & vbCrLf & "please use the template to create a new file"
    End If
End Sub

Jeg kan ikke se, at du har en sti, foran filnavnet, hvor gemmer den ??.

man kan også teste sådan her

If ThisWorkbook.Name = Range("c13") & " " & Range("c15") & ".xls" Then
        MsgBox "File has already been saved," & vbCrLf & "please use the template to create a new file"
    End If

Da filen sker ud til at blive dannet på baggrund af en skabelon, vil der ikke være en sti til filen, førend den er gemt. Du kan derfor teste således:

    If ThisWorkbook.Path <> "" Then
        MsgBox "The file has been saved before. You cannot use this tool again."
    End If

Fordelen/ulempen ved denne er naturligvis, at man så kan bruge værktøjet til at gemme oveni en allerede eksisterende fil, blot den nye fil ikke er gemt endnu.

Hej Kabbak! Den virker rigtigt godt, hvis man ikke ændrer nogle af parametrene, så første del fungerer perfekt. Problemet er nu, at brugerne stadigvæk kan ændre selskabsnavn og så gemme filen igen - nu under det nye navn. For at undgå det, bliver man vel nødt til at deaktivere kontrolelementet "Liste", så de ikke er i stand til at vælge et andet selskab? Jeg testede det lige ved at vælge et andet selskab og det blev bare gemt under det nye selskabs navn. Hvordan undgår man, at de kan vælge et andet selskab i listen? Angående stien så vil vi ikke kunne kontrollere, hvor de skal gemme filerne men bare være sikker på, at vi modtager filen i et filnavn, som vi kan kontrollere og derfra selv gemme den, hvor den skal ligge.

det der 'kontrolelementet "Liste", er det i en form, eller er det i et ark ??

Hvis det er i en form
Me.Liste.Enabled = False

hvis det er i aktive ark

ActiveSheet.OLEObjects("Liste").Object.Enabled = False

Hej Kabbak!

Det er i det aktive ark, men jeg får følgende fejlmeddelelse:

Run time error 1004:

Kan ikke angive egenskaben OleObjects for klassen Worksheet.

Jeg får ikke fejl, er du sikker på at den hedder "Liste"

Tjekker lige i morgen på arbejdet....

du kunne også prøve at rette

ActiveSheet

til

Worksheets("Ark1")

ret selv Ark1 til navnet på det ark den er i.

Det er en List box.

Ja, men hvad er navnet

ActiveSheet.Shapes("List Box 2").Select

og

ActiveSheet.Shapes("List Box 3").Select

Ved mig hedder den  ActiveSheet.Shapes("ListBox2").Select

men hvis din hedder, "List Box 2"

skal denne linje

ActiveSheet.OLEObjects("Liste").Object.Enabled = False

være

ActiveSheet.OLEObjects("List Box 2").Object.Enabled = False

Jeg får desværre samme fejl igen! Har prøvet også at skrive "ListBox2". Kan jeg prøve noget andet?

Jeg har lige tjekket, den liste du bruger, er IKKE fra kontrolelementer, den er fra Formularer.

Jeg er ikke sikker på at man disable dem, som kontrolelementer.

Det er jeg ked af. Håber ikke du har brugt for meget tid! Har du måske et forslag til, hvordan jeg så kan håndtere, at de ikke kan gemme den samme fil med et andet navn?

du må kunne bruge den som Word-hajen skrev 15/04-2008 23:08:20.

For hvis det du sender ud, er en skabelon, så har den ingen sti(Path), før den er gemt.
Så hvis den har det, er den gemt før.

Hej Kabbak!

Når jeg kører den med Wordhajens input, gemmer den filen men kommer så frem med msgboxen alligevel. Hvordan undgår jeg så det første gang, jeg gemmer?

Sub SaveFile()
    Dim FileName As String
   
      If Dir(Range("c13") & " " & Range("c15") & ".xls") = "" Then
        FileName = Range("c13") & " " & Range("c15") & ".xls"
        ActiveWorkbook.SaveAs FileName
           
    End If
   
      If ThisWorkbook.Path <> "" Then
        MsgBox "The file has been saved before. You cannot use this tool again."
    End If

   
End Sub

Hej igen! Jeg ændrer bare teksten, så meddelsesboksen kommer op første gang man gemmer, så virker det jo perfekt. Tusind tak for hjælpen til jer begge. Hvordan deler man points imellem jer?

Når kabbak også har lagt et svar, kan du fordele point. Jeg synes, at du skal give de fleste til kabbak, som er den, der har lagt kræfterne her.

et svar ;-))

Tusind tak for hjælpen!