Opslaan onder een bepaalde naam

[Djoties]

Hallo,

Wie heeft de oplossing voor mijn probleem.

Ik krijg data (excel)aangeleverd via e mail.
Het bestand heet: Afwijkingen

Maar zodra je e mail opent dan wil het soms zijn dat het bestand afwijkingen (1) wordt genoemd omdat nog cache geheugen zit.

Nu wil ik zit oplossen door een macro.
Wat ik wil is:
1. het geopend bestand via een macro opslaan op c:\temp\Afwijkingen
2. Tijdens het opslaan moet eerst gekeken worden of bestand "afwijkingen" reeds bestaat.
3. zo ja, dan overschrijven zonder te vragen.

 

[Superzeeuw]

Hallo,

Onderstaande regels ingeven in en macro

Set FSO = CreateObject("Scripting.FileSystemObject")
Bestand = FSO.FileExists("C:\temp\Afwijkingen.xls")
If Bestand = False Then
ActiveWorkbook.SaveCopyAs "C:\temp\Afwijkingen.xls"
GoTo Einde
End If
ChDir "C:\temp\"
ActiveWorkbook.Save
Einde:

Werking:
Controle of het bestand bestaat ==> nee dan savecopyas
bestaat het docje al met de naam Afwijkingen in de map temp dan opslaan zonder te vragen.

Wil je het iets luxer dan kun je deze macro ook onderbrengen in:
Thisworkbook
kies dan bijvoorbeeld ==> Private Sub Workbook_Open()

Op het moment dat je het docje opent slaat hij zichzelf direct op

Groeten Superzeeuw