Pied de page WORD en VBA EXCEL

Version imprimable

Bonjour,

J'ai créé un code VBA EXCEL qui construit un document word à partir d'informations prisent dans mon document EXCEL.

Pour l'améliorer, j'aimerais pouvoir y insérer un pied de page de type "Page 1 sur 1"

mais j'ai une erreur d'exécution 5825 : L'objet a été supprimé...

Voici le code
----------------------------------------------------------------

Code:

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
Sub Passage_Excel_Word()
 Dim appWord As New Word.Application
 Dim docWord As New Word.Document
 Dim tableLocation As Object
' Il faut créer un nouveau document Word dans l'application Word
 With appWord
   .Visible = True
  Set docWord = .Documents.Add
   .Activate
 End With
 
  appWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
 
 Dim docModele As Template
 Set tableLocation = appWord.Selection.Range
    Templates.LoadBuildingBlocks ' chargement du template building blocks
    ' recherche du bon template
    For Each docModele In Templates
        If docModele.Name = "Building Blocks.dotx" Then
            ' si trouvé insertion du bloc table des matières
            Templates(docModele.FullName).BuildingBlockEntries("Numéros en gras 1").Insert Where:=tableLocation
            Exit For
        End If
    Next
 
 
'Enregistrer le document Word
 With docWord
  .SaveAs ThisWorkbook.Path & "\ca_2003.doc", Allowsubstitutions:=True
'Dans Word Aperçu avant impression du résultat
    .PrintPreview
 End With
 'Réinitialiser l'objet
  Set appWord = Nothing
  Set docWord = Nothing
 
 End Sub

--------------------------------------------------------------------------

Merci d'avance

03/10/2012, 10h23
CristofMartins
Boas,Salut,

Voici un bout de code qui peut t'aider.
il t'affiche juste le n° de la page
Code:

1 2 Word.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add
03/10/2012, 10h57
ManuelSimoes

Merci CristofMartins,

ça va peut-être calmer mon patron... mais il tient vraiment à son "Page 1 sur 1"...
03/10/2012, 11h01
CristofMartins

D'accord je vais voir ce que je peux faire.
03/10/2012, 11h13
ManuelSimoes

Merci d'avance CristofMartins, car là je sèche lamentablement ...

Essaye ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub pied_page()
Dim inti As Integer
Dim myT As Table
Dim comp As Integer
 
comp = ActiveDocument.Sections.Count
 
For inti = 1 To comp
Debug.Print inti & " / " & ActiveDocument.Sections.Count
    ActiveDocument.Sections(inti).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
Next inti
 
For inti = 1 To comp
    ActiveDocument.Sections(inti).Footers(wdHeaderFooterPrimary).Range.Select
    Set myT = Selection.Range.Tables.Add(Range:=Selection.Range, numRows:=1, Numcolumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitWindow)
    With myT
        .Cell(1, 1).Range.Text = "Page " & inti & "sur " & comp
    End With
 
Next inti
End Sub

Change juste ce que tu as a changer et regarde un peu le résultat

03/10/2012, 16h37
ManuelSimoes

j'ai regardé ton code. il à l'air bon, mais chez moi

Code:

comp = ActiveDocument.Sections.Count

retourne 1 tel-que soit le nombre de page du document.

j'ai l'impression qu'il ne considère pas les pages comme des sections... je vais regarder cela de plus prêt demain, je te tien au courant et merci encore

Salut,
Désolé du terme mais je suis trop con.
essaye ça :
Code:

1 2 3 4 Application.Templates("C:...\AppData\Roaming\Microsoft\Document Building Blocks\1036\14\Built-In Building Blocks.dotx" _ ).BuildingBlockEntries("Numéros en gras 1").Insert Where:=Selection.Range _ , RichText:=True
Les ... c'est le chemin jusqu'au nom d'utilisateur. ex : c:\Users\ManuelSimoes\AppData..

04/10/2012, 08h38
CristofMartins

Salut,
En faite pas trop.
Je croyais que ça allais marcher mais NON!
J'ai trouvé cette solution en enregistrant une macro et en faisant l’opération manuellement.
Tu est obligé de le faire en VBA ou s'il y a une solution faite manuellement t'es bien prenant ?
04/10/2012, 09h19
ManuelSimoes

Salut,

Ba je vais essayer de faire passer la méthode que tu m'as donné... sinon je demanderais à l'utilisateur de l'ajouter à la main.
Avec tout ce que fait ce code il pourrais bon le faire lui-même lol.

merci de ton aide
04/10/2012, 09h30
CristofMartins

La méthode que je t'ai donnée ne marche pas.
D'ou je l'ai sorti?
Je sais pas si tu connais mais il y a la méthode d'enregistrer une macro sur word.
Quand tu enregistre une macro, tout ce que tu fais manuelment sur word, ça te crée un macro où tu peux apres d'avoir finit, aller voir ce que ça donne en VBA.
C'est ce que j'ai fais car microsoft propose déjà les pied-de-page " 1 page sur 2"
Mais le problème c'est que l'enregistrement de macro me donne le code VBA et 2,3 fichiers supplementaires (des fichiers system il me semble).
Le problème c'est que je n'ai aucun droit avec ces fichiers. Donc pas de copie, pas modification.
Donc j'ai la méthode qu'on doit utilisé mais pas les fichiers system qui vont avec.
La solution que je te propose moi, c'est de le faire manuellement.

Sur Insertion , Numéro de page, bas de page
toute à la fin tu trouve le format que tu désir.
Mais bon ça s'incrémente tout seul. tu peux ajouter le nombre de pages que tu veux, tu n'est pas obligé de changer. ça se fait tout seul.

Mais voila. tu ne le fais pas en VBA.

Je sais pas si déjà ça, ça peut t'aider. mais essaye.
04/10/2012, 09h39
ManuelSimoes
lol je parlais de ce code
Citation:
Envoyé par CristofMartins

Boas,Salut,

Voici un bout de code qui peut t'aider.
il t'affiche juste le n° de la page

Code:

1 2 Word.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add
J'utilise déjà la méthode d'enregistrer des macros word pour pouvoir les réutiliser en vba excel mais je ne sais pas si tu as le même problème que moi, quand j'exécute la macro qui permet d'insérer le bas de page, cette dernière ne marche pas...

ba t'inquiète, je vais laisser à l'utilisateur le droit de modifier un peu le document créer... ça va le faire, t'inquiète. @+
04/10/2012, 09h51
CristofMartins

Tranquil. Laisse ton post ouvert peut-être que quelqu'un aurait une solution.
Moi de mon coté ça m'interresse un peu de voir pourquoi ces fichiers system. donc je vais continuer a chercher un peu.