Aide pour VBA

Signaler
Messages postés
75
Date d'inscription
mercredi 6 avril 2005
Statut
Membre
Dernière intervention
2 avril 2006
-
Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
-
j'aimerais savoir si c possible de prendre dans une cellule que une partie du texte
je mexplique j`'ai fait un ptit pgr qui récupere des fichiers et en fait une liste

voici kom se présente une cellule par exemple :
D:\CesvaData\2005-04-04_11-31-18_002_RTA.xls

et moi j'aimerais récupérer uniquement :
2005-04-04_11-31-18_002_RTA.xls

j'aimerais dc savoir si cela et possible avec une fonction ou sinon si qvec filesearcch
om peut décider de comment on veut l'afficher

merci de répondre svp c'est urgent
salut

2 réponses

Messages postés
25
Date d'inscription
mardi 9 novembre 2004
Statut
Membre
Dernière intervention
12 mai 2006
1
Salut
Il faut que tu utilise un split pour faire ce que tu veux, tu récupère le contenu de ta cellule dans une variable et ensuite tu fais un split sur ta variable avec pour délimiteur le \
Admettons que les données sont dans la cellule A1

Sub test()
Range("a1").Select
' tu récupère le contenu de ta cellule
Var = ActiveCell
' tu fais le split dans tabvar qui se présente comme un tableau
tabvar = Split(Var, "")
'tu récupère le dernier enregistrement dans var2 donc var2=2005-04-04_11-31-18_002_RTA.xls

var2 = tabvar(UBound(tabvar))
End Sub

A+
Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
4
Bonjour.

Avec le texte en A1

=DROITE(A1;NBCAR(A1)-CHERCHE("~?";SUBSTITUE(A1;"";"?";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"";"")))))