VBA Pb Chaîne de caractères

Fermé

onra - 2 juil. 2008 à 14:45
onra - 7 juil. 2008 à 09:40

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:

VBA Pb Chaîne de caractères
Caractères ascii - Guide
Caractères spéciaux symboles clavier - Guide
Chaine tnt gratuite sur mobile - Guide
Caractères spéciaux - Guide
Plus de chaine tv - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
6 juil. 2008 à 12:52

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

Réponse 2 / 2

onra
7 juil. 2008 à 09:40

Bonjour, je viens de voir votre email.
c'est exactement ce que je voulais.

Merci beaucoup et bonne semaine

Discussions similaires

1500 signes équivaut à combien de ligne dans un document wor

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Discussions similaires

Newsletters