Copie d'un fichier dans un dossier créer

[fredbeaxter]

Bonjour à tous,

J'aimerai copier un fichier dans un dossier que je viens de créer dans la commande précédente....
Lorsque je crée simplement les dossiers sans vouloir copier le fichier excel dans l'un d'eux cela fonctionne très bien.
Mon code FileCopy ne doit pas fonctionner,j'ai une erreur de "chemin d'accès introuvable", je pense que c'est dans la récupération du chemin pour copier le fichier que se situe l'erreur.
J'essaye pourtant de récupérer le chemin par l'intermédiaire du VPath1...

Merci pour l'aide que vous pourrez m'accorder.






Sub Dossier()
Dim lig As Long, Col As Integer
Dim ColB As String, V1 As String, V2 As String, ColD As String
Dim Derlig As Double, VCar As String
Dim VPath1 As String, VPath2 As String, VPath3 As String, VPath4 As String


If Sheets("Feuil2").Range("A1").Value = 0 Then

' Récupère la dernière ligne de la feuille
Derlig = Range("B" & Application.Rows.Count).End(xlUp).Row
' Sauter la 1ère ligne d'entête
For lig = 2 To Derlig
' Récupère la valeur de la ligne de la colonne B
ColB = Range("B" & lig).Value
' Récupère la valeur de la ligne de la colonne D
ColD = Range("D" & lig).Value


If ColB <> "" Then
VPath1 = "B:\Budget\Invest 2011\" & "V1" & "\" & ColB & " " & ColD & "\" & "CPI" & " " & ColD
VPath2 = "B:\Budget\Invest 2011\" & "V1" & "\" & ColB & " " & ColD & "\" & "SIP" & " " & ColD
VPath3 = "B:\Budget\Invest 2011\" & "V1" & "\" & ColB & " " & ColD & "\" & "Données Projet"
VPath4 = "B:\Budget\Invest 2011\" & "V1" & "\" & ColB & " " & ColD & "\" & "Factures-Commandes-Devis"

CreerDossier VPath1
CreerDossier VPath2
CreerDossier VPath3
CreerDossier VPath4

End If


FileCopy "B:\Budget\Docs_Type\CPI.xls", "VPath1\CPI.xls"
FileCopy "B:\Budget\Docs_Type\SIP.xls", "VPath2\SIP.xls"


Next lig

 

[tototiti2008]

Re : Copie d'un fichier dans un dossier créer

Bonjour fredbeaxter,

je suppose que les fichiers à copier ne sont pas ouverts quand tu essayes de les copier ? c'est une limitation de FileCopy