Changer l'extension d'un fichier à l'aide du code VBA (avec images)
Quoi est-ce :
Ce code VBA vous aidera à modifier l'extension des fichiers d'un dossier/répertoire particulier.
Par exemple, si vous voulez changer l'extension des fichiers Excel reçus en .xlsx en .xls ou visaversa, ce code VBA peut être utilisé.
Pourquoi:
Si vous travaillez sur un projet où vous obtenez des fichiers d'entrée avec différentes extensions de fichiers et que vous souhaitez que les fichiers soient dans un format standard pour que votre programme VBA fonctionne et que vous n'avez aucun contrôle sur les fichiers d'entrée, ce code vous sera très utile car vous pouvez changer l'extension dans le format que vous souhaitez.
L'objet Windows Script est utilisé pour modifier l'extension dans ce code.
Comment modifier l'extension d'un fichier à l'aide d'un code VBA:
Étape 1 : Ouvrez le classeur qui doit être protégé et appuyez sur Alt + F11
Étape 2 : copiez et collez le code ci-dessous dans la fenêtre de l'éditeur VBA et enregistrez le classeur.
Sous changeExt()
strDir = "C:\NmyFolder\N" "mentionnez ici le chemin de votre dossier de fichiers
Avec CreateObject("wscript.shell")
.currentdirectory = strDir
.Run "%comspec% /c ren *.xlsx *.xls", 0, True
Fin de l'opération
End Sub
Étape 3 : Cliquez sur F5 pour exécuter le code.
3 réponses
Et si... les fichiers n'avaient pas d'extension au départ... et que vous vouliez qu'ils ajoutent tous .xls ?
Bonne journée
Comment modifier l'extension d'un fichier spécifique ?
Parce que ce code modifie tous les fichiers du dossier
Remerciements