Afficher un numéro de semaine dans un en tete et les dates

Résolu/Fermé

guilau24 - 21 juin 2019 à 14:30
guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020 - 21 juin 2019 à 17:54

Bonjour,

Je souhaiterai afficher un numéro de semaine dans un en-tête à partir de la date du jour puis les dates de début et fin de semaine correspondante toujours en en-tête.

Pour le moment j'ai commencé comme ça:

With ActiveSheet.PageSetup
'en-tête de page
.LeftHeader = "&B&12Semaine XX" & Chr(10) & "Du XX au XX"
.CenterHeader = "AT - Collection ADC" & Chr(10) & "Documents en distribution"
.RightHeader = ""
'pied de page
.LeftFooter = ""
.CenterFooter = " Page &P de &N"
.RightFooter = "&D"
End With

le but est de remplacer les XX par le numéro de semaine et les dates

merci

<config>Windows / Internet Explorer 11.0</config,

A voir également:

Afficher un numéro de semaine dans un en tete et les dates
Numero prive - Guide
Ouvrir un fichier .dat - Guide
Word numéro de page 1/2 - Guide
Récupérer un numéro de téléphone effacé - Accueil - Android

6 réponses

Réponse 1 / 6

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
21 juin 2019 à 15:50

Bonjour,
Numero semaine:

DatePart("ww", Now())

https://grenier.self-access.com/access/dates-et-heures/dates-de-debut-et-de-fin-de-semaine/

Réponse 2 / 6

guilau24
21 juin 2019 à 16:42

j'ai essayé de l'intégrer comme ceci:

With ActiveSheet.PageSetup
'en-tête de page
.LeftHeader = "&B&12Semaine XX" & Chr(10) & "Du XX au XX"
.CenterHeader = "AT - Collection ADC" & Chr(10) & "Documents en distribution"
.RightHeader = ""
'pied de page
.LeftFooter = "DatePart("ww", Now())"
.CenterFooter = " Page &P de &N"
.RightFooter = "&D"
End With

mais je dois faire une erreur, cela ne marche pas

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
21 juin 2019 à 16:50

Re,
cela ne marche pas
Tout a fait Tierry, vu ce que vous avez ecrit.

.LeftFooter = "DatePart("ww", Now())"

Pourquoi des " devant et derriere , ce que j'ai mis n'en a pas!!!!!
De plus c'est pas au bon endroit d'apres votre code de depart
Le code de calcul semaine et dates doit etre avant la ligne With

Le lien est pour avoir les dates debut/fin d'une semaine, donc a regarder

Réponse 3 / 6

guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020
21 juin 2019 à 17:00

exact!

j'ai été trop vite.

j'ai rectifié comme ça et c'est tout bon

With ActiveSheet.PageSetup
'en-tête de page
.LeftHeader = "&B&12Semaine XX" & Chr(10) & "Du XX au XX"
.CenterHeader = "AT - Collection ADC" & Chr(10) & "Documents en distribution"
.RightHeader = ""
'pied de page
.LeftFooter = DatePart("ww", Now())
.CenterFooter = " Page &P de &N"
.RightFooter = "&D"
End With

Je l'ai mis en LeftFooter pour tester et donc ça marche, mais le but de cette première étape est d'insérer en LeftHeader dans le texte à la place des XX, j'ai naïvement replacé les XX par la formule et évidement ça ne marche pas...

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
21 juin 2019 à 17:11

Re,
Ben evident, pour les dates vous regardez ou pas??

Vous connaissez un peu la programmation en general et VBA en particulie

Réponse 4 / 6

guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020
21 juin 2019 à 17:13

pas vraiment, je début , je lis et j'apprends...

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
21 juin 2019 à 17:16

Re,

Question: la semaine est celle de la date du jour ou une autre date

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020
21 juin 2019 à 17:18

j'export mon fichier le vendredi pour une parution le lundi. donc c'est pour la semaine suivante.

je pense donc qu'il faut: numéro de semaine du jour + 1 j'ai bon?

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié le 21 juin 2019 à 17:47

Re,
Oui, mais …….

Suite:

une facon de faire:

'--------------------------------------------------------------------
'https://grenier.self-access.com/access/dates-et-heures/dates-de-debut-et-de-fin-de-semaine/
    Dim dtDebutSemaine As Date
    Dim dtFinSemaine As Date
    
    'semaine en cours
    'dtDebutSemaine = Date + 6 - Weekday(Date + 6, vbMonday) + 1
    'dtFinSemaine = Date + 6 + 7 - Weekday(Date + 6, vbMonday)
    dtDebutSemaine = Date + 6 - Weekday(Date + 6, vbMonday) + 1     'ajout de 6 pour etre sur dans la semaine suivante
    dtFinSemaine = Date + 6 + 7 - Weekday(Date + 6, vbMonday)
'---------------------------------------------------------------------
    With ActiveSheet.PageSetup
        'en-t?te de page
        .LeftHeader = "&B&12Semaine: " & DatePart("ww", Now()) + 1 & vbNewLine & "Du " & dtDebutSemaine & " au " & dtFinSemaine
        .CenterHeader = "AT - Collection ADC" & Chr(10) & "Documents en distribution"
        .RightHeader = ""
        'pied de page
        .LeftFooter = ""
        .CenterFooter = " Page &P de &N"
        .RightFooter = "&D"
    End With

Réponse 6 / 6

guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020
21 juin 2019 à 17:54

Parfait, merci beaucoup et ça me permet de mieux comprendre mes erreurs...

je vais passer à la suite de mon projet qui est mettre en forme mon tableau

Discussions similaires

Comment trouver un numéro à partir du nom et prénom

Afficher toutes les lignes masquées excel

Annuaire portable gratuit à partir d'un nom

Trouver propriétaire d'un numéro de téléphone gratuitement

Trouver un numero de portable a partir d'un nom svp