Discussion :

[metaldan]

bonjour à partir d'une feuille de calcul excel, je veux faire un programme VBA pour transférer les infos dans un rapport ( proposition de vente, facture, bon de livraison..) fait avec WORD.

Je me suis fait un fichier template qui a le logo de la compagnie, le numéro de page, et de soumission dans l'en-tête. Je sais comment ajouter le nom du client, liste d'item.

Je cherche a savoir comment modifier seulement le numéro de soumission qui est dans l''en-tête .

j'ai ce code, mais il remplace tout l'en-tete

merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("r:\temp\PROPOSITION TEMPLATE.doc")
    With WordDoc.Sections(1)
       .Headers(wdHeaderFooterPrimary).Range.Text = "Le titre"
        .Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
        .Footers(wdHeaderFooterPrimary).PageNumbers.Add
   End With

[DeaD78]

Bonjour,

Utilise l'enregistreur de macros propre à Word

Tu le lances dans ton fichier puis tu vas dans l'entête que tu modifies comme tu veux et tu regardes ce que ça t'a donné niveau code

En gros,

Code :

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

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

pour trouver ton Header. Après tu peux faire ce que tu veux dedans, cela dépend de ton fichier, tu peux te déplacer etc :

Code :

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

Selection.MoveRight Unit:=wdCharacter, Count:=20

Par la suite tu peux effacer, taper du texte...

Bref, à toi de voir

EDIT : dans ton fichier, lorsque je lance l'enregistreur de macros pour modifier ta référence en #B0600, j'obtiens ça :

Code :

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

1
2
3
4
5
6
7
8
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.MoveRight Unit:=wdCharacter, Count:=13
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="0600"
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Il ne te reste plus qu'à adapter comme tu le souhaites !

[MiXinG]

Hello!
Juste un petit truc qui n'a rien à voir avec du vba, ton fichier à l'air d'être un fichier professionnel.
Je te signale donc une petite faute d'orthographe:
"n'inclus", tu as mis un "s" au lieu d'un "t" à la fin.
Voili voilou

[metaldan]

Merci....Dans word, quand j'enrégistre une macro, je ne peux pas aller dans l'entete, mais avec ton code, ca marche sper bien....

re-merci