Aide sur formule

[Man02]

Bonjour le forum

Ci joint une formule VBA :

Private Sub CommandButton15_Click()
Workbooks.Open ('D:\\Documents and Settings\\Administrateur\\Mes documents\\center parcs de l'ailette1\\PERSONNEL CHANTIER\\HEURES\\FEUILLES D'HEURES\\S15.xls ')
End Sub


Je voudrai que le S15.XLS tout les lundi devienne +1.

CAD S15 pour cette semine dès le lundi 17/04 devienne S16 ainsi de suite.

 

[Gorfael]

Salut
Tu demandes quoi exactement ?
Tu parles de fromule, tu colles du code, je suis un peu paumé !
S15 : c'est la semaine, une cellule, un fichier, une feuille ?
Expliques clairement ce que tu veux dans ton poste, je vois pas très bien ce que tu fais à l'écran
A+

 

[Man02]

Bonjour Gorfael,

S15 est un fichier que je recopie toute les semaines pour devenir S16,S17 etc... Actuellement je modifie toute les semaines manuellement la formule pour pouvoir y acceder directement par un bouton.


Merci par avance

 

[Gorfael]

Salut
P'tite modif qui devrait t'aider

Private Sub CommandButton15_Click()
Dim X as integer
x = Format(Now(), 'ww', vbMonday, vbFirstFourDays)
'x = Format(Now(), 'ww', vbMonday, vbFirstFullWeek)
Workbooks.Open ('D:\\Documents and Settings\\Administrateur\\Mes documents\\center parcs de l'ailette1\\PERSONNEL CHANTIER\\HEURES\\FEUILLES D'HEURES\\S' & X & '.xls ')
End Sub

Comme il y a deux méthodes pour déterminer le n°Semaine, J'en ai mis une active et l'autre en commentaire.
La première semaine qui compte 4 jours dans l'année, ou la première semaine complête
A+

Message édité par: gorfael, à: 10/04/2006 11:28