Executer une commande DOS sous VBA excel

Résolu/Fermé
Romain92help Messages postés 8 Date d'inscription jeudi 15 avril 2010 Statut Membre Dernière intervention 31 mai 2010 - 16 avril 2010 à 11:27
michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 décembre 2022 - 18 avril 2010 à 14:05
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.



3 réponses

michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 décembre 2022 3 284
16 avril 2010 à 13:29
serai absent une bone partie de l'aprem
donc, peut-être en fin d'aprem si personne ne pas passer une proc.
0
Romain92help Messages postés 8 Date d'inscription jeudi 15 avril 2010 Statut Membre Dernière intervention 31 mai 2010
16 avril 2010 à 16:57
Je suis toujours preneur si tu as le temps.
En te remerciant.
0
michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 décembre 2022 3 284
16 avril 2010 à 18:51
désolé, mais j'avais un pb sur un autre post

je suis en ballade ce samedi, donc,peut être dimanche ou lundi
0
michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 décembre 2022 3 284
18 avril 2010 à 14:05
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...
0
michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 décembre 2022 3 284
16 avril 2010 à 11:41
bonjour,

pourquoi veux tu le faire en batch ?

tu peux le faire directement en VBA dans ta macro XL....

tu dis...
-1
Romain92help Messages postés 8 Date d'inscription jeudi 15 avril 2010 Statut Membre Dernière intervention 31 mai 2010
16 avril 2010 à 12:44
Je ne sais pas faire alors....
je veux bien le code si tu sais faire sous VBA directement.

Merci
0