Executer une commande DOS sous VBA excel
Résolu
Romain92help
Messages postés
9
Statut
Membre
-
michel_m Messages postés 18903 Statut Contributeur -
michel_m Messages postés 18903 Statut Contributeur -
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.
A voir également:
- Executer une commande DOS sous VBA excel
- Invite de commande - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
- Commande terminal mac - Guide
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.
donc, peut-être en fin d'aprem si personne ne pas passer une proc.
Bonjour,
essaies ce code
tu dis...
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...
En te remerciant.
je suis en ballade ce samedi, donc,peut être dimanche ou lundi