Aide publipostage

pierrejean

XLDnaute Barbatruc

• 9 Novembre 2006

• #2

Re : Aide publipostage

bonjour Carine

difficile de te repondre sans un petit exemple

quelques lignes et quelques colonnes dans un fichier excel et un exemple word (les deux sans données confidentielles) et la reponse sera rapide

 

Vote positif 0 Vote négatif

C

Carine13

Guest

• 9 Novembre 2006

• #3

Re : Aide publipostage

Bonjour PierreJean

Merci pour votre aide

Voici donc le fichier excel avec les données
Voici le résultat du publipostage sur Word : en fait je souhaite que sur Word le même numéro de série soir répeter sur 3 étiquettes et non sur une sans si possible toucher à mon fichier de base sur Excel (ou alors automatiser pour fichier Excel afin d'obtenir le résultat souhaité)

J'attends votre solution

Carine

 

Pièces jointes

• FM.zip

  4.9 KB · Affichages: 31

Vote positif 0 Vote négatif

R

RICO1972

XLDnaute Occasionnel

• 9 Novembre 2006

• #4

Re : Aide publipostage

Salut Carine13 et PierreJean

j'ai pris le pb à l'envers : je propose de tri(??)pliquer ta base excel avec une macro qui peut être largement améliorée :
Sub Macro1()
'
' Macro1 Macro
Sheets("feuil1").Select ' feuille ou se situe la base
Range("A2:B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuil2").Select ' feuille ou tu veux dtripliquer tes données
Range("A2").Select
ActiveSheet.Paste
Range("A3").Select

Selection.End(xlDown).Select
Selection.Offset(1, 0).Activate
ActiveSheet.Paste

Selection.End(xlDown).Select
Selection.Offset(1, 0).Activate
ActiveSheet.Paste

Range("A2:B2").Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Ensuite tu fais ton publipostage sur la feuille 2.
Espérant que cela t'aidera ...
@+
RICO

 

Vote positif 0 Vote négatif

C

Carine13

Guest

• 9 Novembre 2006

• #5

Re : Aide publipostage

Bonjour Rico,

merci pour votre macro
Par contre j'aurai besoin que les 3 numéros de série se suivent
Dans votre cas ils se répétent à la fin de la série
Est ce possible?

Merci

Carine

 

Vote positif 0 Vote négatif

R

RICO1972

XLDnaute Occasionnel

• 9 Novembre 2006

• #6

Re : Aide publipostage

re , je comprends pas il se répète à la fin de la série ??
normalement la macro fait un tri sur le critère FM ... tu devrais avoir les numéros de série (3fois) qui se suivent .
Si tu préfères trier par le num de série tu changes ce code ds la macro :

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sinon explique moi plus dans le détail.
RICO

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Novembre 2006

• #7

Re : Aide publipostage

bonjour carine
salut Rico

vois cette macro
je crois quec'est ce qu'il te faut

 

Pièces jointes

• FM1.zip

  14.9 KB · Affichages: 24

Vote positif 0 Vote négatif

C

Carine13

Guest

• 10 Novembre 2006

• #8

Re : Aide publipostage

Merci Pierrejean et Rico de votre aide

Mon autre petit souci, je souhaiterais que lors de mon publipostage, les 3 exemplaires du premier numéro de série se retrouvent l'un en dessous de l'autre et non à la suite et cela dans des étiquettes différentes.
Par défaut, ils se retrouvent l'un à coté de l'autre

Merci de me dire si cela est possible

Carine

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Novembre 2006

• #9

Re : Aide publipostage

bonjour Carine

vois si cela te convient
les etiquettes sont toutes par 3 dans le sens vertical

 

Pièces jointes

• FM2.zip

  17.1 KB · Affichages: 22

Vote positif 0 Vote négatif

C

Carine13

Guest

• 10 Novembre 2006

• #10

Re : Aide publipostage

Merci beaucoup

C'est parfait
Dites moi juste comment faire pour modifier ma macro car mon format d'étiquette dans Word ne contient que 3 colonnes et non 5 comme dans votre exemple

Merci encore

Carine

 

Vote positif 0 Vote négatif

R

RICO1972

XLDnaute Occasionnel

• 10 Novembre 2006

• #11

Re : Aide publipostage

Re Carine13
voilà la code :

Sub prepa()
ligne = 2
For n = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row Step 5
For m = 1 To 3
Sheets("Feuil2").Range("A" & ligne) = Sheets("Feuil1").Range("A" & n)
Sheets("Feuil2").Range("A" & ligne + 1) = Sheets("Feuil1").Range("A" & n + 1)
Sheets("Feuil2").Range("A" & ligne + 2) = Sheets("Feuil1").Range("A" & n + 2)


Sheets("Feuil2").Range("B" & ligne) = Sheets("Feuil1").Range("B" & n)
Sheets("Feuil2").Range("B" & ligne + 1) = Sheets("Feuil1").Range("B" & n + 1)
Sheets("Feuil2").Range("B" & ligne + 2) = Sheets("Feuil1").Range("B" & n + 2)

ligne = ligne + 3
Next m
Next n
End Sub


Pierre jean a fait tout le boulot ... c'est à lui que doivent revenir les remerciements ...
@+RICO

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Novembre 2006

• #12

Re : Aide publipostage

re

je crois que c'est presque cela

moi j'ai testé

Code:

Sub prepa()
ligne = 2
For n = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row Step 3
For m = 1 To 3
Sheets("Feuil2").Range("A" & ligne) = Sheets("Feuil1").Range("A" & n)
Sheets("Feuil2").Range("A" & ligne + 1) = Sheets("Feuil1").Range("A" & n + 1)
Sheets("Feuil2").Range("A" & ligne + 2) = Sheets("Feuil1").Range("A" & n + 2)
Sheets("Feuil2").Range("B" & ligne) = Sheets("Feuil1").Range("B" & n)
Sheets("Feuil2").Range("B" & ligne + 1) = Sheets("Feuil1").Range("B" & n + 1)
Sheets("Feuil2").Range("B" & ligne + 2) = Sheets("Feuil1").Range("B" & n + 2)
ligne = ligne + 3
Next m
Next n
End Sub

difference : step 3 et non plus 5

 

Vote positif 0 Vote négatif