Chemin vers type de fichier

hakoko Messages postés 189 Date d'inscription   Statut Membre Dernière intervention   -  
hakoko Messages postés 189 Date d'inscription   Statut Membre Dernière intervention   -
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. WeaponEDGE
     
    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
  2. hakoko Messages postés 189 Date d'inscription   Statut Membre Dernière intervention   4
     
    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