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

Résolu/Fermé

Titou88 - 29 juin 2015 à 16:18
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 29 juin 2015 à 17:57

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:

Selctionner un fichier à partir de l'explorer et le copier VBA
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide

3 réponses

Réponse 1 / 3

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
29 juin 2015 à 17:17

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

Réponse 2 / 3

Titou88
29 juin 2015 à 17:49

Ca marche nickel! Merci pour ta diligence!

Réponse 3 / 3

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
29 juin 2015 à 17:57

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

Newsletters