Extraire caractères du nom d'1 feuille

Salut,

Par exemple :
ActiveWorkbook.SaveAs Left(ActiveSheet.Name, 14) & ".xls"


Bonnes fêtes
Nicolas B.

Bonjour,

Avec ma macro, je voudrai extraire les 14 premiers caractères du nom d'un
onglet d' 1 classeur et m'en servir pour nommer mon fichier lorsque
j'enregistrer sous .xls.

Merci pour vos lumières ..

Bonjour Jeanmi,

Si tu veux récupérer le nom de la feuille ou tu est :
activesheet.name
Si c'est de la ieme feuille du classeur (ie, tu sais que la feuille qui
t'interresse est toujours le ieme onglet en partant de la gauche)
sheets(i).name

La macro devient donc :

sub sauve()

activeworkbook.saveas filename:= "C:toto" & left(sheets(i).name,14) & ".xls"

end sub

Cordialement
Benjamin

Bonjour,

Avec ma macro, je voudrai extraire les 14 premiers caractères du nom d'un
onglet d' 1 classeur et m'en servir pour nommer mon fichier lorsque
j'enregistrer sous .xls.

Merci pour vos lumières ..

Merci à tous les deux et bonnes fêtes

JeanMi

Bonjour Jeanmi,

Si tu veux récupérer le nom de la feuille ou tu est :
activesheet.name
Si c'est de la ieme feuille du classeur (ie, tu sais que la feuille qui
t'interresse est toujours le ieme onglet en partant de la gauche)
sheets(i).name

La macro devient donc :

sub sauve()

activeworkbook.saveas filename:= "C:toto" & left(sheets(i).name,14) & ".xls"

end sub

Cordialement
Benjamin

Bonjour,

Avec ma macro, je voudrai extraire les 14 premiers caractères du nom d'un
onglet d' 1 classeur et m'en servir pour nommer mon fichier lorsque
j'enregistrer sous .xls.

Merci pour vos lumières ..