Discussion :

[tarmin]

Bonjour,

j'ai créé un document dans excel et a partir de ce document je copie et colle différent tableau dans word à l'aide d'un bouton. Voici une partir du code me permettant de coller dans word :

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
 
With appword.Selection
    'Copie le tableau Excel dans le presse-papiers
    Range("A1", Range("A4").End(xlDown).Offset(0, 14)).Copy
    'Colle le tableau dans Word avec liaison
    .EndKey Unit:=wdLine
    .TypeParagraph
    .PasteSpecial Link:=False, DataType:=wdPasteHTML, Placement:=wdInLine, DisplayAsIcon:=False
    'Copie du petit tableau
        Worksheets("Risques").Range("A1:M7").Copy
        'Colle le petit tableau
        .EndKey Unit:=wdLine
        .TypeParagraph
        .PasteSpecial Link:=False, DataType:=wdPasteHTML, Placement:=xlLine, DisplayAsIcon:=False
           End With
            With docWord
                'Enregistre le document Word dans le même dossier que le classeur Excel
                .SaveAs ThisWorkbook.Path & "\sécu.doc"
            End With

Cela fonctionne à merveille sauf que je souhaiterais apporter des modification pour que le "petit tableau" vienne se coller dans word en pied de page...

Merci à ceux qui peuvent m'apporter de l'aide

[ouskel'n'or]

Marche pas le code que je t'ai passé ?

A+

[tarmin]

La partie du code suivant que tu m'as passé ne fonctionne pas...

Code :

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

1
2
 
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Je ne sais pas de quoi ça vient... Le message d'erreur suivant apparaît :

"propriété ou méthode non gérée par cet objet"

[ouskel'n'or]

Je pense que c'est wdSeekCurrentPageFooter "qu'il" aime pas. Regarde dans l'aide ou enregistre la macro pour passer dans le pied de page.

Tu dis

A+

Edit

Je viens de voir qu'une autre commande réclamait de remplacer le paramètre word par un chiffre 0, 1, 2, 3
Fais l'essai, les conditions étaient semblables à celle de ton projet (Ouverture et traitement de word à partir de VB6 au lieu d'Excel)
http://www.developpez.net/forums/vie...529950#2529950

[tarmin]

Je l'ai enregistrer depuis Word mais le même message d'erreur apparaît toujours.

Et concernant le fait de remplacer le paramètre par un chiffre, d'après ce que j'ai compris... c'est juste pour la mise en page.... donc inutile pour mon problème.

[jmfmarques]

Peux pas vérifier avec ma vieille version de Word (encore avec word basic)

Avec ma version : impossible d'écrire dans entête ou pied sans afficher d'abord.

Voilà ce que celà donne en Word Basic (l'équivalent existe surement avec VBA) en utilisant l'enregistreur de macro :

Code :

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

1
2
3
4
5
6
7
8
9
Sub MAIN
  AffichageEnTête
  DéfilementV 71
  AtteindreEnTêtePiedPage
  Insertion "ffffffffffffffffffffffffffhhhhhhhhhhhhhhhhhhhh"
  FermerAffichageEnTêtePiedPg
End Sub
 
 :oops:

Edit Ps :

Faut enlever DéfilementV 71

[SilkyRoad]

bonjour

pour coller une plage de cellules en pied de page , tu peux tester ce type de synthaxe

Code :

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

1
2
3
4
With appword.Selection.Sections(1).Footers(wdHeaderFooterPrimary)
.Range.Paste
.Range.Paragraphs.Alignment = wdAlignParagraphCenter
End With

cordialement
michel

[tarmin]

Voilà, voilà,

après moulte essais je suis arrivé à quelque chose de tout c... je ne sais pas trop pourquoi ça ne marchait pas avant mais là c'est tout bon. Petit aperçu de ce que ça donne :

Code :

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

1
2
3
4
5
6
 
  With docWord
    .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
  End With
  .PasteSpecial Link:=False, DataType:=wdPasteHTML, Placement:=xlinline, DisplayAsIcon:=False
End With

Rest plus qu'à trouver un moyen de déterminer la hauteur du pied de page...

[AlainTech]

Euh, dans le code que tu donnes, il manque un With ou il y a un End With de trop...

[tarmin]

C'est vrai mon code est relativement long étant donné que je fais encore beaucoup de chose avant et je ne voulais pas tout copier sur le forum...

[ouskel'n'or]

Je réponds à ça

Et concernant le fait de remplacer le paramètre par un chiffre, d'après ce que j'ai compris... c'est juste pour la mise en page.... donc inutile pour mon problème.

Je te donnais cet exemple que parce qu'avec le paramètre founi par VBA, il avait aussi une erreur, avec une valeur, il n'en avait pas. Chaque paramètre correspondant à une valeur, dans ton cas, il te restait à essayer...

A+

[tarmin]

ah... Désolé je n'avait pas capté...

Merci encore

A+