etiquette x X + date du jour

[john.deuf]

Bonjour

je voudrais editer de etiquette via word et excel
j ai trouvé la macro de JCGL sur ce site. elle est tres bien mais je voudrais ajouter la date du jour
je joint le fichier
bonne soirée

 

[camarchepas]

Re : etiquette x X + date du jour

Bonsoir ,

Voici en mettant la date en colonne C

Sub prepa_publi()
Dim Compteur As Double, i%, x%

Compteur = 1
With Feuil2
.Cells.ClearContents
For i = 2 To Feuil1.Cells(65000, 1).End(xlUp).Row
x = Feuil1.Cells(i, 2).Value - 1
If x = -1 Then GoTo 1
Feuil1.Range("A" & i & ":C" & i).Copy Destination:=.Range("A" & Compteur & ":C" & Compteur + x)

1 Compteur = Compteur + x + 1
Next i
.Cells.Columns.AutoFit
End With
End Sub

 

[john.deuf]

Re : etiquette x X + date du jour

et bien si ca marche super, c est exactement ce que je voulais, trop top
merci beaucoup
bonne nuit