Discussion :

[lpz34]

Bonjour à tous, et merci pour débloquer ma situation.

Je réalise un publipostage un peu complexe.
L'exemple ci-dessous n'est qu'une partie du résultat du publipostage. Normalement mon document comporte 12 résultats de spécialité.

Mon problème résiste à insérer un point à la fin de chaque sous total. Pour l'instant je n'arrive qu'à mettre un point sur le dernier concours "SYSTÈMES D'INFORMATION ET DE COMMUNICATIONS".
Exemple du document :

AÉROMOBILITÉ.

Arlaboss Vincent.
Bertrant Nicolas.
Marilou Mélanie, 0392071588, APPUIS.
Miaret Aude, 0245052014, APPUIS.
Total pour le concours : 4

SYSTÈMES D'INFORMATION ET DE COMMUNICATIONS.

Barusse Julien.
Campane Benoît.
Ledro Olivier.
Mart François.
Pinc Bertrand.
Verne Laurent.
Total pour le concours : 6.

Je n'arrive pas à copier mon code sous la forme de code, alors je joint le document word.
11_BO_Admissibilité_p2_Fusion.doc

Merci par avance de votre aide.

[carden752]

Bonjour,

Il suffit de rajouter le point après le calcul du total pour le concours. Il faut le faire pour les 2 endroits où cela est indiqué. Il est aussi possible d'utiliser un commutateur de mise en forme sur les champs formule intégrant le caractère. ("\# ##.##")

[lpz34]

Bonjour,

Il suffit de rajouter le point après le calcul du total pour le concours. Il faut le faire pour les 2 endroits où cela est indiqué. Il est aussi possible d'utiliser un commutateur de mise en forme sur les champs formule intégrant le caractère. ("\# ##.##")

Bonjour Christophe

Je n'arrive pas à utiliser ton code.
Trop dur pour moi pour trouver le bon emplacement.

Cordialement Pierre

[lpz34]

Bonjour,

Il suffit de rajouter le point après le calcul du total pour le concours. Il faut le faire pour les 2 endroits où cela est indiqué. Il est aussi possible d'utiliser un commutateur de mise en forme sur les champs formule intégrant le caractère. ("\# ##.##")

Bonjour.

Je voudrais signaler que le code fonctionne bien mais mon problème est le suivant : pour le dernier concours deux résultats s'affichent.
TECHNIQUES D'OPÉRATIONS D'INFRASTRUCTURE.
Clémenté, Eddy, S000000010, DRH10.
Jardin, Arnaud, S000000011, DRH10.
Rogers, Loïc, S000000012, DRH10.
Sarnel, Christian, S000000013, DRH10.
Total pour le concours : 4Total pour le concours : 5.

Comment régler ce petit détail ?
Merci pour t'être penché sur mon cas. Cordialement Pierre.

[lpz34]

Bonjour,

Il suffit de rajouter le point après le calcul du total pour le concours. Il faut le faire pour les 2 endroits où cela est indiqué. Il est aussi possible d'utiliser un commutateur de mise en forme sur les champs formule intégrant le caractère. ("\# ##.##")

Bonjour

Le problème du double affichage sur le dernier est résolu : Total pour le concours : 4Total pour le concours : 5.

Le problème se situait dans la prise en compte de la zone d'impression (de sélection) sur ma feuille "Résultats" du fichier "10_Base_Résulats.xls" servant de base à mon publipostage et à mon formulaire Word.
La sélection débait en "A1" et devait se terminer sur la dernière ligne renseignée.
La ligne contenant la valeur "ZZZZZ" dans le champ "CONCOURS_OPTION_CLAIR" n'était pas pris en compte du fait que la cellule de la colone A était vide.
J'ai saisi dans ma base initiale avant les exportations de mes données les cellules en Z01 et Z02.

Excel

Code :

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

1
2
3
4
5
Dim IL As Long               ' Iindice de la dernière ligne utilisée
    '* Ensuite:
    Windows("10_Base_Résultats.xls").Activate
    IL = Sheets("Résultats").Range("A" & Application.Rows.Count).End(xlUp).Row 'Recherche de la dernière ligne
    Sheets("Résultats").PageSetup.PrintArea = "A1:M" & IL     ' Définition de la zone d'impression avec variable IL

Word

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub LancePuplipostageBO_p2()  'Enregistrée le 10/03/2012
   '*** Lancer le publipostage des concours.
    ActiveDocument.MailMerge.MainDocumentType = wdCatalog
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "D:\10_Base_Résultats.xls" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:\10_Base_Résultats.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLED" _
        , SQLStatement:="SELECT * FROM `Résultats$Print_Area`", SQLStatement1:="" _
        , SubType:=wdMergeSubTypeAccess
    ActiveDocument.MailMerge.Execute Pause:=True
 
    '*** Aller au signet "Répertoire" du document "21_BO_Admissibilité_p1.doc".
    Windows("21_BO_Admissibilité_p1").Activate
    'Selection.GoTo What:=wdGoToBookmark, Name:="Répertoire"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
 
    '*** Coller ler les données du catalogue1 (données du publipostage).
    'Selection.PasteAndFormat (wdPasteDefault)

Mon problème est résolu.
Merci a toi et à tous les bénévoles qui ont participé à ce code.

J'ai lancé une discussion sur Excel 2003 VBA, titre: Comparer deux bases à partir de la ligne 5 si deux conditions exactes.

Cordialement Pierre (LPZ34).
Peut être à la prochaine.