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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 +