Hallo,

enkele maanden geleden schreef ik een eenvoudige macro, waarmee ik mijn, in Excel gemaakte facturen, kon wegschrijven naar een PDF-bestand met de code:

Sub Mail()
Dim FacName As String
FacName = ActiveSheet.Range("J12").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="F:\Brieven aan Klanten\FactuurMail\" & FacName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

End Sub

Dit werkte perfect tot over enkele dagen, maar nu dus niet meer. Er is niets fout aan de code, en toch krijg ik de melding:
Zie bijlage:


SoftAid              

Hallo Leo,

proficiat met je 1000ste post 

Maar je weet dat niet de kwantiteit, maar wel de kwaliteit is die telt, en daarin blink jij toch wel uit....

Al je argumenten en raad waren al opgevolgd of gecontroleerd, maar ik heb de fout zelf gevonden.

Het werkblad waarvan ik een PDF wilde maken was reeds omgezet naar een PDF, onbewust, en als je van hetzelfde werkblad opnieuw een PDF wilt maken, dan kom je in Windows bij een melding: "Bestandsnaam bestaat reeds"....

Enkel krijg je dat niet van VBA, maar een weinig zeggende: "Mogelijk is het document nog geopend, of is een fout opgetreden bij het opslaan van het document". Tja, daar heeft hij ook wel gelijk in, er is een fout opgetreden bij het opslaan van het document, want je kan niet twee maal dezelfde bestandsnaam ingeven.

Ik ga nu toch enkele veiligheden inbouwen met wat MsgBox'en zodat dit niet meer kan gebeuren.

Bedankt voor het meedenken.

Ik heb op jou gezondheid een lekker flesje wijn geopent, en wens je nogmaals proficiat met je 1000ste posting. Schol... 

SoftAid              


PS: ik denk dat het je maar 2.262 dagen, 15 uur, 55 minuten en 53 seconden heeft gekost voor die 1000ste 

SoftAid, Firebirdy, dank voor de felicitaties. Op naar de volgende 1000 dan maar! 

@SoftAid, Goed dat je 't hebt opgelost. Met de functies Len en Dir kan je in VBA redelijk makkelijk achterhalen of een bestand al bestaat. Een week of 2 geleden heb ik voor mijn werk een procedure geschreven die nog een tandje verder gaat. Als het bestand al bestaat wordt er een volgnummer toegekend aan de nieuw te creeren bestandsnaam net zo lang tot er een unieke bestandsnaam ontstaat. Die kan ik maandag wel ff posten als je wilt.

Groet, Leo

SoftAid, hierbij dan mijn code....
Sub MoveOldFiles(NieuwBestand As String)
'procedure om een interface-folder opgeruimd te houden en de rest te moven naar een Old-folder


