quelques caracteres du nom du fichier = valeur cellule

[Gaby71]

Bonjour

Je voudrais inscrire dans la cellule F3 l'indire de revision (ici 08) qui est contenu dans le nom du fichier et en plus ajout "REV" just devant comme indiqué en F5

Merci d'avance

 

[job75]

Re : quelques caracteres du nom du fichier = valeur cellule

Bonjour Gaby71,

="Rev"&STXT(F3;TROUVE(".";F3)-2;2)

A+

 

[camarchepas]

Re : quelques caracteres du nom du fichier = valeur cellule

Bonjour Job , Gaby ,

Peut -être comme ceci si j'ai bien tout compris ?

 

[Victor21]

Re : quelques caracteres du nom du fichier = valeur cellule

Bonjour, Gaby71

Essayez :

="Rev "&STXT(F3;TROUVE(".xls";F3)-2;2)

Edit : Bonjour, Gérard, camarchepas
Désolé pour le K.rambolage

 

[Gaby71]

Re : quelques caracteres du nom du fichier = valeur cellule

Merci beaucoup job75

j'ai transposé ce code mais j'ai un souci:
comme la constante du nom du fichier est nom_BdD

Range("F3").Value = "Rev"&STXT( nom_BdD;TROUVE(".";F3)-2;2)

il ya surement une subtilité...

Merci d'avance

 

[Victor21]

Re : quelques caracteres du nom du fichier = valeur cellule

Re,

En risquant à nouveau d'être en retard

="Rev "&STXT(nom_BdD;TROUVE(".xls";nom_BdD)-2;2)

 

[camarchepas]

Re : quelques caracteres du nom du fichier = valeur cellule

Re bonjour à Toutes et tous

Ah ok ,

Je crois que tu veux en fait une solution en VBA , c'est cela

 

[Gaby71]

Re : quelques caracteres du nom du fichier = valeur cellule

bonjour merci à tous

oui , tout à fait

Merci d'avance

 

[camarchepas]

Re : quelques caracteres du nom du fichier = valeur cellule

Voici alors ,

Remplaces toto par le nom de ta variable

Sub renomme()
Dim A As String
A = Range("F3")
toto = Replace(A, Mid(A, InStrRev(A, "_")), "_" & Range("F5") & ".xls")
End Sub

 

[job75]

Re : quelques caracteres du nom du fichier = valeur cellule

Re, salut camarchepas, Patrick,

[F3] = "Rev" & Mid(nom_BdD, InStrRev(nom_BdD, ".") - 2, 2)

A+

 

[Gaby71]

Re : quelques caracteres du nom du fichier = valeur cellule

Merci à tous

J'ai transposé:
Range("F3").Value = Replace(nom_BdD, Mid(nom_BdD, InStrRev(nom_BdD, "_")), "_" & Range("F5") & ".xls")

mais la cellule "F5" était juste pour montrer le résultat desiré

Desolé

j'ai attaché le fichier resultat1.xlsx

Bien cordialement

 

[Gaby71]

Re : quelques caracteres du nom du fichier = valeur cellule

le resultat que Job75 m'a donné est bon

Merci et c'est l'heure de dire bon appetit