Bonjour, je voudrais recuperer des morceaux de nom du fichier
mes fichiers s'appelent tous doseval_2009_XXX.xls
XXX etant un chiffre entre 1 et 10000
dans la macro qui suit je recupere le chemin, le nom entier du fichier
je voudrais recuperer la partie doseval_2009_ dans ma variable toto1
le numero seul dans toto2
l'extension .xls dans toto3
dans la macro qui suit je n'arrive pas à tout faire, merci d'avance pour votre aide
si j'utilise les fonctions right et left il ne me manque plus que le bout de macro pour récuperer ce qu'il y a entre le deuxième _ et le . de .xls
Sub ff()
toto = ActiveWorkbook.Path
toto2 = ActiveWorkbook.Name
x = toto2
nom = Left(x, InStrRev(x, "_") - 1)
nom2 = Right(x, InStrRev(x, "_") - 5)
end sub
mes fichiers s'appelent tous doseval_2009_XXX.xls
XXX etant un chiffre entre 1 et 10000
dans la macro qui suit je recupere le chemin, le nom entier du fichier
je voudrais recuperer la partie doseval_2009_ dans ma variable toto1
le numero seul dans toto2
l'extension .xls dans toto3
dans la macro qui suit je n'arrive pas à tout faire, merci d'avance pour votre aide
si j'utilise les fonctions right et left il ne me manque plus que le bout de macro pour récuperer ce qu'il y a entre le deuxième _ et le . de .xls
Sub ff()
toto = ActiveWorkbook.Path
toto2 = ActiveWorkbook.Name
x = toto2
nom = Left(x, InStrRev(x, "_") - 1)
nom2 = Right(x, InStrRev(x, "_") - 5)
end sub
Dernière édition: