quelques caracteres du nom du fichier = valeur cellule

job75

XLDnaute Barbatruc

• 21 Août 2014

• #2

Re : quelques caracteres du nom du fichier = valeur cellule

Bonjour Gaby71,

Code:

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

A+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 21 Août 2014

• #3

Re : quelques caracteres du nom du fichier = valeur cellule

Bonjour Job , Gaby ,

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

 

Pièces jointes

• resultats.xlsx

  11.4 KB · Affichages: 25
• resultats.xlsx

  11.4 KB · Affichages: 30
• resultats.xlsx

  11.4 KB · Affichages: 32

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 21 Août 2014

• #4

Re : quelques caracteres du nom du fichier = valeur cellule

Bonjour, Gaby71

Essayez :

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

Cliquez pour agrandir...

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

 

Dernière édition: 21 Août 2014

Vote positif 0 Vote négatif

G

Gaby71

XLDnaute Junior

• 21 Août 2014

• #5

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 21 Août 2014

• #6

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)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 21 Août 2014

• #7

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

 

Vote positif 0 Vote négatif

G

Gaby71

XLDnaute Junior

• 21 Août 2014

• #8

Re : quelques caracteres du nom du fichier = valeur cellule

bonjour merci à tous

oui , tout à fait

Merci d'avance

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 21 Août 2014

• #9

Re : quelques caracteres du nom du fichier = valeur cellule

Voici alors ,

Remplaces toto par le nom de ta variable

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Août 2014

• #10

Re : quelques caracteres du nom du fichier = valeur cellule

Re, salut camarchepas, Patrick,

Code:

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

A+

 

Vote positif 0 Vote négatif

G

Gaby71

XLDnaute Junior

• 21 Août 2014

• #11

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

 

Vote positif 0 Vote négatif

G

Gaby71

XLDnaute Junior

• 21 Août 2014

• #12

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

 

Vote positif 0 Vote négatif