Executer une commande DOS sous VBA excel
Résolu
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.
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.
3 réponses
-
Contributeurbonjour,
pourquoi veux tu le faire en batch ?
tu peux le faire directement en VBA dans ta macro XL....
tu dis... -
Contributeurserai absent une bone partie de l'aprem
donc, peut-être en fin d'aprem si personne ne pas passer une proc. -
ContributeurBonjour,
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...
