Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Supposons, j'ai un grand dossier qui contient des types de fichiers, tels que docx, jpg, xlsx, etc comme capture d'écran ci-dessous. Maintenant, je veux 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.

2. Cliquez 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

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

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

4. Puis clique OKet une autre fenêtre apparaît, choisissez le dossier de destination où vous voulez 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:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lokesh · 1 years ago
    To move or copy files from a folder to another based on excel list, and destination (path)
    on excel list. plz help...
  • To post as a guest, your comment is unpublished.
    lokesh · 1 years ago
    Hello
    To move or copy files from a folder to another based on excel list, the following article may help you!
  • To post as a guest, your comment is unpublished.
    Kumar · 1 years ago
    Hi,
    I need a help. Can we select few files and move them in to a separate folder by list in excel file?
    thanks in advance
  • To post as a guest, your comment is unpublished.
    rocky · 1 years ago
    Hi

    Thanks for helpful tip. I have around 5000 files listed on one excel file. I need to search all these files from the entire computer , if file names are matched then copy and paste in another folder