Creer un fonction ?

loulou68 -  
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

  1.  lermite222 Contributeur
    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
    1. 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
  2. lermite222 Contributeur
    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
    1. loulou68
      Re,

      Merci pour la fonction, ca marche sous excel mais pour word, dommage, il va falloir que je cherhce encore.
      0
  3. lermite222 Contributeur
    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
    1. loulou68
      Je te remercie pour ton aide, j'essayerai demain pour voir si marche.

      Merci encore
      0
    2. lermite222 Contributeur
      @loulou68Comment si ca marche !!!! bien sûr que ca marche... :-DDD
      0
    3. louloul68
      @lermite222Bonjour,

      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
    4. lermite222 Contributeur
      @louloul68J'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