Recuperer Le Mois A Partir Du Nom De Fichier

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 17 Avril 2008

• #2

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Avril 2008

• #3

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Avril 2008

• #4

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

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 17 Avril 2008

• #5

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"

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 17 Avril 2008

• #6

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

 

Pièces jointes

• Classeur1.xls

  13.5 KB · Affichages: 78
• Classeur1.xls

  13.5 KB · Affichages: 76
• Classeur1.xls

  13.5 KB · Affichages: 85

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 17 Avril 2008

• #7

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

 

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 17 Avril 2008

• #8

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Bonsoir à tous,

Voici une solution :

Code:

    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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Avril 2008

• #9

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.

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 17 Avril 2008

• #10

Re : Recuperer Le Mois A Partir Du Nom De Fichier

il faut mettre ton code dans ThisWorkbook ou la feuille ?

merci pour le travail

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Avril 2008

• #11

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.

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 17 Avril 2008

• #12

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

 

Pièces jointes

• Xyz Août Abc.zip

  1.8 KB · Affichages: 35

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Avril 2008

• #13

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)

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 18 Avril 2008

• #14

Re : Recuperer Le Mois A Partir Du Nom De Fichier

Merci à tous

 

Vote positif 0 Vote négatif