Recuperer Le Mois A Partir Du Nom De Fichier

[Cazinos]

Bonsoir le forum,

Comment récuperer le mois d'un nom de fichier au format "mm" dans une cellule.

Exemple du nom de ce fichier :Salaire février correction.xls

Résultat attendu "02" pour février

Merci

 

[BOISGONTIER]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Bonjour,

=MOIS("01/"&GAUCHE(STXT(A1;TROUVE(" ";A1)+1;99);TROUVE(" ";STXT(A1;TROUVE(" ";A1)+1;99))-1))

JB

 

[Staple1600]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Bonjour



Je n'ai pas compris la même chose que BOISGONTIER

Sub test()
Dim x As String
Dim y As String
Dim z As String
x = ActiveWorkbook.Name
y = InStr(x, Chr(32))
z = Application.Trim(Mid(x, y, Len(x)))
y = Left(z, InStr(z, " "))
MsgBox y
End Sub

 

[Guest]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Autre formule qui remplace le deuxième mot du nom (ici en B5) si c'est un nom de mois par son équivalent chiffré au format 00

=SUBSTITUE($B$5;STXT($B$5;TROUVE(" ";$B$5)+1;TROUVE(" ";$B$5)-1);TEXTE(EQUIV(STXT($B$5;TROUVE(" ";$B$5)+1;TROUVE(" ";$B$5)-1);{"janvier";"février";"mars";"avril";"mai";"juin";"juillet";"août";"septembre";"octobre";"novembre";"décembre"};0);"00"))

A bientôt

 

[Cazinos]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Merci pour les réponses

le résultat doit se trouver dans une cellule exemple dans "A1"

le résultat attendu "02" pour février format "mm"

 

[BOISGONTIER]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

=texte(mois("01/"&gauche(stxt(a1;trouve(" ";a1)+1;99);trouve(" ";stxt(a1;trouve(" ";a1)+1;99))-1));"00")

Jb

 

[Cazinos]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

merci

c'est le mois du classeur (fichier) que je cherche à identifier dans une cellule

Salaire février correction.xls

 

[cbea]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Bonsoir à tous,

Voici une solution :

    Dim numMois As Byte
    
    Range("A1").Value = ""
    For numMois = 1 To 12
        If UCase(ThisWorkbook.Name) Like "*" & UCase(Format("01/" & numMois, "mmmm")) & "*" Then
            Range("A1").NumberFormat = "00"
            Range("A1").Value = numMois
            Exit For
        End If
    Next numMois

 

[Staple1600]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Re à tous


Finalement j'avais bien compris 😉


Et j'applaudis des deux mains la solution limpide (à mes yeux) de cbea.

 

[Cazinos]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

il faut mettre ton code dans ThisWorkbook ou la feuille ?

merci pour le travail

 

[Staple1600]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Re


Moi je verrais cela dans un module standard


Il y aurait moyen de transformer la macro en fonction vba personnalisée utilisable dans le classeur directement.

 

[Monique]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Bonjour,

Par formule

En donnant un nom à la fonction LIRE.CLASSEUR(16)
par Insertion - Nom - Définir
En haut, dans la zone "Noms dans le classeur", taper Lire par exemple,
en bas, dans la zone "Fait référence à", taper
=LIRE.CLASSEUR(16)
Dans une cellule quelconque du fichier, en tapant =Lire, on obtient le nom du fichier

=STXT(Lire;TROUVE(" ";Lire)+1;TROUVE(" ";Lire;MIN(TROUVE(" ";Lire))+1)-TROUVE(" ";Lire)-1)
pour avoir le nom du mois sous forme de texte

=MOIS(STXT(Lire;TROUVE(" ";Lire)+1;TROUVE(" ";Lire;MIN(TROUVE(" ";Lire))+1)-TROUVE(" ";Lire)-1)&8)
Cellule au format 00, on obtient 02 pour février

=(STXT(Lire;TROUVE(" ";Lire)+1;TROUVE(" ";Lire;MIN(TROUVE(" ";Lire))+1)-TROUVE(" ";Lire)-1)&8)*1
Cellule au format mm, on obtient 02 pour février

 

[Staple1600]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

RE



Merci Monique de ton intervention

Car je commençais en m'emmeler les pinceaux avec cette formule à rallonge

=STXT(STXT(CELLULE("nomfichier");CHERCHE("[";A1)+1;255);CHERCHE(" ";STXT(CELLULE("nomfichier");CHERCHE("[";A1);255));255)

 

[Cazinos]

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Merci à tous