J'ai des noms de fichiers de ce style : mon_fichier_etc 05-2013.xslm
Le début du nom de fichier est toujours différent mais c'est toujours du
texte, moi ce qui m'interesse, ce sont les numeros, et surtout les 2
premiers qui représente le mois (05).
En faite je souhaiterais que dans ma cellule A1, il mette mai si c'est
marqué 05 dans le nom de fichier, si c'etait 02, il devrait me mettre
Février....etc
Merci Mich, Mais le soucis est que les noms de fichiers ne sont jamais les mêmes... Il faudrait aller chercher les 2 premiers chiffres du nom du fichier (et peu importe la longueur du nom du fichier) car ces 2 premiers chiffres représentent tjrs le mois
Manu
"MichD" a écrit dans le message de news: kt62te$uef$
Et si tu veux mettre le mois dans A1
Dim X As String X = "mon_fichier_etc 02-2013.xslm" Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM")
Merci Mich, Mais le soucis est que les noms de fichiers ne sont jamais les
mêmes... Il faudrait aller chercher les 2 premiers chiffres du nom du
fichier (et peu importe la longueur du nom du fichier) car ces 2 premiers
chiffres représentent tjrs le mois
Manu
"MichD" <michdenis@hotmail.com> a écrit dans le message de news:
kt62te$uef$1@speranza.aioe.org...
Et si tu veux mettre le mois dans A1
Dim X As String
X = "mon_fichier_etc 02-2013.xslm"
Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-",
Len(X)) - 2, 2), 1), "MMMM")
Merci Mich, Mais le soucis est que les noms de fichiers ne sont jamais les mêmes... Il faudrait aller chercher les 2 premiers chiffres du nom du fichier (et peu importe la longueur du nom du fichier) car ces 2 premiers chiffres représentent tjrs le mois
Manu
"MichD" a écrit dans le message de news: kt62te$uef$
Et si tu veux mettre le mois dans A1
Dim X As String X = "mon_fichier_etc 02-2013.xslm" Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM")
La macro que je t'ai donnée devrait fonctionner dans les exemples que tu as affichés
Dans le bout de code suivant, tu n'as qu'à remplacer le nom du fichier "mon_fichier_etc 02-2013.xslm" par celui que tu désires. Où éprouves-tu un problème?
Dim X As String X = "mon_fichier_etc 02-2013.xslm" Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM")
La macro que je t'ai donnée devrait fonctionner dans les
exemples que tu as affichés
Dans le bout de code suivant, tu n'as qu'à remplacer le
nom du fichier "mon_fichier_etc 02-2013.xslm" par celui
que tu désires. Où éprouves-tu un problème?
Dim X As String
X = "mon_fichier_etc 02-2013.xslm"
Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-",
Len(X)) - 2, 2), 1), "MMMM")
La macro que je t'ai donnée devrait fonctionner dans les exemples que tu as affichés
Dans le bout de code suivant, tu n'as qu'à remplacer le nom du fichier "mon_fichier_etc 02-2013.xslm" par celui que tu désires. Où éprouves-tu un problème?
Dim X As String X = "mon_fichier_etc 02-2013.xslm" Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM")
Je souhaite que cette macro fonctionne avec n'importe quel nom de fichier, j'ai plus d'une centaine de fichier qui ont tous des noms differents et avec une longeurs differentes, mais le seul point commun de ces fichiers est que les 2 premiers chiffres sont des N° de mois, et c'est cela que je souhaite extraire.
Si je prend ton code, il faudrait que je mette tous les noms de fichiers, c'est impossible... et en plus il y en à dont je ne connais pas encore le nom.
Ais-je été plus clair ?
Manu
Si je prend le code"MichD" a écrit dans le message de news: kt67ac$c9p$
La macro que je t'ai donnée devrait fonctionner dans les exemples que tu as affichés
Dans le bout de code suivant, tu n'as qu'à remplacer le nom du fichier "mon_fichier_etc 02-2013.xslm" par celui que tu désires. Où éprouves-tu un problème?
Dim X As String X = "mon_fichier_etc 02-2013.xslm" Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM")
Je souhaite que cette macro fonctionne avec n'importe quel nom de fichier,
j'ai plus d'une centaine de fichier qui ont tous des noms differents et avec
une longeurs differentes, mais le seul point commun de ces fichiers est que
les 2 premiers chiffres sont des N° de mois, et c'est cela que je souhaite
extraire.
Si je prend ton code, il faudrait que je mette tous les noms de fichiers,
c'est impossible... et en plus il y en à dont je ne connais pas encore le
nom.
Ais-je été plus clair ?
Manu
Si je prend le code"MichD" <michdenis@hotmail.com> a écrit dans le message
de news: kt67ac$c9p$1@speranza.aioe.org...
La macro que je t'ai donnée devrait fonctionner dans les
exemples que tu as affichés
Dans le bout de code suivant, tu n'as qu'à remplacer le
nom du fichier "mon_fichier_etc 02-2013.xslm" par celui
que tu désires. Où éprouves-tu un problème?
Dim X As String
X = "mon_fichier_etc 02-2013.xslm"
Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-",
Len(X)) - 2, 2), 1), "MMMM")
Je souhaite que cette macro fonctionne avec n'importe quel nom de fichier, j'ai plus d'une centaine de fichier qui ont tous des noms differents et avec une longeurs differentes, mais le seul point commun de ces fichiers est que les 2 premiers chiffres sont des N° de mois, et c'est cela que je souhaite extraire.
Si je prend ton code, il faudrait que je mette tous les noms de fichiers, c'est impossible... et en plus il y en à dont je ne connais pas encore le nom.
Ais-je été plus clair ?
Manu
Si je prend le code"MichD" a écrit dans le message de news: kt67ac$c9p$
La macro que je t'ai donnée devrait fonctionner dans les exemples que tu as affichés
Dans le bout de code suivant, tu n'as qu'à remplacer le nom du fichier "mon_fichier_etc 02-2013.xslm" par celui que tu désires. Où éprouves-tu un problème?
Dim X As String X = "mon_fichier_etc 02-2013.xslm" Range("A1") = Format(DateSerial(Year(Date), Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM")
Dans ton application, comment fais-tu pour obtenir le nom du fichier dont tu veux extraire le mois?
Il s'agit alors d'attribuer à la variable X ce nom de fichier. Tu peux traiter autant de noms de fichier que tu désires dans une boucle où tu extrais le nom du fichier.
Dans ton application, comment fais-tu pour obtenir
le nom du fichier dont tu veux extraire le mois?
Il s'agit alors d'attribuer à la variable X ce nom de fichier.
Tu peux traiter autant de noms de fichier que tu désires
dans une boucle où tu extrais le nom du fichier.
Dans ton application, comment fais-tu pour obtenir le nom du fichier dont tu veux extraire le mois?
Il s'agit alors d'attribuer à la variable X ce nom de fichier. Tu peux traiter autant de noms de fichier que tu désires dans une boucle où tu extrais le nom du fichier.
Peu importe où ils sont... Je te donne un exemple concret, je recois par mail un fichier xxxxx 05-2013.xlsm Je l'ouvre (le fichier dont je veux extraire le mois, est obligatoirement ouvert) et je veux ensuite prendre les 2 premiers chiffre comme mois de ce fichier qui est en face de moi.
Mais je ne connais pas toujours les noms de fichiers, c'est pour cela que je mettrai cette macro dans le classeur de macro personnel
"MichD" a écrit dans le message de news: kt68lf$g7u$
Dans ton application, comment fais-tu pour obtenir le nom du fichier dont tu veux extraire le mois?
Il s'agit alors d'attribuer à la variable X ce nom de fichier. Tu peux traiter autant de noms de fichier que tu désires dans une boucle où tu extrais le nom du fichier.
Peu importe où ils sont... Je te donne un exemple concret, je recois par
mail un fichier xxxxx 05-2013.xlsm
Je l'ouvre (le fichier dont je veux extraire le mois, est obligatoirement
ouvert) et je veux ensuite prendre les 2 premiers chiffre comme mois de ce
fichier qui est en face de moi.
Mais je ne connais pas toujours les noms de fichiers, c'est pour cela que je
mettrai cette macro dans le classeur de macro personnel
"MichD" <michdenis@hotmail.com> a écrit dans le message de news:
kt68lf$g7u$1@speranza.aioe.org...
Dans ton application, comment fais-tu pour obtenir
le nom du fichier dont tu veux extraire le mois?
Il s'agit alors d'attribuer à la variable X ce nom de fichier.
Tu peux traiter autant de noms de fichier que tu désires
dans une boucle où tu extrais le nom du fichier.
Peu importe où ils sont... Je te donne un exemple concret, je recois par mail un fichier xxxxx 05-2013.xlsm Je l'ouvre (le fichier dont je veux extraire le mois, est obligatoirement ouvert) et je veux ensuite prendre les 2 premiers chiffre comme mois de ce fichier qui est en face de moi.
Mais je ne connais pas toujours les noms de fichiers, c'est pour cela que je mettrai cette macro dans le classeur de macro personnel
"MichD" a écrit dans le message de news: kt68lf$g7u$
Dans ton application, comment fais-tu pour obtenir le nom du fichier dont tu veux extraire le mois?
Il s'agit alors d'attribuer à la variable X ce nom de fichier. Tu peux traiter autant de noms de fichier que tu désires dans une boucle où tu extrais le nom du fichier.
Place ceci dans ton classeur de macros personnelles
Cette macro met le mois du fichier en A1 (en supposant que ces chiffres existent dans le nom du fichier) dans la feuille active du classeur actif au moment d'exécuter la macro. '------------------------------------- Sub test() Dim Wk As Workbook, X As String On Error Resume Next Set Wk = ActiveWorkbook X = Wk.Name With Wk If TypeName(.ActiveSheet) = "Worksheet" Then .ActiveSheet.Range("A1") = Format(DateSerial(Year(Date), _ Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM") End If End With End Sub '-------------------------------------
Place ceci dans ton classeur de macros personnelles
Cette macro met le mois du fichier en A1 (en supposant que ces
chiffres existent dans le nom du fichier) dans la feuille
active du classeur actif au moment d'exécuter la macro.
'-------------------------------------
Sub test()
Dim Wk As Workbook, X As String
On Error Resume Next
Set Wk = ActiveWorkbook
X = Wk.Name
With Wk
If TypeName(.ActiveSheet) = "Worksheet" Then
.ActiveSheet.Range("A1") = Format(DateSerial(Year(Date), _
Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM")
End If
End With
End Sub
'-------------------------------------
Place ceci dans ton classeur de macros personnelles
Cette macro met le mois du fichier en A1 (en supposant que ces chiffres existent dans le nom du fichier) dans la feuille active du classeur actif au moment d'exécuter la macro. '------------------------------------- Sub test() Dim Wk As Workbook, X As String On Error Resume Next Set Wk = ActiveWorkbook X = Wk.Name With Wk If TypeName(.ActiveSheet) = "Worksheet" Then .ActiveSheet.Range("A1") = Format(DateSerial(Year(Date), _ Mid(X, InStrRev(X, "-", Len(X)) - 2, 2), 1), "MMMM") End If End With End Sub '-------------------------------------
