Executer une commande DOS sous VBA excel

Résolu
Romain92help Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 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.



A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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   Statut Membre Dernière intervention  
 
Je suis toujours preneur si tu as le temps.
En te remerciant.
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
désolé, mais j'avais un pb sur un autre post

je suis en ballade ce samedi, donc,peut être dimanche ou lundi
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
Réponse 3 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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   Statut Membre Dernière intervention  
 
Je ne sais pas faire alors....
je veux bien le code si tu sais faire sous VBA directement.

Merci
0