chemin vers type de fichier

Question

Bonjour,

ya t'il une commande qui permet de preciser le chemin vers un type de fichier sans preciser son nom? 

au lieu de metre Fichier= "C:\desktop\download.CSV" me permet de mettre Fichier= "C:\desktop\*.CSV"

merci bien

WeaponEDGE · Accepted Answer

Bonjour,

En utilisant un Userform avec un bouton (nommé CmdrechLien) et un TextBox (nommé txtlien) tu peux utiliser ce code :

Sub CmdrechLien_Click()
Lien = Application.GetOpenFilename("*.csv,*")
    txtlien = Lien
    If txtlien = "FALSE" Then
        txtlien = ""
    End If
End Sub

hakoko · Answer

Bonjour et merci, on peut aussi utiliser cette methode:

Sub Test()
Dim Fichier As String
 
Fichier = Dir("C:\Documents and Settings\Administrateur\Bureau\*.csv") 'A adapter
If Fichier = "" Then
    MsgBox "pas de fichier"
Else
    MsgBox Fichier
End If
End Sub

Chemin vers type de fichier

2 réponses

Discussions similaires

Newsletters