Selctionner un fichier à partir de l'explorer et le copier VBA Résolu/Fermé

Question

Bonjour, 

Voici mon problème, je souhaite sélectionner un fichier via l'explorer Windows et ensuite le copier dans un répertoire. Le problème c'est que je n'arrive pas à manipuler le fichier sélectionné.

 Dim finput As FileDialog
 Dim fichiercopie As Object
 Set finput = Application.FileDialog(msoFileDialogFilePicker)
 finput.Show

If finput.SelectedItems.Count = 0 Then Exit Sub
 If Not finput Is Nothing Then
FileCopy "adresse du fichier selectionné", "adresse de destination"

End If
 End With 

Pour l'adresse de destination, pas de problème mais comment récupérer l'adresse et le nom du fichier sélectionné?

Merci d'avance!!

Configuration: Windows 7 / Internet Explorer 10.0

ThauTheme · Answer

Bonjour Titou, bonjour le forum, 

Essaie comme ça :

Public Sub Test()
Dim finput As FileDialog
Dim fichiercopie As Object

Set finput = Application.FileDialog(msoFileDialogFilePicker)
With finput
    .Show
    If .SelectedItems.Count > 0 Then
        FileCopy .SelectedItems(1), "adresse de destination"
    End If
End With
End Sub

Titou88 · Answer

Ca marche nickel! Merci pour ta diligence!

ThauTheme · Answer

Heu non ! Je suis venu à cheval pas en diligence. I'm a poor lonesome cowboy...

Selctionner un fichier à partir de l'explorer et le copier VBA

3 réponses

Discussions similaires