Discussion :

[Lam83]

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 :

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

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

[joe.levrai]

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 :

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

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

[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