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

Signaler
-
Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
-
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!!

3 réponses

Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
153
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

Ca marche nickel! Merci pour ta diligence!
Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
153
Heu non ! Je suis venu à cheval pas en diligence. I'm a poor lonesome cowboy...