bonjour,
je viens de terminer un code et, pour le rendre plus "professionnel",
en début de programme je demande à l'utilisateur d'indiquer dans quel répertoire sont indiqués les fichiers à traiter:
L'idée c'est que je veux récupérer la réponse de l'utilisateur pour la mettre dans 'Const rep', qui est le répertoire de travail, afin que mon code soit utilisable facilement par tout le monde, sans avoir à modifier manuellement le dossier source des data. j'ai lu la FAQ mais je n'ai rien trouvé à ce sujet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub CommandButton1_Click() Dim Repertoire As FileDialog Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker) Repertoire.Show If Repertoire.SelectedItems.Count > 0 Then _ MsgBox Repertoire.SelectedItems(1) Const Rep = "C:\Documents and Settings\sgallo\Desktop\Elodie_fichier\" 'Répertoire contenant les fichiers: à modifier par l'utilisateur
Merci d'avance,
Sébastien
Partager