Récupérer le nom d'un fichier et en supprimer une partieRésolu

Question

Bonjour, 

Je pense que la solution est assez simple mais je n'y arrive pas par moi même...

J'essaye de faire une macro VBA pour excel 2010 qui enregistrerait ma feuille excel en format texte. Je souhaite nommer le fichier texte selon le nom du fichier excel, en rajoutant a la suite "_version2".
J'utilise ceci:

Dim nomfichier As String
    nomfichier = ThisWorkbook.Path & "\" & ActiveWorkbook.Name & "_version2.txt"
    ActiveWorkbook.SaveAs Filename:=nomfichier, FileFormat:=xlText, CreateBackup:=False

(Je précise que le nom de mon fichier excel est "essai")
Cela me crée un fichier nommé "essai.xlsm_version2"
Comment faire pour supprimer ".xlsm" ?
Je vous remercie par avance pour votre aide!
Bonne journée

jordane45 · Answer

Bonjour :
1 - J'ai déplacé ta discussion dans la section VBA du site ( vba <> vb.net !)
2 - Lorsque tu postes du code, merci d'utiliser la coloration syntaxique (je l'ai fait sur ton message).

jordane45 · Answer

Si tu souhaites récupérer le nom de ton fichier sans son extension tu peux éventuellement spliter le texte..

AwKN = ActiveWorkbook.Name
SplitAwKN = Split(AwKN, ".")
NomFichier = SplitAwKN(0)
Extension = SplitAwKN(1)

ucfoutu · Answer

Bonjour,
au bout du compte,
1) si pas toujours assurément  en .xlsm 
nomfichier = Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".") - 1) & "_version2.txt"
ou
2) si ton classeur est toujours assurément en ;xlsm :
nomfichier = Replace(ActiveWorkbook.FullName, ".xlsm", "_version2.txt")
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Récupérer le nom d'un fichier et en supprimer une partie

3 réponses

Votre réponse

Discussions similaires