VBA Pb Chaîne de caractères

onra -  
 onra -
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 2 / 2
onra
 
Bonjour, je viens de voir votre email.
c'est exactement ce que je voulais.

Merci beaucoup et bonne semaine
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses