copiez dans une cellule le une, partie du nom du fichier

tototiti2008

XLDnaute Barbatruc

• 2 Juin 2008

• #2

Re : copiez dans une cellule le une, partie du nom du fichier

Bonjour Bansan,

Colle le code :

Function AnneesFichier() As String
AnneesFichier = Format("1/1/" & Mid(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, " ") + 1, 4), "YY") & "-" & Format("1/1/" & Mid(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, "-") + 1, 4), "YY")
End Function

dans un module, et dans la feuille de calcul, à chaque fois que tu as besoin de tes années, tape :
=anneesfichier()

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juin 2008

• #3

Re : copiez dans une cellule le une, partie du nom du fichier

Bonjour,
Mais pourquoi une macro ? Utiliser dans les cellules la fonction :
DROITE(CELLULE("nomfichier");9).
A+

Edit : Désolé, ma mémoire est défaillante, c'est le nom de la feuille qui est renvoyé

 

Dernière édition: 2 Juin 2008

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Juin 2008

• #4

Re : copiez dans une cellule le une, partie du nom du fichier

Oui, bien vu job75, on peut utiliser une formule :

Code:

=STXT(STXT(CELLULE("nomfichier");CHERCHE("[";CELLULE("nomfichier"))+1;99);CHERCHE(" ";STXT(CELLULE("nomfichier");CHERCHE("[";CELLULE("nomfichier"))+1;99))+3;2)&"-"&STXT(STXT(CELLULE("nomfichier");CHERCHE("[";CELLULE("nomfichier"))+1;99);CHERCHE("-";STXT(CELLULE("nomfichier");CHERCHE("[";CELLULE("nomfichier"))+1;99))+3;2)

mais elle est un peu indigeste... 🙂

 

Vote positif 0 Vote négatif

B

bansan

Guest

• 2 Juin 2008

• #5

Re : copiez dans une cellule le une, partie du nom du fichier

Merci beaucoup
Je n'aurais jamais pu trouver cette ligne de code sans vous
Merci Merci

 

Vote positif 0 Vote négatif