Discussion :

[Jean-Pierre49]

Bonjour à tout le forum

Je tente de renseigner un document Word via un formulaire dans Excel.

Mais dans ce document Word j’ai une entête de page (3 colonnes) que je voudrais modifier en même temps
que le reste.
Surtout la 3eme Colonne

Code :

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

1
2
3
    ActiveDocument.Sections(1).Header(wdHeaderFooterPrimary).Range.Select
    Selection.Tables(1).Cell(1, 3).Select
    Selection.TypeText "Révision A" & Chr$(10) & "10466/21/100"

Fonctionne bien sous Word Mais plante sur

Code :

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

    Selection.Tables(1).Cell(1, 3).Select

Quand il est dans un module Excel
(Propriété ou méthode non gérée par cet Objet)

J'ai bien trouvé
Comment modifier l'entête et/ou le pied de page d'un document Word ?
Dans la FAQ mais cela ne semble pas coller pour modifier une colonne

Une piste?
Par avance merci

[decondelite]

Quand tu travailles depuis Excel, tu dois renseigner ton application Word au début de ta ligne. Ainsi, si je considère que appWord est l'objet de contrôle de Word depuis Excel et que tu as déjà ouvert Word depuis Excel tu dois mettre:

Code :

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

appWord.Selection.Tables(1).Cell(1, 3).Select

J'espère que c'était ça...

PS: et je ne parle même pas de ce que beaucoup pensent de Select

[Jean-Pierre49]

Non! c'est pas ça : On est dans le document

Code :

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

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select

Je pense la mème chose que beaucoup de select

tout le problème ici, c'est de trouver comment s'en séparer

[decondelite]

Mais non justement! Tu n'es pas dans le document tu es dans Excel!

Là ce que tu donne dans Excel ça doit être:

Code :

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

appword.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select

Et c'était du select à la fin de cette ligne dont je parlais, pas de l'autre (j'avais même pas vu le selection au début de la ligne).

Avec 0 sélection, ça donne ça:

Code :

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

1
2
Worddoc.Sections(1).Header(wdHeaderFooterPrimary).Range. _
Tables(1).Cell(1, 3).TypeText "Révision A" & Chr$(10) & "10466/21/100"

Je sais pas si ça marche, mais en tout cas la logique voudrait que ce soit comme ça.

[Jean-Pierre49]

Bonjour Godzestla

J'ai déja essayé comme cela mais j'ai toujours eu le même message

Il me semble que cela ne vient pas de selection

Code :

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

WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 3).Select

Ne fonctionne pas alors que l'on peu l'écrire avec le menu après chaque point

Oui decondelite

Seulement la logique ne semble pas être respectée

[decondelite]

Un petit fichier Word pour le test, tu aurais ça, stp?

[Jean-Pierre49]

Ci joint Fichier

Merci

[Godzestla]

Bonjour,

pour compléter decondelite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim appword                      As Word.Application
Dim Worddoc                      As Word.Document
 
 
 
        'ouvre session word
         Set appword = New Word.Application
        'ouvre du document Word
         Set worddoc = Appword.Documents.Open(ledocumentaouvrir)
         DoEvents 'Yields execution so that the operating system can process other events.
    Worddoc.Sections(1).Header(wdHeaderFooterPrimary).Range.Select
    Worddoc.Selection.Tables(1).Cell(1, 3).Select
    Worddoc.Selection.TypeText "Révision A" & Chr$(10) & "10466/21/100"