VBA Pb Chaîne de caractères
onra
-
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
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
Configuration: Windows 2000 Internet Explorer 6.0
2 réponses
-
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 -
Bonjour, je viens de voir votre email.
c'est exactement ce que je voulais.
Merci beaucoup et bonne semaine
