Changer l'extension d'un fichier ?
REbonjour,
J'envoi le paté aujourd'hui
J'aide borrougagnou sur son projet et certains de ses dossiers sont du type : Fichier 10052014 (.10052014)
Je me sers d'une astuce pour copier le nom des fichiers et j'en retire les 4 derniers caractères (l'extension .csv) je le converti ensuite en classeur 97-03 (.xls), aucun problème.
Sur les extensions .100522014, Excel me fais un foin à l'ouverture du fichier, on peut enregistrer manuellement vu qu'on redonne un nom correct et que l'extension s'ajoute derrière.
Dans le code je copie le nom du fichier dans une variable, par exemple boc1.10052014 (le code retire les 4 caractères ; boc1.1005 2014)
Est ce que quelqu'un sait par exemple comment faire en sorte qu'automatiquement Excel retire le "." et tout ce qui suit (cela permettrait aussi au code de faire des chgt d'extension avec des fichiers format .xlsx par exemple ->5 caractères)
Merci d'avance
Sub toto()
stringue = "nanana.vsdufiyhzdf"
stringuesanspoint = Split(stringue, ".")(0)
End Substringuesanspoint vaudra nanana
Bonjour EngueEngue
Merci du coup de main,
Je viens de tester, le programme (l'immonde crotte préhistorique que j'ai pondu) est fonctionnel, améliorable, mais fonctionnel.
Je pense que ça rendra service à borrougagnou