ouvrir feuille selon date système

[wasimd]

Bonsoir,

Je suis novice en VBA et macro et je galère depuis 2 jours; voici mon problème:

j'ai 53 feuilles (53 semaines) dans mon agenda où chaque feuille contient 7 colonnes (chacune avec la date du jour de la semaine exemple lundi 1 janvier 2009,...,dimanche 7 janvier 2009)
je veux utiliser une méthode (probablement macro VBA) qui permet d'ouvrir la feuille X (X entre 1 et 53) si la date d'aujourd'hui (date système) est existante dans cette feuille?
merci énormément pour votre aide.

 

[soenda]

Re : ouvrir feuille selon date système

Bonsoir à tous, wasimd

Si tes Feuilles se nomment "Semaine1" à "Semaine53", tu peux essayer dans "Workbook_Open" le code suivant:

Private Sub Workbook_Open()
    Sheets("Semaine" & Application.WorksheetFunction.WeekNum(Now)).Activate
End Sub

à l'ouverture du classeur, la feuille de la semaine en-cours sera ouverte... (Si j'ai bien compris)

A plus

 

[wasimd]

Re : ouvrir feuille selon date système

Private Sub Workbook_Open()
    Sheets("Feuil" & Application.WorksheetFunction.WeekNum(Now)).Activate
End Sub

merci pour votre réponse, j'ai exécuté cette macro mais ça n'a rien donné en effet un message d'erreur apparaît :
"argument ou appel de procédure incorrect"

 

[kllmoon]

Re : ouvrir feuille selon date système

Bonjour, je ne sais pas comment tu as nommé tes feuilles mais j'ai prit pour acquis que c'est semaine1, semaine2..... semaine52. Si ce n'est pas le cas, renomme les ou adapte la formule 😉

Private Sub Workbook_Open()
Dim sem As String
Dim cejour As Date
cejour = Now 'la date d'aujourd'hui
sem = DatePart("ww", cejour) 'le # de semaine (1 à 52)
Sheets("Semaine" & sem).Select 'donc aujourd'hui, il select semaine15
End Sub

 

[wasimd]

Re : ouvrir feuille selon date système

Bonjour, je ne sais pas comment tu as nommé tes feuilles mais j'ai prit pour acquis que c'est semaine1, semaine2..... semaine52. Si ce n'est pas le cas, renomme les ou adapte la formule 😉

Private Sub Workbook_Open()
Dim sem As String
Dim cejour As Date
cejour = Now 'la date d'aujourd'hui
sem = DatePart("ww", cejour) 'le # de semaine (1 à 52)
Sheets("Semaine" & sem).Select 'donc aujourd'hui, il select semaine15
End Sub

10000 merci cela fonctionne très bien, juste une tout petite chose : comment inclure le dimanche dans la semaine en cours , c'est à dire lorsque j'ouvre mon fichier le dimanche il m'affiche la semaine qui vient de passer et non pas la nouvelle semaine?
merci

 

[mromain]

Re : ouvrir feuille selon date système

bonjour,

wasimd, le PB vient du fait que dans excel la semaine commence le dimanche, et non le lundi.
à tester :
remplacer

cejour = Now

par

cejour = DateSerial(Year(Now), Month(Now), Day(Now) - 1)

a+

 

[kllmoon]

Re : ouvrir feuille selon date système

Tout simplement mettre un condition si cejour = dimanche alors semaine = semaine -1

Sub Macro1()
Dim sem As String
Dim sem2 As String
Dim cejour As Date
cejour = Now 'la date d'aujourd'hui
sem = DatePart("ww", cejour) 'le # de semaine (1 à 52)
sem2 = DatePart("w", cejour) 'ramène le jour (1 à 7)
If sem2 = 1 Then
sem = sem - 1
Sheets("Semaine" & sem).Select 'donc aujourd'hui, il select semaine15 et si on était dimanche, semaine14
Else
Sheets("Semaine" & sem).Select 'donc aujourd'hui, il select semaine15
End If
End Sub

 

[wasimd]

Re : ouvrir feuille selon date système

merci pour vos réponse.ça fonctionne très bien.