Bonjour,

J'ai un code qui me crée un dossier portant le nom d'une cellule de mon tableur, et je veux copier/coller un fichier PDF (qui se trouve à un certain emplacement sur mon disque) dans ce nouveau dossier qui vient d'être créé.

Mais dans mon code je n'arrive pas à le coller dans ce dossier...je ne sais que le coller vers un emplacement que je nomme (voir ci dessous).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim Sep As String, Chemin As String
Sep = Application.PathSeparator
Chemin = ThisWorkbook.Path & Sep & Range("A5") & Year(Range("B5")) & Range("C5")
If Len(Dir(Chemin, vbDirectory)) = 0 Then
MkDir Chemin
End If
 
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Users\nicolas\Downloads\MODÈLE 1.pdf", "C:\Users\nicolas\Downloads\12015DUPONT\", OverwriteExisting
Pour vulgariser, je voudrai coller ce fichier dans C:\Users\nicolas\Downloads\Range("A5") & Year(Range("B5")) & Range("C5")


Merci d'avance.