pb deplacer fichier d'un dossier à un autre

[coolman53]

Bonjour à tous,

Je bloque sur la possibilité de deplacer un fichier dans un dossier source vers un dossier destination et supprimer ensuite celui qui est dans le dossier source

J'ai commence le code mais il me met "Permission refusée"

Le code est dans le Classeur1 du dossier fichier

Quelqu'un peut il me dire où j'ai fais une erreur

Merci d'avance

Sub test()
 FileCopy "C:\Documents and Settings\TECHNICI\Bureau\Fichier\Classeur1.xlsm", "C:\Documents and Settings\TECHNICI\Bureau\Test\Classeur1.xlsm"
 Kill "C:\Documents and Settings\TECHNICI\Bureau\Fichier\Classeur1.xlsm"
 End Sub

 

[Compte Supprimé 979]

Re : pb deplacer fichier d'un dossier à un autre

Bonjour Coolman53,

1) il ne faut pas que le fichier que tu veuilles déplacer soit celui qui contient la macro à exécuter

2) pourquoi ne pas les déplacer directement

Sub Move_Certain_Files_To_New_Folder()
'This example move all Excel files from FromPath to ToPath.
'Note: It will create the folder ToPath for you with a date-time stamp
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim FileExt As String
    Dim FNames As String


    FromPath = "C:\Users\Ron\Data"  '<< Change
    ToPath = "C:\Users\Ron\" & Format(Now, "yyyy-mm-dd h-mm-ss") _
           & " Excel Files" & "\"    '<< Change only the destination folder


    FileExt = "*.xl*"   '<< Change
    'You can use *.* for all files or *.doc for word files


    If Right(FromPath, 1) <> "\" Then
        FromPath = FromPath & "\"
    End If


    FNames = Dir(FromPath & FileExt)
    If Len(FNames) = 0 Then
        MsgBox "No files in " & FromPath
        Exit Sub
    End If


    Set FSO = CreateObject("scripting.filesystemobject")


    FSO.CreateFolder (ToPath)


    FSO.MoveFile Source:=FromPath & FileExt, Destination:=ToPath
    MsgBox "You can find the files from " & FromPath & " in " & ToPath


End Sub

A+