Executer une commande DOS sous VBA excel
Résolu
Romain92help
Messages postés
9
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
-
serai absent une bone partie de l'aprem
donc, peut-être en fin d'aprem si personne ne pas passer une proc. -
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... -
bonjour,
pourquoi veux tu le faire en batch ?
tu peux le faire directement en VBA dans ta macro XL....
tu dis...
