Creer un fonction ?

Fermé
loulou68 - 8 juin 2008 à 21:13
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
- 10 juin 2008 à 14:55
Bonjour,

Actuellement je saisi ma date et mon N° de jour tous les jours, pour la date j'ai trouvé. Mais je ne sais pas comment faire pour le N°jour. Ca me faciliterai un peu si ca se fesai tout seul.
Si quelqu'un peut m'aider.
Merci d'avance

3 réponses

lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 195
9 juin 2008 à 01:05
Bonsoir,
Mettre un titre plus explicite te permettrais d'avoir une r"ponse plus rapidement.
Avec quel logiciel ?
Avec formule ou VBA ?
Explique mieux ce que tu ceux faire parce que j'ai rien compris.
A+
0
Bonjour,

Je m'explique : J'ai un fichier excel et word et j'aimerai que la date et le quantieme de jour s'affiche automatiquement lors de l'ouverture quotidien du fichier sans que j'ai besoin de la saisir manuellement.

Cordialement
0
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 195
9 juin 2008 à 16:53
Pour avoir la date..
L'emplacement où mettre les données dans Word (Je connais pas bien ce VBA)
Dans Excell

par formule dans une feuille
=AUJOURDHUI()-DATEVAL("01/01/" & ANNEE(AUJOURDHUI()))+1


EDIT:
J'ai oublié de dire..
Après avoir rentrer la formule il faut remettre le format de la cellule en standard.
0
Re,

Merci pour la fonction, ca marche sous excel mais pour word, dommage, il va falloir que je cherhce encore.
0
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 195
9 juin 2008 à 18:06
Bon, j'ai regardé pour word, comme je connais quand même VBA j'ai pas eu difficile.
tu ouvre Word >> Ctrl+F11
A gauche tu a l'explorateur de document, document "Normal" ,double clic sur ThisDocument
dans la fenêtre qui s'ouvre tu copie la macro...
Private Sub Document_New()
    Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & Date
    Selection.TypeParagraph
    
    Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab _
    & "Jour N° " & DatePart("y", Date)
    Selection.TypeParagraph

End Sub

Chaque fois que tu ouvre un nouveau document la date et le N° du jour s'inscrirot.
A toi d'ajuster les emplacements.
A+
0
Je te remercie pour ton aide, j'essayerai demain pour voir si marche.

Merci encore
0
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 195 > loulou68
10 juin 2008 à 02:24
Comment si ca marche !!!! bien sûr que ca marche... :-DDD
0
louloul68
Messages postés
1
Date d'inscription
mardi 10 juin 2008
Statut
Membre
Dernière intervention
10 juin 2008
> lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020

10 juin 2008 à 14:45
Bonjour,

Desolé mais ca ne marche pas ou c'est moi qui quelque chose de mal.
Lors de la saisi de la procedure,

Private Sub Document_New()
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & Date
Selection.TypeParagraph

Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab _
& "Jour N° " & DatePart("y", Date) (fonction erroné)
Selection.TypeParagraph

End Sub

Et par contre le ctrl+F11 ne marche pas, est ce la version d'office qui est pourri ?
0
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 195 > louloul68
Messages postés
1
Date d'inscription
mardi 10 juin 2008
Statut
Membre
Dernière intervention
10 juin 2008

10 juin 2008 à 14:55
J'ai fait une erreur, c'est Alt+F11 !!
Je revoi l'erreur et je revient, mais chez moi ca allais, quel Version ? quel langue Francais/Anglais ?
0