macro réouverture classeur

[al1000]

Bonjour

j'ai un classeur avec m macro

et je voudrai que cette macro reouve le classeur janvier 2008

actuellement j'inscivais cela:

Windows("janvier 2008.xls").Activate:=nomfich
et tous les mois je dois changer le mois


J'ai essayé ceci mas celanemarche pas:



Sub ouverture_mqts_2007()


a = Year(Now())
an$ = Trim$(Str$(a))
mo$ = Trim(Range("a1"))


'mois$ = mo$ & " " & an$

'Range("a2") = mois$

nomfich = ("janvier 2008.xls")

Windows.Activate:=nomfich
Windows(" & mois &2008" .xls").Activate
End Sub


je suis bloque


avez vous une solution


a+

 

[porcinet82]

Re : macro réouverture classeur

Salut,

A la place de ton Windows("janvier 2008.xls").Activate
Essais plutot ceci :

Dim annee As String, mois As String, nomfich As String
annee = Year(Now())
mois = Trim(Range("a1"))
nomfich = mois & " " & annee & ".xls"
Windows(nomfich).Activate

@+

 

[al1000]

Re : macro réouverture classeur

Bonjour,

merci

c'est bon.

que veux dire:Trim?

a+

 

[porcinet82]

Re : macro réouverture classeur

Salut,

En fait, je ne me sert quasiment jamais de cette fonction, mais cette comme elle était présente dans ton premier code, je me suis dis qu'elle devait avoir son utilité.
En faite, Trim permet d'enlever les espaces avant et apres une chaine de caractère.

@+

 

[al1000]

Re : macro réouverture classeur

bonjour,



merci

a+