[VBA-E]Coller dans word

Version imprimable

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:

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

18/01/2006, 16h19
ouskel'n'or

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

A+
18/01/2006, 16h28
tarmin
La partie du code suivant que tu m'as passé ne fonctionne pas...
Code:

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"
18/01/2006, 17h00
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
19/01/2006, 07h41
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.
19/01/2006, 07h57
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:

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
19/01/2006, 08h08
SilkyRoad
bonjour

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

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

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:

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

19/01/2006, 09h09
AlainTech

Euh, dans le code que tu donnes, il manque un With ou il y a un End With de trop...
19/01/2006, 10h01
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...
19/01/2006, 11h54
ouskel'n'or

Je réponds à ça

Citation:

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... :wink:

A+
19/01/2006, 13h07
tarmin

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

Merci encore

A+