Code VBA pour modifier l'extension de fichier

Code VBA pour modifier l'extension de fichier
Table des matières

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.

Modifier l'extension de fichier


Picture of Anson Antony
Anson Antoine
Anson est auteur collaborateur et fondateur de www.askeygeek.com. Apprendre quelque chose de nouveau a toujours été sa passion, ASKEYGEEK.com est le résultat de sa passion pour la technologie et les affaires. Il possède une décennie d'expérience polyvalente dans l'externalisation des processus métiers, la finance et la comptabilité, les technologies de l'information, l'excellence opérationnelle et la business intelligence. Au cours de son mandat, il a travaillé pour des organisations telles que Genpact, Hewlett Packard, M*Modal et Capgemini dans divers rôles et responsabilités. En dehors des affaires et de la technologie, c'est un cinéphile qui passe des heures ensemble à regarder et à apprendre le cinéma et un cinéaste aussi !

2 réponses

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Toutes nos félicitations!
Tu l'as fait,
Ne fermez pas !

Accès UberCreate Creator Pro
gratuitement!!!

Cette fenêtre contextuelle ne montrera pas à toi de voir encore!!!

Share to...