Discussion :

[jeremmm63]

Bonjour
Je cherche à créer une automatisation sous Excel afin de faire apparaître la date jour moi année (ex:lundi 24 janvier 2018 ) sur une nouvelle feuilles (une feuille par jour) de manière à avoir 365 feuilles et que chaque feuilles corresponde à une date
Voir même à enlever les samedi et les dimanche,
Cela est pour crée des feuilles d’archives jour par jour à mon travail pour classer les documents de la journée
A la place de le faire manuellement


en piece jointe voila le resultat une fois imprimer et découper
et un exemple de se qu'il faut que cela donne sous excel pour janvier 2019 ( réaliser manuellement page par page ) voila pourquoi je veux l'automatiser je ne veux pas faire les 11 autre mois manuellement jour par jour

merci d'avance

[Tonyvital]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public sub Bouton Valider()
 
Dim LaDate as date
Dim x as interger
Dim feuil as object
 
 Set LaDate=now()
For X=1 To 365 step 1
 
Feuil = worksheets(x).add
Feuille.Name= LaDate
LaDate=LaDate+ 1
 
Next X
 
End sub

[unparia]

Bonjour Tonyvital

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim LaDate as date
.....
.....
 Set LaDate=now()
For X=1 To 365 step 1
 
.....
Feuille.Name= LaDate
LaDate=LaDate+ 1

Veux-tu bien corriger ces énormes erreurs/incohérences ?

[jeremmm63]

Bonjour et merci de ta réponse, je suis débutant sur Excel et j'ai imaginé qu'il fallait rentrer ton code dans le visual basic, cela n'a pas marché
voila ce que j'ai fait en pièce jointe
je me suis surement trompé d'endroit
merci d'avance pour votre aide

[Pierre Fauconnier]

Salut

Voici une petite macro qui fait cela. Ici, la date est placée en A1. A toi de voir dans quelle cellule tu dois la mettre par rapport à ta mise en page. Le code se place dans un module standard du classeur. J'ai considéré que tu travailles avec la feuille 1 de ton classeur.

Teste bien ta mise en page avant de lancer la macro et vas-y pas-à-pas sur les premières feuilles, car lorsque la macro est lancée, elle envoie 365 feuilles à l'imprimante. Attention que c'est brut de décoffrage. Il n'y a pas de test sur la saisie (tu dois saisir une année correcte, par exemple 2019) et si tu annules la saisie de l'année, ça plante. Je n'ai pas passé mon temps à sécuriser ce truc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub PrintSheetsForYear()
  Dim TempDate As Date
  Dim YearValue As String
 
  YearValue = InputBox("Entrez l'année souhaitée")
 
  For TempDate = DateSerial(YearValue, 1, 1) To DateSerial(YearValue, 12, 31)
    If Weekday(TempDate, vbMonday) < 6 Then
      Range("a1").Value = Format(TempDate, "d mmmm yyyy")
      Feuil1.PrintOut
    End If
  Next
End Sub

[unparia]

et j'ai imaginer qu'il fallait rentrer ton code dans le visual basic, cela na pas marcher

Mon message ne s'adressait pas à toi, mais à Tonyvital, qui avait proposé un code à la fois bourré d'incohérences et n'étant même pas supposé faire ce que tu demandais.
Et bien évidemment, que "cela n'a pas marché" ... Et pour cause (à commencer par une erreur fondamentale que Tonyvital ne pouvait plus ignorer s'il avait simplement testé son code ... -->> sortie assurée en débogage).

[jeremmm63]

[...]

merci beaucoup de ton aide cela marche extrêmement bien
merci beaucoup
Je vous souhaite de bonnes fêtes de fin d'année