Copier un fichier dans un dossier créé VBA

[jozerebel]

Bonsoir à tous!!

Je cherche à créer un dossier qui ait le nom de ma cellule active puis à copier à l'intérieur de ce dossier un fichier et le renomme avec le nom de cette même cellule active.

Voilà mon code:

Sub valerie()

On Error GoTo fin
ChDrive "c:/"

If Dir("c:\jo\" & ActiveCell.Text, 16) = "" Then MkDir ("c:\jo\" & ActiveCell.Text)

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:="C:\Jo\" & ActiveCell.Text, _
TextToDisplay:=ActiveCell.Text


FileCopy "c:\jo\Doc1.docx", "c:\jo\" & ActiveCell.Text & "FSI.docx"


Exit Sub


End Sub

Le problème c'est qu'au lieu de me créer mon fichier dans mon dossier, il le colle sous le dossier "jo". Je ne sais plus quoi faire...

Any idea???

Merci!

 

[Odesta]

Re : Copier un fichier dans un dossier créé VBA

Bonjour
Il ne manque pas un "\" ?
FileCopy "c:\jo\Doc1.docx", "c:\jo\" & ActiveCell.Text & "\FSI.docx"
(idem pour l'hyperlien)

Olivier