Executer une commande DOS sous VBA excel Résolu/Fermé

Question

Bonjour à tous, voila j'ai une macro sous excel et j'aimerais integer une commande DOS en début de celle ci.

cd "c:\chemin de mon dossier avec tous les fichiers à modifier"
ren *.ext1 *.ext2 'modif des extension des fichier

Le but et de changer toute les extentions (de ".ext1" à ".ext2") dans un repertoire donné.

En vous remerciant.



Configuration: Windows Vista / Internet Explorer 7.0

michel_m · Answer

bonjour,

pourquoi veux tu le faire en batch ?

tu peux le faire directement en VBA dans ta macro XL....

tu dis...

michel_m · Answer

serai absent une bone partie de l'aprem
donc, peut-être en fin d'aprem si personne ne pas passer une proc.

michel_m · Answer

Bonjour,

essaies ce code

Sub deplacer_ext()
Dim source As String, destination As String, fich As String
Dim deplace As Object

source = "d:\documents\" 'à adapter
destination = "d:\documents\fun\" 'à adapter
Set deplace = CreateObject("Scripting.FileSystemObject")

ChDir source
fich = Dir("*.ext?") 'suffixe 4 lettres commencant par ".ext"
While fich <> ""
    deplace.movefile fich, destination
    fich = Dir
 Wend
 
Set deplace = Nothing
End Sub


tu dis...