Sujet Précédent Sujet Suivant

Importation personnalisée

Résolu/Fermé
Shadorb Messages postés 53 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 20 juin 2016 - 5 avril 2016 à 11:08
Shadorb Messages postés 53 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 20 juin 2016 - 5 avril 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.

1 réponse

Réponse 1 / 1
Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
5 avril 2016 à 12:06
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 lundi 4 avril 2016 Statut Membre Dernière intervention 20 juin 2016
5 avril 2016 à 13:33
Et du coté de Application.GetOpenFilename() ?
0
Shadorb Messages postés 53 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 20 juin 2016
5 avril 2016 à 15:15
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

Discussions similaires

[Sujet Groupé] Accès impossible à MarketPlace/Facebook
AnaChris59 -
CapricorneFarouche74 -

39 réponses
Importation Google Drive en attente de wifi
David -
bazfile -

1 réponse
Instagram : Echec d'importation de story
poporal -
Emrekoc92i -

9 réponses