Discussion :

[doudoustephane]

Bonjour.
Manuellement, j'arrive à effectuer un collage spécial de excel vers word et cela fonctionne.
Mais quand je veux l'automatiser et le faire avec le fonction

Code :

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

WordDoc.Sections(i).Range.PasteSpecial

, cela fait l'équivalent d'un simple coller et me perd donc ma mise en forme.
Comment faire pour effectuer un collage spéciale depuis Excel dans Word SVP ?
Merci d'avance
doudouallemand

[ouskel'n'or]

Tu ne précises pas si tu colles une cellule ou le contenu d'une cellule... cépapareil !
Si tu colles une cellule, le format suit.
Si tu colles son contenu, le format ne suit pas.
Précise ce que tu veux faire.
A+

[doudoustephane]

En fait, j'ai deux feuilles :
- la première me sert de base et contient du texte
- la deuxième est celle que je rempli automatiquement en vba avec la propriété "Formula" dans laquelle je met soit une formule, soit du texte directement. De plus, sur certains cellules, j'ai une couleur de fond. Et je dois également signaler la présence d'image importée.
Voilà, maintenant, ce que je veux et de copier les images, couleurs et texte des cellules (mais pas les formules).
En copie/coller spécial à la main, cela le fait bien, mais je n'y arrive pas en vba
Merci d'avance
doudouallemand

[ouskel'n'or]

Tu sélectionnes ta plage de cellules dans Excel, tu copies, tu te places en tête de ta section dans word et tu mets ton collage special

Code :

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

1
2
3
4
Worksheets("Feuil1").range("A1:C12").copy
    AppWord.Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=""
    AppWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _
        :=wdInLine, DisplayAsIcon:=False

on pourrait instancier la plage dans Excel et l'emplacement dans word mais là, tu as le principe.
Teste déjà ça
A+

NB - Si tu veux lier les données dans Word avec ta plage dans Excel, mets
... , Link:=True, ...

[doudoustephane]

Super!! Ca marche bien.
Par contre, y'a-t-il moyen ensuite de pouvoir retoucher ce cadre, notamment la taille de celui-ci ?
Merci à toi
doudouallemand

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
Sub Testeça()
Dim LeTruc as variant
    For Each LeTruc In AppDoc.InlineShapes
        leTruc.Height = 200 'en inch
        LeTruc.width = 300
    Next
end sub

Tu dis