Chemin vers type de fichier

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

2 réponses

  1. 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
    3
    1. 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
      0