Lecture d'une réponse boîte de dialogue

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:

Code:

---

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

---

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.

Merci d'avance,

Sébastien

bonjour,

va falloir que tu trouve un tuto sur l'utilisation des variables en VB tu n'est vraiment pas loin du bon résultat, il suffit pas de copier un code mais il faut aussi le comprendre...:(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Repertoire As FileDialog Dim Rep As String Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)   Repertoire.Show If Repertoire.SelectedItems.Count > 0 Then Rep = Repertoire.SelectedItems(1) & "\" MsgBox "Repertoire choisi : " & vbCrLf & Rep Else MsgBox "Abandon" Exit Sub End If

---