Importation personnalisée

Résolu
Shadorb Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
Shadorb Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voici la problématique : J'aimerai donner l'opportunité à l'utilisateur de choisir quelle csv importer.

Actuellement j'ai ceci :

Dim i&, j&, FSO As Object, Fichier As Object, TMP() As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fichier = FSO.OpenTextFile(ThisWorkbook.Path & "\Janvier.csv")


Comment transformer ce code en boite de dialogue ou l'utilisateur pourrait choisir UNIQUEMENT un csv à importer.

1 réponse

Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Bonjour,

Tu peux mettre des cellules prévues à cet effet.

Du style :

Nom fichier :
Chemin fichier :
Extension :

Et avec une macro tu vas tout mettre dans une variable tada !
0
Shadorb Messages postés 53 Date d'inscription   Statut Membre Dernière intervention  
 
Et du coté de Application.GetOpenFilename() ?
0
Shadorb Messages postés 53 Date d'inscription   Statut Membre Dernière intervention  
 
C'est bon j'ai procédé comme ça du coup :

path = Application.GetOpenFilename("Text Files (*.csv), *.csv", 1, "Fichier CSV Requis")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fichier = FSO.OpenTextFile(path)
0