Opgelost Bestand openen met een variabele naam

[Egbert12345]

Hoi allen, een tijdje geleden kreeg ik van Edmoor onderstaande macro. Soms is het CSV bestand opgeslagen onder de naam Csv of CSV (één of meerdere hoofdletters). De macro ( .Filters.Add "Excel bestanden", "*.csv" ) is hoofdletter gevoelig. Hoe kan ik die macro aanpassen?

groet Egbert

==================================================================
Sub Macro4()
Bestand = GetFileName
If Bestand <> "" Then Workbooks.Open Bestand
End Sub

Function GetFileName()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Kies een bestand"
.InitialFileName = Environ("Userprofile") & "\Documents\"
.Filters.Clear
.Filters.Add "Excel bestanden", "*.csv"
If .Show = True Then
GetFileName = .SelectedItems(1)
End If
End With
End Function

 

[peter59]

Met misschien meer varianten?
.Filters.Add "Excel bestanden", "*.csv;*.CSV;*.Csv"

 

[cow18]

ik geloof niet dat het hoofdlettergevoelig is !!!

 

[edmoor]

Die macro is niet hoofdletter gevoelig.
Geen enkele opdracht in Windows is dat.
Ik denk eerder dat je bestanden hebt staan met de extensie scv in plaats van csv.

 

[Egbert12345]

De fout zit in een vervolg macro. Excuus hiervoor.