Récuperer une info d'une msgbox

mromain

XLDnaute Barbatruc

• 20 Octobre 2010

• #2

Re : Récuperer une info d'une msgbox

Bonjour Romai,


Tu peux même utiliser une fenêtre de sélection avec ce code :

Code:

cheminFichierCsv = Application.GetOpenFilename("Fichier .csv, *.csv", , "Fichier .csv à importer :")

a+

 

Vote positif 0 Vote négatif

R

Romai

Guest

• 20 Octobre 2010

• #3

Re : Récuperer une info d'une msgbox

Ah je connaissais pas, sa marche très bien. Merci.

Mais enfaite je doit importe une centaine de fichiers CSV donc j'ai créé une macro qui fonctionne correctement. Il me faut juste récupérer le chemin au dossier contenant les CSV.
Pour le moment je le fait avec une cellule excel mais j'aimerai le faire avec une msgbox si c'est possible.

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 20 Octobre 2010

• #4

Re : Récuperer une info d'une msgbox

Re,

Je n'avais pas saisi...
Essaye avec ce code :

VB:

Dim pathDossierCsv As String
    Application.FileDialog(msoFileDialogFolderPicker).Show
    pathDossierCsv = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

a+

 

Dernière édition: 4 Janvier 2011

Vote positif 0 Vote négatif

R

Romai

Guest

• 20 Octobre 2010

• #5

Re : Récuperer une info d'une msgbox

Je viens de trouver ceci :
InputBox

je vais voir comment ça fonctionne!

 

Vote positif 0 Vote négatif

R

Romai

Guest

• 20 Octobre 2010

• #6

Re : Récuperer une info d'une msgbox

mromain à dit:

Re,

Je n'avais pas saisi...
Essaye avec ce code :

Code:

[COLOR=BLUE]Dim[/COLOR] pathDossierCsv [COLOR=BLUE]As String[/COLOR]
    Application.FileDialog(msoFileDialogFolderPicker).Show
    pathDossierCsv = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

a+

Cliquez pour agrandir...

Ta proposition marche très bien, ça correspond à ce que je cherche, merci.

Pour le inputbox sa doit fonctionner aussi.
Merci de ton aide ^^

à+

 

Vote positif 0 Vote négatif