Ouvrir un fichier dont le nom xxx.xls est le nom du mois précédent le mois en cours

Pierrot93

XLDnaute Barbatruc

• 14 Août 2012

• #2

Re : Ouvrir un fichier dont le nom xxx.xls est le nom du mois précédent le mois en co

Bonjour,

essaye ceci :

Code:

strName = "BOB" & Format(DateSerial(Year(Date), Month(Date), 0), "mmyyyy") & ".xls"

bon après midi
@+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 14 Août 2012

• #3

Re : Ouvrir un fichier dont le nom xxx.xls est le nom du mois précédent le mois en co

Salut excelman et le forum

J'essaye avec la variable strName = "BOB" & Format(Date, "mmyyyy") -1 & ".xls" mais ça ne marche pas

Cliquez pour agrandir...

Petite remarque en passant : si 072012 correspond à Format(Date, "mmyyyy"), si je lui ôte 1, j'ai plus de chance d'avoir 072011, plutôt que 062012, non ?
Teste :

Code:

strName = "BOB" & Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmyyyy") & ".xls"

A+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 14 Août 2012

• #4

Re : Ouvrir un fichier dont le nom xxx.xls est le nom du mois précédent le mois en co

Bonsoir Gorfael Pierrot, le forum
bah pour moi si 07 est le mois dans 072012, et que l'on retranche 1 on a beaucoup de chance de tomber sur 06, ou bien???
a+
Papou

 

Vote positif 0 Vote négatif

E

excelman

XLDnaute Occasionnel

• 14 Août 2012

• #5

Re : Ouvrir un fichier dont le nom xxx.xls est le nom du mois précédent le mois en co

Bonjour Pierrot

Rien à dire, une fois de plus Bravo l'Artiste. C'est parfaitement ce dont j'avais besoin.
Si je peux abuser un peu pour le mois d'après..

Pourriez vous éventuellement me donner un petite explication de votre formule.

Merci encore

Merci aussi à Paritec et gorfael

Cordialement

 

Dernière édition: 14 Août 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Août 2012

• #6

Re : Ouvrir un fichier dont le nom xxx.xls est le nom du mois précédent le mois en co

Re, bonsoir Gorfael, Papou

pour le mois suivant,

Code:

strName = "BOB" & Format(DateSerial(Year(Date), Month(Date) + 1, 1), "mmyyyy") & ".xls"

regarde dans l'aide vba du coté de la fonction "DateSerial", en mettant 0 dans le jour, tu récupère le 1er jour du mois précedent....

 

Vote positif 0 Vote négatif