Discussion :

[sebastien06]

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 :

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

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

[JackOuYA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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