Importation personnalisée

Résolu

Shadorb Messages postés 60 Statut Membre -
Shadorb Messages postés 60 Statut Membre - 5 avr. 2016 à 15:15

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.

Afficher la suite

1 réponse

Réponse 1 / 1
Pierre1310 Messages postés 8854 Statut Membre 652

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
1. Shadorb Messages postés 60 Statut Membre
  
  Et du coté de Application.GetOpenFilename() ?
  
  0
2. Shadorb Messages postés 60 Statut Membre
  
  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

Importation personnalisée

1 réponse

Discussions similaires

Newsletters