Discussion :

[nickal]

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.

[SfJ5Rpw8]

re,

tu est sur que tu as vraiment cherché ? cela semble si simple...

[nickal]

Je cherche car effectivement ça semble simple...mais j'ai toujours une erreur de compilation...

[SfJ5Rpw8]

Tu ne pense pas que tu devrais poster ici la ligne qui te cause ton erreur de compilation ?

[nickal]

J'ai essayé pas mal de trucs mais j'ai une erreur de compilation sur ce code qui vient de la formulation de "Range("A5") & Year(Range("B5")) & Range("C5")"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
objFSO.CopyFile "C:\Users\nicolas\Downloads\MODELE 1.pdf", "C:\Users\nicolas\Downloads\Range("A5") & Year(Range("B5")) & Range("C5")
\", OverwriteExisting

[SfJ5Rpw8]

essai de comprendre comment marche les guillemets...... .. si tu veux afficher le contenu d'une variable il faut sortir ces variables des guillemets


essai aussi de revoir ton code ... tu as déjà une variable Chemin ..? pourquoi ne pas l'utiliser ...?