utilisation de msoFileDialogFilePicker

Version imprimable

bonjour à tous ,
je souhaite utiliser msoFileDialogFilePicker pour choisir un fichier et le mettre dans une variable pour l'ouvrir plus loin dans mon projet.
j'ai fait un bout de code mais je coince... et je demande votre aide car je n'arrive pas à mettre le selectedItem dans une variable.
j'arrive juste à l'afficher dans un msgBox.
d'avnce merci beaucoup.
Lam83
Code:

1 2 3 4 5 6 7 8 9 10 Sub choixFichier() rep = MsgBox("Choisissez un fichier à ouvrir", _ vbYesNoCancel + vbDefaultButton1, "Nouveau Fichier") If rep = 6 Then With Application.FileDialog(msoFileDialogFilePicker) .Show MsgBox .SelectedItems(1) End With End If End Sub

Bonjour,

SelectItem(x) va renvoyer le chemin complet du fichier sous forme de chaîne de caractère.

Tu peux donc la stocker dans une variable string, et l'utiliser ensuite quand bon te semble :

Une piste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub choixFichier()
Dim MonChemin As String, MonClasseur As Workbook
    If MsgBox("Choisissez un fichier à ouvrir", vbYesNoCancel + vbDefaultButton1, "Nouveau Fichier") = vbYes Then
        With Application.FileDialog(msoFileDialogFilePicker)
            .AllowMultiSelect = False ' on choisit un seul fichier
            If .Show Then             ' on vérifie que l'utilisateur a bien choisi un fichier et n'a pas appuyé sur "annuler"
                MonChemin = .SelectedItems(1)
            Else
                MsgBox "Aucune fichier sélectionné"
                'exit sub ?
            End If
        End With
    End If
 
Set MonClasseur = Workbooks.Open(MonChemin) 'attention, ici rien ne teste que MonChemin n'est pas vide ! A sécuriser
End Sub

28/01/2021, 19h32
Lam83

bonsoir,
merci pour ce code qui convient parfaitement à mon souhait.
j'ai de grosses lacunes et je plante souvent
je vais faire les teste sur MoChemin mais en principe dans ce projet il n'est jamais vide.
Merci encore.
Lam83