VBA Pb Chaîne de caractères

Question

Bonjour, 
J'utilise un code pour lire le nom d'un classeur excel afin de le modifier. Le code est: 

Dim CheminOS, NomOS As String 
CheminOS = ActiveWorkbook.Path 
NomOS = ActiveWorkbook.Name 
Sheets("OS").SaveAs CheminOS & "\" & ActiveWorkbook.Name & IndiceOS 

Le ActiveWorkbook.Name me donne bien le nom du fichier mais avec l'extension: 
du style "nom.xls" 
donc quand je rajoute IndiceOS (par ex: a) 

J'obtiens : "nom.xlsa". 

Il faudrait donc que je puisse virer les trois derniers caractères afin de rejouter l'indice "a". 

Merci d'avance

f894009 · Answer

Bonjour,
Je vous donne une solution qui vous donnera: nom.a (si j'ai bien compris votre demande)

Dim CheminOS, NomOS As String
CheminOS = ActiveWorkbook.Path

NomOS = LEFT(ActiveWorkbook.Name,LEN(ActiveWorkbook.Name)-3)
Sheets("OS").SaveAs CheminOS & "\" & NomOS & IndiceOS

onra · Answer

Bonjour, je viens de voir votre email.
c'est exactement  ce que je voulais.

Merci beaucoup et bonne semaine

VBA Pb Chaîne de caractères

2 réponses

Discussions similaires

Newsletters