macro réouverture classeur

al1000 · 13 Février 2008

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 · 13 Février 2008

Re : macro réouverture classeur

Salut,

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

Code:

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 · 14 Février 2008

Re : macro réouverture classeur

Bonjour,

merci

c'est bon.

que veux dire:Trim?

a+

porcinet82 · 14 Février 2008

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 · 14 Février 2008

Re : macro réouverture classeur

bonjour,

merci

a+

macro réouverture classeur

al1000

XLDnaute Impliqué

porcinet82

XLDnaute Barbatruc

al1000

XLDnaute Impliqué

porcinet82

XLDnaute Barbatruc

al1000

XLDnaute Impliqué

Discussions similaires

macro réouverture classeur

al1000

XLDnaute Impliqué

porcinet82

XLDnaute Barbatruc

al1000

XLDnaute Impliqué

porcinet82

XLDnaute Barbatruc

al1000

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency