VBA CopyFile - Choix répertoire

[sickos]

Hello la communauté,

Je souhaite copier-coller un fichier de mon choix avec la méthode CopyFile. En effet, je sélectionne mon fichier source à l'aide de la méthode GetOpenFilename. Je définie le chemin de destination avec la méthode FileDialog(msoFileDialogFolderPicker) afin de choisir le dossier de mon choix mais je rencontre une erreur..

Voici mon code:

Sub Test
Dim SourceFile_1
Dim DestinationFile_1

ChDir ("C:\Users\43957197\Desktop\mouton")
SourceFile_1 = Application.GetOpenFilename 'je sélectionne mon fichier
DestinationFile_1 = Application.FileDialog(msoFileDialogFolderPicker).Show 'je définie le chemin de destination grâce à la boîte de dialogue mais je pense qu'il manque le nom de fichier à rajouter

FileCopy SourceFile_1, DestinationFile_1

Merci beaucoup

 

[Lone-wolf]

Re : VBA CopyFile - Choix répertoire

Bonsoir sickos

Un exemple de méthode GetOpenFilename

Dim classeurSource As Workbook
Dim nomFichier As String

nomFichier = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")

If Len(Replace(nomFichier, ".xls", "")) = Len(nomFichier) Then
    MsgBox "Format fichier invalide"
Else
    Set classeurSource = Workbooks.Open(nomFichier)
End If

 

[Lone-wolf]

Re : VBA CopyFile - Choix répertoire

Re,

Et sans GetOpenFilename

Sub test()
Dim oFSO As Scripting.FileSystemObject
Dim fichier, dest As String

fichier = "E:\ToTo\Classeur2.xls"
dest = "C:\Users\" & Environ("Username") & "\Desktop\"

Set oFSO = New Scripting.FileSystemObject
oFSO.CopyFile fichier, dest, True
End Sub