Bonjour.
J'ai vu une fonction VBA qui permettait de lire les noms de fichiers dans un répertoire: la fonction DIR.
Je l'ai utilisée pour ouvrir tous les fichiers d'un répertoire, un par un, sans me soucier de leur nom.
En fonction de ce que j'ai pu trouvé à l'intérieur de ces fichiers, je les ai renommés en ajoutant au nom de fichier un suffixe.
Exemple: fichier d'origine 068399.xlsx (toujours 6 digits) renommé en 068399_PAS STD.xlsx.
J'ai maintenant besoin d'aller mettre à jour CERTAINS (pas tous !) de ces fichiers.
Je souhaite donc "retrouver" ces fichiers pour les ouvrir via une variable qui stocke le nom d'origine du fichier (sans le suffixe que j'ai moi-même rajouté). De plus des xls cohabitent avec des xlsx.
Voici ce que j'ai trouvé sur la toile et qu'il me plaisait bien d'adapter à mon cas:
Dir("C:\in*.doc")
Result: "instructions.doc"
J'ai :
- une variable PathCarnet qui stocke le chemin d'accès invariable au répertoire
- Une variable qui stocke le nom du fichier sans le suffixe
J'ai donc tenté ça:
CarnetName = TabSNcompteur(i, 4)
CarnetName = Dir(PathCarnet & CarnetName & "*.xsl")
Set CarnetToUpdate = Application.Workbooks.Open(Filename:=PathCarnet & CarnetName & ".xlsx") 'je set mon classeur Reporting Carnets Métro
Mais, je vous le donne en mille Émile, ça ne fonctionne pas !
Sa vous avez quelques propositions constructives, je vous saurais gré...
Merci d'avance.