Discussion :

[gilou41]

Bonjour tout le monde
n'étant pas un pro du vba, je rame un peu sur le sable...
j'ai un fichier exel avec des onglets par semaine (S01,S02...) Comment pui-je ouvrir le bon onglet correspondant à une date donnée (ex: 19/01/12 m'ouvre S03).
Si quelqu'un à le sésame de mon problème ???
Merci d'avance

[vieuxmonsieur]

Bonjour gilou,
voici :
NO.SEMAINE(numéro_de_série,[type_retour])
soit si ta date est en A1
=NO.SEMAINE(A1;2)

[pijaku]

Bonjour,

Pourquoi pas comme ceci :
Date saisie en B3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim NomOnglet As String, NumSem As Integer
NumSem = Format(Range("B3"), "ww", vbMonday, vbFirstFourDays)
If NumSem < 10 Then
    NomOnglet = "S0" & NumSem
Else
    NomOnglet = "S" & NumSem
End If

[issoram]

Bonjour,

Dans un premier temps tu peux lire ceci
C'est un excellent tutoriel sur la gestion des dates en VBA.

Il y'est fourni un fonction d’extraction du n° de semaine à partir d'une date. (ci dessous):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function Semaine(LaDate As Variant) As Variant
'---------------------------------------------------------------------------------------
' Procedure : Semaine
' Date      : vendredi 21 décembre 2007 13:56
' Auteur    : Maxence Hubiche (mhubiche@club-internet.fr -  06.18.61.14.35)
' Objet     : Renvoie le numéro de la semaine pour le calendrier français
' Spec      : Cette fonctino empèche le débordement en semaine 53, en mettant les jours
'               de la semaine 53 en semaine 1
' Retour    : Renvoie un Byte (n° de la semaine) ou Null si l'argument n'était pas une
'               date
'---------------------------------------------------------------------------------------
'
    Dim bytTemp As Byte
    If IsDate(LaDate) Then
        bytTemp = CByte(DatePart("ww", LaDate, vbMonday, vbFirstFourDays)) Mod 53
        If bytTemp = 0 Then bytTemp = 1
        Semaine = bytTemp
    Else
        Semaine = Null
    End If
End Function

Ensuite pour ton problème il te suffit d'ouvrir l'onglet dont le nom se termine par le bon n° de semaine. La fonction right associée à la fonction CInt de conversion string -> int devrait faire l'affaire.

Bonne journée.

[jfontaine]

bonjour,

Ci dessous une piste pour trouver le numéro de la semaine en utilisant la différence de semaine entre la date et le premier jour de l'année

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox DateDiff("ww", DateSerial(2012, 1, 1), DateSerial(2012, 4, 19)) + 1

[Theze]

Bonjour,

Essai ceci pour voir si ça convient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub ActiverFeuille()
 
    Dim LaDate As Date
 
    LaDate = #2/29/2012#
 
    Worksheets("S" & Format(DatePart("ww", LaDate, 0, 2), "0#")).Activate
 
End Sub

Hervé.