Application.GetOpenFilename nom fichier

Bonjour,

Je souhaiterais pouvoir faire une copie /coller de fichiers.

Aussi j'utilise getopen filename pour sélectionner le fichier à copier

Dim myfile As String
myfile = Application.GetOpenFilename(, , "Browse for Files")

Seulement voila une fois le fichier sélectionné, je souhaiterais faire un copier coller de celui-ci

Sauf que je souhaiterais ici conserver le même nom de fichier

mais la valeur de myfile est le chemin et le nom du fichier combiné

j'ai besoin pour le chemin de destination récupérer le nom du fichier original (myfilename quoi..)

Paste = ThisWorkbook.path & "\Projects_Library\" & Acronym & "-" & ProjectId & "\Submission\" & myfilename
MsgBox (Paste)

'FileCopy myfile, Paste

comment procéder s'il vous plait?

merci

Bonjour

un truc du genre

Sub copie_fichier()
Dim myfile As String
Dim oFSO As Object
Dim nomFic$, CheminDest$

Set oFSO = CreateObject("Scripting.FileSystemObject")
myfile = Application.GetOpenFilename(, , "Browse for Files")
nomFic = Split(myfile, "\")(UBound(Split(myfile, "\")))
CheminDest = ThisWorkbook.Path & "\Projects_Library\" & Acronym & "-" & ProjectId & "\Submission\" & nomFic
oFSO.CopyFile myfile, CheminDest, True
End Sub

necessite la référence microsft scripting runtime

je suppose que le chemin

ThisWorkbook.Path & "\Projects_Library\" & Acronym & "-" & ProjectId & "\Submission\ 

existe !!!

Fred

merci mais j'ai trouvé en version beaucoup plus simple à l'instant:

filename = Mid(myfile, InStrRev(myfile, "\") + 1)

re

tant mieux... mais je ne vois pas pourquoi la ligne de commande est plus simple que :

nomFic = Split(myfile, "\")(UBound(Split(myfile, "\")))

Bonne continuation

Fred