Déplacer tous les fichiers d’un dossier Vers un autre dossier

Bonjour à tous,

Je travail sur un fichier A

Ce fichier est dans un répertoire c:\rep\A.xlsm

rep contient d’autres fichiers B,C,D, etc

Je voudrais déplacer l’ensemble des fichiers (excepté A.xlsm) vers un autre répertoire : c:\rep\archive

Merci à ceux qui s’y colleront

bonjour,

tu va dans l'explorateur de fichier tu sélectionnes tous les fichiers de ton répertoire (ctrl-A), tu déselectionnes le fichier A.xlsm (click gauche sur la souris en maintenant la touche ctrl enfoncée) tu fais couper (ctrl-x), tu vas dans ton répertoire de destination et tu fais coller (ctrl-v)

Merci et en vba ça se code comment?

bonjour

en vba, par exemple :

Sub aargh()
    depart = "c:\rep"
    arrivée = "c:\rep\archive"
    fd = depart & "\a.xlsm"
    fa = depart & "\a.save"
    Name fd As fa
    f = Dir(depart & "\*.xls*")
    Do While f <> ""
        Name depart & "\" & f As arrivée & "\" & f
        f = Dir
    Loop
    Name depart & "\a.save" As depart & "\a.xlsm"
End Sub

prends bien soin d'avoir une bonne sauvegarde avant d'exécuter cette macro (pas de retour en arrière automatique possible)