Sélectionner fichier/le copier/le coller dans un nouveau répertoire

[maninwhite]

Bonjour à toutes et à tous

Voila ma requête

Dans un userform, j'ai créer un bouton.

J'aimerai que ce bouton m'ouvre la boite de dialogue "parcourir", que je puisse sélectionner une photo et que celle ci soit copier vers un nouveau répertoire.

J'ai déjà quelques pistes :

Application.FileDialog(msoFileDialogOpen).Show ==> me permet d'ouvrir la boite de dialogue
MkDir ==> me permet de créer le nouveau répertoire

Le problème c'est que quand je sélectionne le fichier, il veut me l'ouvrir dans excel alors que moi je veux juste le sélectionner et que ça me le copie dans un nouveau répertoire qui sera renommé avec la valeur d'une textbox.

Merci d'avance

 

[Pierrot93]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Bonjour,

regarde peut être ceci, à adapter à ton projet, espérant que cela puisse t'aider à avancer :

Dim chemin As String
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "madescrip", "*.gif"
    .Show
    If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With

bonne journée
@+

 

[JNP]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Bonjour ManInWhite, salut Pierrot 🙂
Soit la méthode Copy MSDOS comme le MkDir, soit

FileSystemObject.CopyFile "c:\Mes Documents\lettres\*.doc", "c:\dossiertemp\"

Bonne journée 🙂

 

[maninwhite]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Merci à vous deux

Le seul bou de code que j'ai gardé est :

Application.FileDialog(msoFileDialogFilePicker).Show

Il permet d'ouvrir la boite de dialogue parcourir, mais ce que j'aimerai c'est que quand j'ai cliqué sur la photo et que j'appuie sur ouvrir ça me copie colle le fichier quelque part.

 

[Pierrot93]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Re,
bonjour JNP🙂

essaye ceci :

Option Explicit
Sub test()
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "madescrip", "*.gif"
    .Show
    If .SelectedItems.Count > 0 Then
        'le répertoire de destination doit exister
        FileCopy .SelectedItems(1), "C:\MesDoc\Images\test.gif"
    End If
End With
End Sub

 

[maninwhite]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Merci Pierrot, cela fonctionne.
Le dernier problème, c'est que j'aimerai que le fichier sélectionné soit copié tel quel et non pas renommé test.gif

 

[Pierrot93]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Re,

modifie comme suit :

        FileCopy .SelectedItems(1), "C:\MesDoc\Images\" & Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\") + 1)

 

[Pierrot93]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Re,

ou comme ceci :

        FileCopy .SelectedItems(1), "C:\MesDoc\Images\" & Split(.SelectedItems(1), "\")(UBound(Split(.SelectedItems(1), "\")))

 

[maninwhite]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Je ne comprend pas le code mais ça marche.
Par contre ce code permet de copier un seul fichier, j'ai donc rajouté :

.AllowMultiSelect = True

Mais il bloque sur

.SelectedItems(1)

J'ai donc copié/coller la ligne en mettant :

.SelectedItems(2)

Mais cela ne marche pas

 

[Pierrot93]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Re,

regarde ceci, fonctionne chez moi.... bouton "ok" cliqué bien sur....

Dim i As Byte
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "madescrip", "*.xls"
    .Show
    If .SelectedItems.Count > 0 Then
        For i = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(i)
        Next i
    End If
End With

 

[maninwhite]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Nickel, il suffisait de faire une boucle

J'ai juste déclaré la variable pour que cela marche

Dim i As Long

Et changer 1 en i bien entendu.

Bon si tout va bien le reste devrait aller tout seul.

Encore merci

 

[Pierrot93]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Re,

bah... c'était déclarée post #10 comme

Et changer 1 en i bien entendu.

 

[maninwhite]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Autant pour moi 😉

 

[Pierrot93]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Re,

pas de souci.... bonne continuation....

 

[maninwhite]

Re : Sélectionner fichier/le copier/le coller dans un nouveau répertoire

Bon je savais bien que j'aurai encore besoin de toi

J'utilise Mkdir pour créer un fichier avec une variable

Dim dossier As String
dossier = TextBox_titre.Value

On Error Resume Next
MkDir "L:\Share\Incident report\Photos\" & dossier

Cela fonctionne

Mais pour copier le fichier, cela ne marche plus :

FileCopy .SelectedItems(i), "L:\Share\Incident report\Photos\" & dossier & Mid(.SelectedItems(i), InStrRev(.SelectedItems(i), "\") + 1)

Le fichier se copie dans photos et non pas dans photos/variable dossier

Et le nom du fichier est renommé avec mavariable et son nom d'origine