Chemin vers type de fichier
Fermé
hakoko
Messages postés
187
Date d'inscription
lundi 11 mars 2013
Statut
Membre
Dernière intervention
21 mars 2024
-
17 juin 2013 à 15:59
hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 - 17 juin 2013 à 16:58
hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 - 17 juin 2013 à 16:58
A voir également:
- Chemin vers type de fichier
- Fichier rar - Guide
- Fichier host - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier iso - Guide
2 réponses
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
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
Messages postés
187
Date d'inscription
lundi 11 mars 2013
Statut
Membre
Dernière intervention
21 mars 2024
3
17 juin 2013 à 16:58
17 juin 2013 à 16:58
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
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
