Récuperer une info d'une msgbox

[Romai]

Bonjour,
J'ai un fichier Excel qui importe des fichiers CSV par une macro que j'ai faite,
Mais avant d'importer les fichiers CSV, j'aimerai afficher un/une msgbox me permettant d'entrer le chemin d'accès au CSV, est ce possible?

Si vous pouvez m'aider merci.

 

[mromain]

Re : Récuperer une info d'une msgbox

Bonjour Romai,


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

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

a+

 

[Romai]

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.

 

[mromain]

Re : Récuperer une info d'une msgbox

Re,

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

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

a+

 

[Romai]

Re : Récuperer une info d'une msgbox

Je viens de trouver ceci :
InputBox

je vais voir comment ça fonctionne!

 

[Romai]

Re : Récuperer une info d'une msgbox

Re,

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

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

a+

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

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

à+