Discussion :

[ManuelSimoes]

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 :

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
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

[CristofMartins]

Boas,Salut,

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

Code :

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

1
2
 
Word.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add

[ManuelSimoes]

Merci CristofMartins,

ça va peut-être calmer mon patron... mais il tient vraiment à son "Page 1 sur 1"...

[CristofMartins]

D'accord je vais voir ce que je peux faire.

[ManuelSimoes]

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

[CristofMartins]

Essaye ça :

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
 
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

[ManuelSimoes]

lol je parlais de ce code

Boas,Salut,

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

Code :

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

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. @+

[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.