sub runnen vanuit hoofdsub

[jerogub]

Een goede middag,

Ik zal geen lange uitleg geven. Mijn code:

Sub start()

Dim naam As String

naam = ActiveWorkbook.Name

MsgBox (naam)

If naam = "*.csv" Then
    csv
    Else
    If naam = "*.txt" Then
        txt
        Else
        MsgBox ("Er gaat iets fout")
    End If
End If

End Sub

zoals jullie misschien wel kunnen raden, wil ik als de extensie van het actieve bestand csv is, de sub csv runnen. alleen hoe het nu is krijg ik telkens de message er gaat iets fout. ik denk zelf dat dit komt door 'naam = "*.csv". Ik verwacht dat het * niet als jokerteken te gebruiken is in dit geval.

Ik heb echter van alles geprobeerd, en ik heb het gevoel dat dit het dichste bij de oplossing zit. Iemand een idee??

Alvast bedankt!!

 

[Wigi]

Als je weinig wil veranderen, doe dan dit:

If naam [B]Like[/B] "*.csv" Then

Wigi

 

[ReneDirks]

Kijk eens naar de volgende eigenschap en code:

'[B]activeworkbook.FileFormat[/B]

If activeworkbook.FileFormat = xlCSV then 
    Csv 
elseif activeworkbook.FileFormat =xlCurrentPlatformText then
    txt
else
   msgbox "Er gaat iets fout"
end if

 

[jerogub]

Ik heb beide oplossingen geprobeerd. Deze werken allebei zoals het de bedoeling is!! Ik dank jullie beide voor jullie hulp!! :thumb: :thumb:

Gr Jeroen