OVH Cloud OVH Cloud

Semaine 45 et jour de la semaine

9 réponses
Avatar
Stef
Bonjour,

Je travaille pour une association et je voudrais automatiser des
informations à l'ouverture d'un document Word avec un tableau.

1) je voudrais qu'à l'ouverture il s'ouvre en indiquant sur une ligne
semaine 45 du lundi 03 au 09 novembre 2003 (bien entendu à chaque ouverture
cette ligne se met à jour.

2) j'ai des colonnes dans un tableau avec les jour de la semaine : LUNID
04/11, MARDI 04/11 et je voudrais que chaque jour se mette à jour ...

Mais je ne sais pas trop si c'est possible et comment faire avec Word ...

Merci d'avance ...

Stef

9 réponses

Avatar
Pascal
Bonjour,

Je te passe ce code qui a été développé sur le MPFE mais adapté à XL.
Poses la question sur le forum XL pour pouvoir l'adapter à Word

Function Période_Lundi_au_Samedi(NoSem As Integer)
'mpfe Isabelle

Dim date1, date2, Année
If NoSem = 0 Then Exit Function
Année = Year(Date)
date1 = ((NoSem / 52) * 365) - 4
date2 = ((NoSem / 52) * 365) + 1
date1 = Format(date1, "dd-mmm")
date2 = Format(date2, "dd-mmm")
Période_Lundi_au_Samedi = "du " & date1 & " " & Année & " au " & date2 & " "
& Année
End Function

pascal

"Stef" a écrit dans le message de news:
3faba207$0$248$
Bonjour,

Je travaille pour une association et je voudrais automatiser des
informations à l'ouverture d'un document Word avec un tableau.

1) je voudrais qu'à l'ouverture il s'ouvre en indiquant sur une ligne
semaine 45 du lundi 03 au 09 novembre 2003 (bien entendu à chaque
ouverture

cette ligne se met à jour.

2) j'ai des colonnes dans un tableau avec les jour de la semaine : LUNID
04/11, MARDI 04/11 et je voudrais que chaque jour se mette à jour ...

Mais je ne sais pas trop si c'est possible et comment faire avec Word ...

Merci d'avance ...

Stef




Avatar
Stef
Oups ...
Je ne comprends pas trop comment cela fonctionne dans XL
alors dans Word ?



"Pascal" a écrit dans le message de
news:
Bonjour,

Je te passe ce code qui a été développé sur le MPFE mais adapté à XL.
Poses la question sur le forum XL pour pouvoir l'adapter à Word

Function Période_Lundi_au_Samedi(NoSem As Integer)
'mpfe Isabelle

Dim date1, date2, Année
If NoSem = 0 Then Exit Function
Année = Year(Date)
date1 = ((NoSem / 52) * 365) - 4
date2 = ((NoSem / 52) * 365) + 1
date1 = Format(date1, "dd-mmm")
date2 = Format(date2, "dd-mmm")
Période_Lundi_au_Samedi = "du " & date1 & " " & Année & " au " & date2 & "
"

& Année
End Function

pascal

"Stef" a écrit dans le message de news:
3faba207$0$248$
Bonjour,

Je travaille pour une association et je voudrais automatiser des
informations à l'ouverture d'un document Word avec un tableau.

1) je voudrais qu'à l'ouverture il s'ouvre en indiquant sur une ligne
semaine 45 du lundi 03 au 09 novembre 2003 (bien entendu à chaque
ouverture

cette ligne se met à jour.

2) j'ai des colonnes dans un tableau avec les jour de la semaine : LUNID
04/11, MARDI 04/11 et je voudrais que chaque jour se mette à jour ...

Mais je ne sais pas trop si c'est possible et comment faire avec Word
...



Merci d'avance ...

Stef








Avatar
Bonjour Stef,

Sachant que Word n'y connaît rien en date, je te conseille vivement de faire
ça avec Excel... surtout si c'est un tableau ; dans ce cas tu peux
effectivement reprendre la fonction que t'a communiquée Pascal.

nuindacil

Stef wrote:
|| Bonjour,
||
|| Je travaille pour une association et je voudrais automatiser des
|| informations à l'ouverture d'un document Word avec un tableau.
||
|| 1) je voudrais qu'à l'ouverture il s'ouvre en indiquant sur une ligne
|| semaine 45 du lundi 03 au 09 novembre 2003 (bien entendu à chaque
|| ouverture cette ligne se met à jour.
||
|| 2) j'ai des colonnes dans un tableau avec les jour de la semaine :
|| LUNID 04/11, MARDI 04/11 et je voudrais que chaque jour se mette à
|| jour ...
||
|| Mais je ne sais pas trop si c'est possible et comment faire avec
|| Word ...
||
|| Merci d'avance ...
||
|| Stef
Avatar
Geo
Bonsoir Nuindacil,


Bonjour Stef,

Sachant que Word n'y connaît rien en date,
[...]


Avec les champs : oui,
mais en vba on doit pouvoir faire quelque chose.


--

A+

Avatar
Geo
Bonsoir Pascal,


Bonjour,

Je te passe ce code qui a été développé sur le MPFE mais adapté à
XL.

