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:


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit le nombre de clics de souris pour vous chaque jour!
fond officetab
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.
    Adam · 1 months ago
    i get no popups after theselection screen
  • To post as a guest, your comment is unpublished.
    Luke · 4 months ago
    Hi,
    Code works great for what I am doing. Thank you! How do you have it check if files exist in the destination folder and prompt the user to ask if they want to overwrite the files or save as another file name? I am working with .pdf files saving to the destination folder.
  • 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 · 2 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 · 2 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