Trucs et astuces Express > Incrementer Etiquettes En Vba

Version complète : Incrementer Etiquettes En Vba

Trucs et astuces Express > Discussions Informatique > Microsoft Office 2003 / 2007 > Publisher

Metalcoder

23-01-2007 - 9:36

Bonjour,

j'ai un outil a faire pour imprimer sur des etiquettes style 'AVERY'. J'aimerais bien le faire sous publisher car il gère bien les etiquettes et les positions dessus.

J'ai des numeros a marquer et bien sur ceux-ci s'incrémente de 1 a chaque nouvelle etiquette.

je n'arrive pas a trouver la facon pour que l'etiquette suivante a l'impression soit incrémenter de 1.

voici un bout de mon code VBA.

merci

j'ai essayer avec un tableau, avec un objet wordart mais rien n'y fait...

ActiveDocument.Pages(1).Shapes(1).Table.Columns(1).Cells(1).TextRange.InsertAfte
Valeurquibouge
ou
ActiveDocument.Pages(1).Shapes(1).TextEffect.Text = "F0301 " & Valeurquibouge

j'ai essayer d'autre code mais quand j'imprime j'ai le meme chiffre sur toutes les etiquettes.

Groumphy

25-01-2007 - 2:59

Hello,

Le problème est que si tu manipules un object tu dois le déclarer en variable afin de l'incrémenter de 1 à chaque page/étiquette/objet etc...

Donc l'utilisation d'une boucle est nécessaire :

CODE

Dim $i
While $i < 100
  $i = $i + 1
  MsgBox(0+64,'Info', 'valeur de $i = ' & $i,10)
  if $i = 100 Then
     MsgBox(0+64,'Fin','Fin de boucle', 10)
  EndIf
WEnd
Exit

A+

G. (ici le code ce n'est pas du VBA mais le principe est le même !)

Ceci une version "bas débit" de notre forum. Pour voir la version complète avec plus d'information, la mise en page et les images, veuillez cliquez ici.