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.

A voir également:

Importation personnalisée
Sonnerie personnalisée android - Guide
Comment mettre une alarme personnalisée sur iphone - Guide
Sonnerie personnalisée - Guide
Carte personnalisée google maps - Guide
Liste personnalisée amis facebook - Guide

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 !

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() ?

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)

Discussions similaires

Importation Google Drive en attente de wifi

Instagram : Echec d'importation de story