Discussion :

[Papylou]

Je joins un fichier Word "Test" et un fichier image "Image". Dans le fichier Word le texte contenu sert uniquement à créer plusieurs pages pour tester la macro.
La macro nommée "Test3" doit mettre en place un pied de page (impair et pair) avec différents champs (texte, numérotation et image).
Cette macro réalise bien cette mise en page avec 2 défauts que je n'arrive pas à solutionner.
La numérotation (type 1/5) s'écrit sur 2 lignes
Les largeurs des cellules se modifient avec l'insertion des textes, numérotation et image. Je souhaiterai avoir des largeurs de cellules fixes.
Le principe est d'avoir un fichier comprenant un ou plusieurs documents Word correspondant à des Check Listes en fonction de l'installation réalisée.
Cette macro sera intégrée dans une macro Excel qui servira à créer le document Word (existe déjà), à renseigner les différents signets (existe déjà) et à mettre en place ce pied de page.
Merci à celui qui pourra me renseigner

JL DORISON

[Souriane]

Bonjour,

Retire cette partie de code à la fin de ta macro :

Code :

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

1
2
3
4
5
6
7
''    With Selection.Tables(1)
''        .Columns(1).AutoFit
''        .Columns(2).AutoFit
''        .Columns(3).AutoFit
''        .Columns(4).AutoFit
''        .Columns(5).AutoFit
''    End With

Cette partie de code indique à chaque cellule de s'autoajuster, ce qui n'est pas ce que tu souhaites...

Bye!

Souriane

[Papylou]

Merci Souriane pour votre remarque. J'ai fait un test et le résultat n'est malheureusement pas convainquant.
En effet le résultat donne pour les pages impair une cellule de l'image qui dépasse la largeur du document et pour les pages pair une image tronquée dans la première cellule.
Le but recherché est d'avoir des cellules de largeur fixe même s'il faut tronquer le texte inclus.
L'idéal serait de pouvoir compter les caractères possibles dans une cellule de largeur fixe et d'y inclure un texte qui respecte ce nombre.
Je reste à votre écoute pour toute suggestion qu'y aille dans ce sens.

Cordialement

JL DORISON

[Papylou]

Bonjour
Encore merci à Souriane. Après de multiples essais j'ai réussi à corriger le problème de numérotation des pages (1/5) avec le code suivant:

Set Cible = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary). _
Range.Tables(1).Cell(1, 4).Range
With Cible
V4 = Selection.Information(wdNumberOfPagesInDocument)
.Collapse Direction:=wdCollapseStart
.Fields.Add Range:=Cible, Type:=wdFieldEmpty, Text:= _
"PAGE ", PreserveFormatting:=True
.Collapse Direction:=wdCollapseEnd
.MoveEnd unit:=wdCharacter, Count:=1
.InsertAfter "/" & V4
.FormattedText.FitTextWidth = CentimetersToPoints(1)
End With

Cordialement