Discussion :

[EGC-ENERGIE]

Bonjour à tous,
Je suis nouveau sur ce forum, j'ai une question concernant la fabrication d'une macro.
j'ouvre un fichier HTML avec Word, je voudrais
- Passer en mode page
- Mettre les marges au minimum
- Insérer un pied de page avec du texte

j'ai donc lancé l'enregistrement de la macro, pas de soucis pour les deux premiers points, mais pour l'insertion du pied de page, j'ai un cadre au milieu de la page et un mode dessin !!

je ne sais pas ou chercher ?
Merci pour vos lumières

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
36
37
38
39
40
41
42
43
Sub EASY()
'
' EASY Macro
'
'
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    Else
        ActiveWindow.View.Type = wdPrintView
    End If
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(1.27)
        .BottomMargin = CentimetersToPoints(1.27)
        .LeftMargin = CentimetersToPoints(1.27)
        .RightMargin = CentimetersToPoints(1.27)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
    Application.Templates( _
        "C:\Users\Eric\AppData\Roaming\Microsoft\Document Building Blocks\1036\14\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("Alphabet").Insert Where:=Selection.Range, _
        RichText:=True
    Selection.TypeBackspace
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

[Invité]

Bonjour,

Essayez :

Code :

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

1
2
3
4
5
 
    Application.Templates( _
        "C:\Users\Eric\AppData\Roaming\Microsoft\Document Building Blocks\1036\14\Building Blocks.dotx" _
        ).BuildingBlockEntries("Alphabet").Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, _
        RichText:=True

Nb : Mettez votre code entre balises #

[EGC-ENERGIE]

Bonjour,
Merci pour votre réponse.


j'ai le code erreur :
Erreur d'exécution '5941' :
Le membre de la collection requis n'existe pas.

[Invité]

OK,

Cela me l'a fait également. Pour cela, j'avais dû activer l'icône QuickPart et sélectionner un modèle que j'ai ensuite effacé. A partir de ce moment, la macro a fonctionné correctement.

A la suite de votre message, j'ai repris le document qui m'avait servi à vous répondre. Dans l'éditeur VBA, Normal.dotm avait perdu son rattachement à C:\Users\Eric\AppData\Roaming\Microsoft\Document Building Blocks\1036\14\Building Blocks.dotx".

J'ai donc été voir ce qu'i y avait dans Building Blocks.dotx : 0 ko. J'ai donc ouvert ce modèle et je lui ajouté le modèle "Alphabet" pied de page. 26 ko après sauvegarde.
J'ai ouvert ensuite Normal.dotm pour essayer de lui associer par défaut le modèle C:\Users\Eric\AppData\Roaming\Microsoft\Document Building Blocks\1036\14\Building Blocks.dotx".

En réouvrant le document avec la macro, Normal.dotm ne possédait plus ce rattachement.

Je n'ai pas trouvé l'astuce pour activer directement C:\Users\Eric\AppData\Roaming\Microsoft\Document Building Blocks\1036\14\Building Blocks.dotx par VBA, l'enregistreur de macro ne donnant rien pour ce genre de manip.

Désolé.

[EGC-ENERGIE]

Bonsoir Eric
merci d'avoir essayer. Je vais faire une recherche sur le forum pour voir si quelqu'un a eu ce cas.

[Invité]

j'ai le code erreur :
Erreur d'exécution '5941' :
Le membre de la collection requis n'existe pas.

J'ai trouvé. Il faut charger les modèles de Quickparts avec cette commande :

Code :

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

1
2
 
Application.Templates.LoadBuildingBlocks

Dans mon modèle, "Alphabet" pied de page est chargé (cf mon précédent message)..

Code :

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

1
2
3
4
5
6
7
 
    With ActiveDocument
         Application.Templates.LoadBuildingBlocks
         With Application.Templates(1)
             .BuildingBlockEntries("Alphabet").Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, RichText:=True
         End With
    End With

[EGC-ENERGIE]

Bonjour Eric,
J'ai le même résultat que précédemment ci-joint l'image de la page Word.

.

[Invité]

Bonjour,

A tester :

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
 
 Sub Essai2()
 Dim I As Integer, J As Integer
 
    With ActiveDocument
         Application.Templates.LoadBuildingBlocks
         With Application.Templates(1)
              For J = 1 To .BuildingBlockEntries.Count
                  If .BuildingBlockEntries(J).Name = "Alphabet" Then
                        If .BuildingBlockTypes(wdTypeFooters).Name = "Pieds de page" Then
                           .BuildingBlockEntries("Alphabet").Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, RichText:=True
                        End If
                  End If
              Next J
         End With
    End With
 
 End Sub

[EGC-ENERGIE]

Même erreur !

Si ça ne marche pas avec "Alphabet", je peux aussi mettre un Pied de page simple avec le texte et le numéro de page !

[Invité]

J'ai mis la macro dans ce fichier. Que se passe-t-il en cliquant sur le bouton "Créer pied de page" ?

[EGC-ENERGIE]

même erreur

[Invité]

même erreur

Quand tu cliques sur le bouton Supprimer le pied de page, cela le supprime bien ?

[EGC-ENERGIE]

Oui tout à fait.

[Invité]

Oui tout à fait.

Cela veut dire que tu es bien dans le pied de page. En te positionnant dans le pied de page, peux-tu réduire la hauteur du pied de page avec la souris ? Si oui, regarde ton Normal.dotm.

[EGC-ENERGIE]

Cela veut dire que tu es bien dans le pied de page. En te positionnant dans le pied de page, peux-tu réduire la hauteur du pied de page avec la souris ? Si oui, regarde ton Normal.dotm.

Je suis effectivement dans le pied de page, mais je ne peux le réduire avec la souris !

[Invité]

Je suis effectivement dans le pied de page, mais je ne peux le réduire avec la souris !

Pièce jointe 318029

[EGC-ENERGIE]

Pièce jointe 318029

Oui si on peut dire, il faut diminuer le cadre rouge en même temps.
c 'est quoi le Normal.dotm

[Invité]

c 'est quoi le Normal.dotm

Ton fichier est basé sur un modèle Normal.dotm. Ce fichier est situé logiquement dans C:\Users\XXXX\AppData\Roaming\Microsoft\Templates. Il faut que tu regardes le pied de page de ce fichier.

[EGC-ENERGIE]

Ton fichier est basé sur un modèle Normal.dotm. Ce fichier est situé logiquement dans C:\Users\XXXX\AppData\Roaming\Microsoft\Templates. Il faut que tu regardes le pied de page de ce fichier.

Bon... là je suis paumé. j'ai modifié le normal.dotm en y mettant un pied de page "Alphabet"
Ce qui a pour conséquence :
- Qu'à chaque ouverture de nouveau doc, le pied de page y est inscrit automatiquement. (Donc pas de possibilité d'avoir un doc sans Pied de page)
- A l'ouverture d'un fichier Html, ça ne le fait pas
- Les macros enregistrées ont disparu de la liste.

Je ne sais pas ou va, cela me semble compliqué et mes connaissances en VBA étant pratiquement nul, je ne peux t'aider pour m'aider sur ce coup là
je dois m'absenter pour l'apm.
merci

[Invité]

:

Dans l'éditeur VBA, tu dois avoir la même chose que moi après lancement de la macro :
Pièce jointe 318152

Tout en haut, apparaît Normal (Normal.dotm) qui sert de modèle à tous les fichiers créés. A noter que la macro pour le pied de page est dans le module1 de mon fichier Doc2 et non pas dans Normal.dotm. As-tu également Normal dans ta fenêtre ?
Si la macro présente dans le fichier que je t'ai envoyé n'a pas généré la bonne hauteur, c'est que le réglage du pied de page dans Normal n'est pas bon. Je t'ai demandé seulement de modifier la hauteur en ouvrant le fichier Normal.Dotm.

Si tu veux faire table rase de ce que tu as modifié dans Normal.dotm, tu peux rebaptiser ce fichier en NormalOld.dotm. Word va en générer un autre.

Nb : J'ai réalisé des modifications dans mon Normal.dotm, je n'arrive pas à reproduire le problème. Essaye quand même de recréer ton Normal.dotm.