Discussion :

[nene galle]

bonjour ,
depuis deux jours je suis bloquée sur l'insertion de pied de page .
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
   Sub test()

    Dim WordApp As Object
    Dim WordDoc As Object
    Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add      '-- crée un nouveau document
    With WordDoc.Sections(1)
            .Headers(wdHeaderFooterPrimary).Range.Text = "mon titre"
            .Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
            .Footers(wdHeaderFooterPrimary).PageNumbers.Add
       End With
     End Sub

j'ai l'erreur 5941 le membre de la collection requis n'existe pas et après débogage c'est la ligne rouge qui est pointée.
si quelqu'un a une idée qu'il m'aide s'il vous plait ça fait deux jours je ne peux pas avancer

[Heureux-oli]

Salut,

Gros problème !
J'ai simplement fait un copier coller de ton code et je l'ai exécuté.
Je n'ai aucune erreur et j'ai bien un nouveau document avec un entête qui contient "Mon titre" centré sur la page.

[Sepia]

Salut nene galle,

Comme ça marche avec Heureux-Oli, essaie de faire pareil que lui: tu renommes ton Normal.dot ou Normal.dotx. Tu lances Word, sur un fichier vierge, tu récupères la macro (du site de DVP.com, pas la tienne) et tu retestes. Si c'est OK, c'est que c'est ton fichier (ou ton modèle) qui n'est pas tel que tu l'attends sinon c'est que c'est ton Word qui est corrompu.

@+

[nene galle]

Salut et merci pour vos réponses Heureux-oli et Sepia,
j'ai oublié de vous signaler que je l’exécute à partir d'Excel.
Heureux-oli j'ai fait le test que vous avez dit et ça marche très bien si j'exécute la macro à partir de Word.
Je ne sais pas si c'est le fait que la macro est exécutée à partir d'Excel ou pas, si oui peut être qu'il y'a des modifications à faire.
Bon j'attends votre aide je ne comprends pas ce qui ce passe. J'ai des notions en VBA mais c'est la première fois que j'utilise les macros.
Merci d'avance

[Sepia]

Salut nene galle,

Ok on avance , si le code de la macro est OK et que ça ne fonctionne pas, c'est l'appel ou l'environnement d'exécution qui ne fonctionne pas . As-tu pensé à déclarer les biblio dans ta macro Excel (regarde sur la partie Excel pour savoir lesquelles sont nécessaires).

@+

[Heureux-oli]

Salut,

Curieux, et je n'ai pas d'explication.
Si on utilise le LateBinding, une erreur est levée.
Avec la bibliothèque déclarée et en utilisant le EarlyBinding, on n'a plus le message.