Choix du type de fichier sous Excel avec VBA

Logiciel & apps Programmation
1

En résumé :

J’ai un programme qui doit ouvrir un fichier en le choisissant dans la “boîte de dialogue” lorsqu’on clique sur un bouton…

Que dois-je mettre comme fonction ou programme dans le module sous VBA afin qu’il me propose dans cette “boîte de dialogue” directement les fichiers avec l’extension *.csv au lieu de l’extension habituelle (ou par défaut) *.xls ?

Merci d’avance de vos réponses ! :slight_smile:

2

Sub Ouvrir()
Fichier = Application.GetOpenFilename("Fichier CSV (.csv),.csv")
End Sub

3

"Encore une question :??: "

J’utilise la fonction :

"If Application.FindFile Then
…
else
…
End If"

Que dois-je rajouter ou modifier dans cette fonction, pour qu’elle me propose seulement les fichiers *.csv ?
Car j’ai essayé getopenfilename, mais il ne m’ouvre pas le fichier ?

4

Regarde si cela répond à tes besoins.

Sub Ouvrir()
Fichier = Application.GetOpenFilename("Fichier CSV (.csv),.csv")
If Fichier <> "" Then
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier, Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With
End If
End Sub