[vba] retrancher du texte dans une cellule

plectrude -  
 plectrude -
Bonjour,
Est-il possible de retirer un bout de texte dans une cellule?
je m'explique: j'ai une cellule qui contient le nom du fichier qui à été ouvert cela donne : "nom_du_fichier.Sample.asc"
j'aimerais pouvoir transformer le texte de cette cellule en "nom_du_fichier" est-ce possible?

merci d'avance

plectrude

2 réponses

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour
oui mais es tu sur d'avoir deux points dans le nom de ton fichier ?
"nom_du_fichier.Sample.asc"

sample.asc est il une partie générique (ou constante) du nom de fichier ?
0
plectrude
 
oui c'est bien ça, et ils finissent tous par .sample.asc
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour

un clic droit dans la zone "C2:C100" (à adaper à ton classeur) enlève les 10 derniers caractères de la chaine
"sample.asc"=10

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C2:C100")) Is Nothing Or Target.Count > 1 Or Len(Target) < 11 Then: Exit Sub
Cancel = True
Target = Left(Target, Len(Target) - 10)
End Sub


pour installer:
copie la procèdure
clic droit sur le nom de ton onglet-visualiser le code
coller
0
plectrude
 
serait-il possible que cette opération s'effectue automatiquement sans avoir à cliquer sur la feuille ou la cellule en question car ma macro me crée plein de colonnes qui portent toutes un nom finissant par ".Sample.asc" et je voudrait que leur nom soit modifié automatiquement (j'utilise une boucle pour la création de ces colonnes)
par contre la cellule dont le nom doit être modifiée est toujours la même :
ligne 2, dernière colonne qui contient quelque-chose, Cells(2, k) dans le cas de ma boucle.

merci d'avance
0
plectrude > plectrude
 
Bonjour, en fait cette programmation convient bien à mon application
Merci
0