Automatisch nieuwe update

[AABE]

Geacht Forum,

Ik zit met het volgende probleem;

Ik heb veel gebruikers die een bepaalde spreadsheet (test.xls) gebruiken.
Nu wil ik zorgen dat ze altijd met de juiste versie werken.

De diverse data in de spreadsheet wordt opgehaald uit een access database, dus daar kan ik het geldige versie nummer ophalen bij het openen van de sheet.

Als dit versienummer ongelijk is aan het versienummer van de spreadsheet, moet deze spreadsheet verwijderd worden en de nieuwe moet gekopieerd worden vanaf een bepaalde locatie. Uiteraard een en ander geheel automatisch.

Weten jullie een oplossing hoe dit te doen in VBA?

mvg,

Aat

 

[snb]

Gebruiken de gebruikers afzonderlijke Excelbestanden (iedere gebruiker 1) of maken ze gebruik van hetzelfde Excelbestand ?

Waar staat dat Excelbestand ?

En hoe openen ze dat Excelbestand ?

 

[AABE]

Gebruiken de gebruikers afzonderlijke Excelbestanden (iedere gebruiker 1) of maken ze gebruik van hetzelfde Excelbestand ?

Waar staat dat Excelbestand ?

En hoe openen ze dat Excelbestand ?

Ze gebruiken afzonderlijke excelbestanden.
Het nieuwste excelbestand staat op een server.
De locatie van de excelbestanden van de gebruikers is niet bekend.
Het excelbestand wordt normaal geopend met een dubbele klik.

mvg,

Aat

 

[snb]

Als je een sjabloon maakt, waarop het excelbestand is gebaseerd en je maakt een knop bij iedere gebruiker om op basis van dat sjabloon het excelbestand te maken is vervanging van het sjaboon voldoende om iedere gebruiker met de meeste aktuele versie te laten werken.

 

[AABE]

Als je een sjabloon maakt, waarop het excelbestand is gebaseerd en je maakt een knop bij iedere gebruiker om op basis van dat sjabloon het excelbestand te maken is vervanging van het sjaboon voldoende om iedere gebruiker met de meeste aktuele versie te laten werken.

Dat gaat helaas niet werken. Ze kunnen dan de sheet opslaan onder een andere naam, wat niet gewenst is.

 

[snb]

Als je in het sjabloon de volgende code hebt staan:

Private Sub Workbook_Activate()
   thisworkbook.saveas "E:\vaste naam.xls")
End Sub

lijkt me dat niet het geval.
Overigens kunnen gebruikers toch altijd onder een andere naam opslaan ?

 

[AABE]

Als je in het sjabloon de volgende code hebt staan:

Private Sub Workbook_Activate()
   thisworkbook.saveas "E:\vaste naam.xls")
End Sub

lijkt me dat niet het geval.
Overigens kunnen gebruikers toch altijd onder een andere naam opslaan ?

Neen ik heb het zo gemaakt dat ze de spreadsheet niet op kunnen slaan.
Ik heb je suggestie uitgetest en loop tegen het volgende probleem aan;

Ik controleer bij het open van de excel sheet of het path geldig is.
Als het niet geldig is, dan sluit ik de sheet. Dit gaat goed bij een normale spreadsheet.

Als ik van een template opstart, dan blijft de variable ThisWorkbook.Path leeg.
Dit heb ik gecontroleerd met een msgbox.

Weet jij wat ik fout doe?

    'Controle
    If InStr(1, ThisWorkbook.Path, "\Central-Interface\") = 0 Then
        MsgBox ("You are trying to start this spreadsheet from the wrong directory.")
        ThisWorkbook.Close savechanges:=False
        Exit Sub
    End If

 

[snb]

Zolang een bestand niet is opgeslagen is thisworkbook.path leeg.
Je doet niets fout, doch constateert slechts hoe Excel werkt.

Private Sub Workbook_Activate()
   thisworkbook.saveas "E:\central-interface\vaste naam.xls")
End Sub

 

[AABE]

Zolang een bestand niet is opgeslagen is thisworkbook.path leeg.
Je doet niets fout, doch constateert slechts hoe Excel werkt.

Private Sub Workbook_Activate()
   thisworkbook.saveas "E:\central-interface\vaste naam.xls")
End Sub

OK bedankt.... ik ga nog even verder met experimenteren....