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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 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.

A voir également:

Executer une commande DOS sous VBA excel
Invite de commande - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Déplacer une colonne excel - Guide
Commande terminal mac - Guide

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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.

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.

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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...

Réponse 3 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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...

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

Discussions similaires

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters