Creer un fonction ?

loulou68 -  
lermite222 Messages postés 9042 Statut Contributeur -
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 9042 Statut Contributeur 1 191
 
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
loulou68
 
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 9042 Statut Contributeur 1 191
 
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
loulou68
 
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 9042 Statut Contributeur 1 191
 
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
loulou68
 
Je te remercie pour ton aide, j'essayerai demain pour voir si marche.

Merci encore
0
lermite222 Messages postés 9042 Statut Contributeur 1 191 > loulou68
 
Comment si ca marche !!!! bien sûr que ca marche... :-DDD
0
louloul68 Messages postés 1 Statut Membre > lermite222 Messages postés 9042 Statut Contributeur
 
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 9042 Statut Contributeur 1 191 > louloul68 Messages postés 1 Statut Membre
 
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