Bonjour =E0 toutes et =E0 tous,
j'ai une arborescence et dans chaque r=E9pertoire il existe une ou
plusieurs archives .zip, il y en a plusieurs milliers (un logiciel de
sauvegarde et une mauvaise option).
je cherche le moyen d'extraire chaque archive dans son r=E9pertoire et
de supprimer l'archive en 1 fois pour ces milliers de .zip
je pense donc =E0 une belle macro excel qui balaierait mon
arborescence...
Ca dit quelque chose =E0 quelqu'un ?
Merci,
Lulu
On peut ouvrir la fenêtre "Exécuter" du menu Bouton démarrer comme ceci
'----------------------------- Sub Test() Set Sh = CreateObject("Shell.Application") Sh.FileRun End Sub '----------------------------- Et dans cette fenêtre, on peut passer ces commandes : rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3
Ou inscrire seulement : Desk.Cpl qui ouvre la fenêtre sur l'onglet 1 dans le cas où il y en a plus d'un...
On peut ouvrir la fenêtre "Exécuter" du menu Bouton démarrer comme ceci
'-----------------------------
Sub Test()
Set Sh = CreateObject("Shell.Application")
Sh.FileRun
End Sub
'-----------------------------
Et dans cette fenêtre, on peut passer ces commandes :
rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3
Ou inscrire seulement : Desk.Cpl qui ouvre la fenêtre sur l'onglet 1
dans le cas où il y en a plus d'un...
On peut ouvrir la fenêtre "Exécuter" du menu Bouton démarrer comme ceci
'----------------------------- Sub Test() Set Sh = CreateObject("Shell.Application") Sh.FileRun End Sub '----------------------------- Et dans cette fenêtre, on peut passer ces commandes : rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3
Ou inscrire seulement : Desk.Cpl qui ouvre la fenêtre sur l'onglet 1 dans le cas où il y en a plus d'un...