Comment déplacer des fichiers spécifiques d'un dossier à un autre dans Excel?

Supposons que j'ai un grand dossier qui contient des types de fichiers, tels que docx, jpg, xlsx, etc. comme illustré ci-dessous. Maintenant, je souhaite déplacer certains types de fichiers spécifiques du dossier vers un autre nouveau dossier sans les déplacer un par un manuellement. Avez-vous de bonnes idées pour résoudre cette tâche dans Excel?

Déplacer des fichiers spécifiques d'un dossier vers un autre dossier avec le code VBA

Déplacer des fichiers spécifiques d'un dossier vers un autre dossier avec le code VBA

Pour déplacer tous les types de fichiers spécifiques d'un dossier à un autre aussi rapidement que vous le souhaitez, le code VBA suivant peut vous aider, procédez comme suit:

1. Maintenez enfoncé ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: déplacez des types de fichiers spécifiques d'un dossier à un autre:

Sub MoveFiles()
'Updateby Extendoffice
    Dim xFd As FileDialog
    Dim xTFile As String
    Dim xExtArr As Variant
    Dim xExt As Variant
    Dim xSPath As String
    Dim xDPath As String
    Dim xSFile As String
    Dim xCount As Long
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Please select the original folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xFd.Title = "Please select the destination folder:"
    If xFd.Show = -1 Then
        xDPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
    xExtArr = Array("*.xlsx*", "*.jpg")
    For Each xExt In xExtArr
        xTFile = Dir(xSPath & xExt)
        Do While xTFile <> ""
            xSFile = xSPath & xTFile
            FileCopy xSFile, xDPath & xTFile
            Kill xSFile
            xTFile = Dir
            xCount = xCount + 1
        Loop
    Next
    MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub

Notes: Dans le code ci-dessus, "* .xlsx *""* .jpg"dans le script: xExtArr = Tableau ("*. xlsx *", "* .jpg") sont les types de fichiers que vous souhaitez déplacer, vous pouvez les remplacer par d'autres ou ajouter d'autres types de fichiers selon vos besoins.

3. Puis appuyez F5 clé pour exécuter ce code, et une fenêtre est apparue pour vous rappeler de sélectionner le dossier d'origine où vous souhaitez déplacer les fichiers, voir capture d'écran:

4. Puis clique OK, et une autre fenêtre apparaît, veuillez choisir le dossier de destination vers lequel vous souhaitez déplacer les fichiers, voir capture d'écran:

5. Et puis cliquez OK, une boîte de dialogue apparaîtra pour vous rappeler combien de fichiers ont été déplacés, fermez-le et vous pouvez voir les fichiers jpg, xlsx spécifiques ont été déplacés dans le dossier spécifié, voir capture d'écran: