besoin d'une macro pour une tâche ennuyeuse

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2012

• #2

Re : besoin d'une macro pour une tâche ennuyeuse

Bonjour.

=aujourd'hui() en A2 format date
=aujourdhui() en B2 format jjjj
(sous réserve d'avoir compris...)

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 19 Mars 2012

• #3

Re : besoin d'une macro pour une tâche ennuyeuse

Re et merci Victor

Déjà merci pour ta réponse mais j’ai su faire cela

Je vois que je n’ai pas été assez précis
Je dois en fait imprimer cette même feuille mais avec la date de chaque date et jour du mois

Exemple :
Une feuille au 01-03-2012
Une feuille au 02-03-2012
Une feuille au 03-03-2012
Etc…
Et ce tout les mois de l’année

J’espère avoir été plus précis

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2012

• #4

Re : besoin d'une macro pour une tâche ennuyeuse

Re,

Quelque chose comme ça ?

VB:

 Sub imprime()
Dim i As Date
Dim j As Date
Dim x As Long

i = InputBox("Date de début")
j = InputBox("Date de fin")

For x = i To j
Range("A2").Value = CDate(x)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next x
End Sub

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 20 Mars 2012

• #5

Re : besoin d'une macro pour une tâche ennuyeuse [ résolu ]

Bonjour le forum et Victor 21

Merci beaucoup Victor viens de tester sur une semaine c'est nickel

Encore merci pour ton aide

Cordialement

Fenec

 

Vote positif 0 Vote négatif