1     x = Dir("\\ggpsrv01\afd_beh\AID\Profielen-input\input acties*.xls")
2     'verwijder éérst alle oude interfacebestanden (move naar old)
3     Do Until x = ""  'ga net zo lang door tot er geen interface-bestand meer aanwezig is
4        'check of het bestand al bestaat in de Old-folder en voeg een versienummer toe als dit zo is
5        Do Until Len(Dir("\\ggpsrv01\afd_beh\AID\Profielen-input\Old\" & Replace(x, ".xls", "") & Versie & ".xls")) = 0
6            Versie = "_V" & IIf(IsEmpty(Versie), Versie, Replace(Versie, "_V", "")) + 1
7        Loop
8        'verplaats het bestaande bestand naar de Old-folder
9        Name "\\ggpsrv01\afd_beh\AID\Profielen-input\" & x As "\\ggpsrv01\afd_beh\AID\Profielen-input\Old\" & Replace(x, ".xls", "") & Versie & ".xls"
10        'haal een eventuele volgend bestaand bestand op om te testen en te verplaatsen
11        Versie = Empty
12        x = Dir("\\ggpsrv01\afd_beh\AID\Profielen-input\input acties*.xls")
13    Loop
   
End Sub
Voor het gemak heb ik er even regelnummers voor gezet zodat het uitleggen eenvoudiger wordt. Die nummers moet je vóór gebruik natuurlijk wél verwijderen.

Op regel 1 geef ik de variabele 'x' een waarde en wel die van het bestand waar ik naar ga zoeken. Dit heb ik met een asteriks gedaan zodat óók eventuele bestandsnamen met een versienummer worden gevonden. Het getoonde pad moet je uiteraard aanpassen naar een eigen pad (dit is er 1 bij mij op m'n werk naar een file-server).
Op regel 3 wordt de lus gestart. De lus moet net zolang doorgaan totdat de variabele x leeg is. Deze lus gebruik ik voor het verplaatsen van de bestanden naar de Old-directory (het gaat hier om een interface-bestand dat in een interface-directory wordt geplaatst. Vóór het plaatsen van de nieuwe wil ik dat de oude wordt veiliggesteld in een folder met de naam 'Old')
Op regel 5 gaan we checken of in die folder Old het bestand al bestaat. Dat gebeurt met de opdrachten Len en Dir. Als een bestand wordt gevonden is de string niet leeg en zal de functie Len een waarde opgeven die hoger is dan nul. Eerst wordt via de functie Replace de extensie van de naam gesloopt. Dan het versienummer van de variabele Versie toegevoegd om als laatste de extensie weer toe te voegen. De eerste keer van de 2e lus zal de variabele Versie nog leeg zijn.
Als het bestand - dus nog zonder toevoegingen - niet wordt gevonden geeft de functie Len een nul en zal de lus worden verlaten (er is immers géén versienummer nodig).
Op regel 6 kom je terecht als de bestandsnaam dus wél is gevonden. Dan wordt het tijd om een versienummer aan te gaan maken. Die variabele Versie is samengesteld uit een underscore en de letter V met een volgnummer. In de eerste keer dat de lus op deze regel komt  zal de variabele Versie dus de waarde "_V1" krijgen omdat die variabele nog leeg was (dus nul plus één = één). Omdat er nu een bestand is gevonden (anders had je niet op regel 6 gekomen) ga je nogmaals door de lus via regel 5. NU is de variabele Versie wél gevuld en wordt er getest of het bestand met die toevoeging óók bestaat. Zo ja, dan treedt regel 6 weer in werking én daarin óók de functie Replace om even die "_V" van het getal te slopen om zo weer een optelling te kunnen maken (1 + 1 = 2; de variabele Versie wordt dus: "_V2"). Dit blijft zich herhalen tot de "nieuwe naam" niet meer wordt gevonden.
Op regel 9 wordt het basisbestand in de interface-directory (die daar dus áltijd uniek is!!!) verplaatst via de methode Name ... As.  Je ziet dat het deel vóór As het pad is met de variabele x. Dat is dus het pad én de unieke - interface - bestandsnaam. In het 2e deel ná As zie je dat het pad verlengd is met de folder Old en dat via de functie Replace tijdelijke even de extensie wordt verwijderd, het versienummer via de variabele Versie wordt toegevoegd en tot slot wordt de extensie weer teruggezet. Het bestand is nu verplaatst.
Op regel 11 wordt de variabele Versie geleegd om weer schoon de lus in te kunnen gaan. Die eerst lus heb ik expres gemaakt om er voor te zorgen dat ook eventuele via de verkenner uit de Old-folder verplaatste bestanden (met versie-nummer), nogmaals worden verplaatst naar die Old-folder.
Op regel 12 wordt de variabele x gereset om dus verder schoon op zoek te kunnen gaan naar een volgend bestand dat begint met "input acties".
Op regel 13 wordt die lus weer ingezet (of niet)

Ik hoop dat je iets kan met deze bak tekst om zo die krentjes er uit te halen die voor jou geschikt zijn. Bij vragen weet je het forum vast wel weer te vinden. 

Groet, Leo

...en? Kom je d'r uit? 

Groet, Leo

Hallo Leo,

ik heb de code even bestudeerd, en deze is heel interessant op voorwaarde dat je volgende wilt doen:
""procedure om een interface-folder opgeruimd te houden en de rest te moven naar een Old-folder""

Maar voor mij zit er niet veel tussen, omdat ik enkel wil controleren of een bestand dat ik aanmaak reeds bestaat.
Indien het reeds bestaat moet de macro na een MsgBox-waarschuwing afsluiten.

Dus voor mij voldoet volgende (gevonden bij Mr.Excel.com):

Sub Mail()

Dim FacName As String
FacName = ActiveSheet.Range("J12").Value    '= factuur-nummer
If Dir("F:\Brieven aan Klanten\FactuurMail\" & FacName & ".pdf"<> "" Then
        MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Else
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:="F:\Brieven aan Klanten\FactuurMail\" & FacName & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub
waar de instructies in het VET mij uit de penarie hielpen 

If DIR(pad en bestandsnaam)<>"" then

Ik ga je macro zeker bewaren, want uit de praktijk leer ik meer en gemakkelijker dan in theorie.

Hartelijk dank voor je hulp  .

SoftAid