Poses la question sur le forum XL pour pouvoir l'adapter à Word


Ben j'aurais pensé qu'il valait mieux s'adresser au forum word pour
l'adapter au vba word, mais chacun fait comme il veut.

A+

Avatar
Geo wrote:
|| Avec les champs : oui,
|| mais en vba on doit pouvoir faire quelque chose.
||
||

Oui, mais bon, pourquoi vouloir réinventer l'eau chaude ?...
Excel est un tableur et avec, ô magie ! on peut faire des tableaux !!! ;-)


du club des AMIS
mvp word

|| --
||
|| A+
Avatar
Anacoluthe
Bonjour la compagnie !

"Nuindacil" nous a écrit ...
Geo wrote:
Avec les champs : oui,
mais en vba on doit pouvoir faire quelque chose.

Oui, mais bon, pourquoi vouloir réinventer l'eau chaude ?...


Excel est un tableur et avec, ô magie ! on peut faire des tableaux
!!! ;-)
du club des AMIS


Youhou, où retire-t-on les cartes du club ? Je veux adhérer %-)
N'dacil a raison , ça lui arrive ;-)
Pas de calcul de dates en champs Word, c'est entendu
mais pourquoi alors obligatoirement VBA ???
Excel suffit très bien _sans_ VBA , non ?

Semaine 45 du lundi 3 au dimanche 9 novembre 2003

Reprenons dans une feuille les simples formules EXCEL :

Le numéro de la semaine (les semaines commencent par lundi)
=NO.SEMAINE(AUJOURDHUI();2)

Le lundi débutant cette semaine
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1

Le dimanche terminant cette semaine
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+7

( Vérifiez que 'Utilitaire d'analyse' est chargé dans les
compléments Excel )

Bon, on place juste ces 3 cellules dans une feuille esclave
et on copie-colle spécial avec liaison en texte sans
mise en forme dans son texte Word. Et voilà ! zéro-vba

J'aime assez rappeler à nos amis excellents :
« EXCEL n'est jamais qu'un petit utilitaire pour WORD »
:-D )))

Bonne fin de semaine

Anacoluthe
« Petit lundi, grosse semaine. »
- Proverbe québécois



Avatar
Clément Marcotte
C'est parce que ton No.semaine calcule les semaines comme du monde.
(Elles commencent le dimanche)





"Anacoluthe" a écrit dans le message de
news:
Bonjour la compagnie !

"Nuindacil" nous a écrit ...
Geo wrote:
Avec les champs : oui,
mais en vba on doit pouvoir faire quelque chose.

Oui, mais bon, pourquoi vouloir réinventer l'eau chaude ?...


Excel est un tableur et avec, ô magie ! on peut faire des tableaux
!!! ;-)
du club des AMIS


Youhou, où retire-t-on les cartes du club ? Je veux adhérer %-)
N'dacil a raison , ça lui arrive ;-)
Pas de calcul de dates en champs Word, c'est entendu
mais pourquoi alors obligatoirement VBA ???
Excel suffit très bien _sans_ VBA , non ?

Semaine 45 du lundi 3 au dimanche 9 novembre 2003

Reprenons dans une feuille les simples formules EXCEL :

Le numéro de la semaine (les semaines commencent par lundi)
=NO.SEMAINE(AUJOURDHUI();2)

Le lundi débutant cette semaine
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+1

Le dimanche terminant cette semaine
=AUJOURDHUI()-JOURSEM(AUJOURDHUI();2)+7

( Vérifiez que 'Utilitaire d'analyse' est chargé dans les
compléments Excel )

Bon, on place juste ces 3 cellules dans une feuille esclave
et on copie-colle spécial avec liaison en texte sans
mise en forme dans son texte Word. Et voilà ! zéro-vba

J'aime assez rappeler à nos amis excellents :
« EXCEL n'est jamais qu'un petit utilitaire pour WORD »
:-D )))

Bonne fin de semaine

Anacoluthe
« Petit lundi, grosse semaine. »
- Proverbe québécois






Avatar
JièL Goubert
Salut le wor(l)d

Youhou, où retire-t-on les cartes du club ? Je veux adhérer %-)


Facile, tu trouves une macro superfétatoire publié dans ce groupe, tu la
remplace par une super fonction existante dans Word et tu fais
automatiquement partie du club ;-)))

N'dacil a raison , ça lui arrive ;-)


Et pas qu'un peu même ;-))))))))))

Excel suffit très bien _sans_ VBA , non ?


Farpaitement !

Le numéro de la semaine (les semaines commencent par lundi)
=NO.SEMAINE(AUJOURDHUI();2)


/! antantion /! le excel ne connais pas NOS numéros ISO de semaine et
travaille avec une numérotation abracadabrante
Excemple : le 31/12/2000 est dans la semaine 54... pas mal hein ;-)

J'aime assez rappeler à nos amis excellents :
« EXCEL n'est jamais qu'un petit utilitaire pour WORD »
:-D )))


Et c'est tellement vrai ;-)

« Petit lundi, grosse semaine. »
- Proverbe québécois


Mais tu les sort d'où ceux la ??? ;-)

--
JièL Se Maine de Tout