Récuperer une variable après un FileDialog

Version imprimable

Bonjour à tous,

J'ai pu écrire une macro à l'aide de FAQ Excel et de l'aide Excel, seulement dans le code suivant, je souhaite supprimer la boucle et récupérer seulement le chemin et renseigner la variable : vrtSelectedItem, pour une utilisation future.
Mais là, je bloque!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SelectPhoto()
    Dim vrtSelectedItem As Variant
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Selection de la photo"
        .InitialFileName = "G:\_SOP\Etudes\CA VAL DE FRANCE\DOCS FINAUX\Photos\"
        .Filters.Clear
        .Filters.Add "Images Jpeg", "*.jpg"
        .InitialView = msoFileDialogViewPreview
        .Show
        'Step through each string in the FileDialogSelectedItems collection.
        For Each vrtSelectedItem In .SelectedItems
        '    Range("E15") = vrtSelectedItem
        Next vrtSelectedItem
    End With
End Sub

Merci +

Bonjour,
Ce serait peut-être plus simple de donner à l'utilisateur , uniquement la possibilité de choisir un répertoir ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ChoisirRepertoir()
Dim Chemin As String, NB As Long
Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
 
    On Error GoTo ERREUR
    Set oFolderItem = objFolder.Items.Item
    On Error GoTo 0
    Chemin = oFolderItem.Path
    If Chemin = "" Then Exit Sub
    Set oFolderItem = objFolder.Items.Item
 
    MsgBox Chemin
ERREUR:
End Sub

A+

31/08/2009, 11h28
ronibalbo

Merci pour la réponse,
Mais justement non, cette boite de dialogue me plait (visualisation du fichier image), de plus la personne qui utilisera le fichier ne sait même pas se balader dans un explorateur, je lui montre la fenêtre de choix du fichier.
Mon souci, compte tenu de mes connaissances en vba, je ne trouve pas le désignation de la variable genre :
variable = item...
merci

Essaye alors avec..

Code:

1
2
3
4
5
   For i = Len(.SelectedItems) To 1 Step -1
        If Mid(.SelectedItems, i, 1) = "\" Then Exit For
    Next i
    Chemin = Left(.SelectedItems, e)
    Fichier = Mid(.SelectedItems, e +1)

A+
Edit:
Semblerait que j'ai pas bien compris la première fois, la boite de dialogie autorise les sélection multiple, d'où..essaye avec..

Code:

1
2
3
4
5
6
7
8
   For Each vrtSelectedItem In .SelectedItems
        For i = Len(vrtSelectedItem) To 1 Step -1
            If Mid(vrtSelectedItem, i, 1) = "\" Then Exit For
        Next i
        Chemin = Left(vrtSelectedItem, e)
        Fichier = Mid(vrtSelectedItem, e + 1)
        Exit For
    Next vrtSelectedItem

Ne tiendrait compte que de la première sélection.