pb deplacer fichier d'un dossier à un autre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

coolman53

XLDnaute Junior
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

Code:
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
 
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
Code:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
572
Retour