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

Résolu
Titou88 -  
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   -
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!!

A voir également:

3 réponses

Réponse 1 / 3
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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
0
Réponse 2 / 3
Titou88
 
Ca marche nickel! Merci pour ta diligence!
0
Réponse 3 / 3
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Heu non ! Je suis venu à cheval pas en diligence. I'm a poor lonesome cowboy...
0

Discussions similaires

App explorer Sa sert a quoi ?
Mada_alpha -
SATS_fr -

1 réponse