Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 12/03/2006, 17h42   #1
Invité de passage
 
Inscription : février 2005
Messages : 16
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 16
Points : 0
Points : 0
Par défaut [VBA-W] et word

Comment par du code VBA Conserver la mise en forme source et le lien vers Excel lors du copier coller d'un text ou tableau de Excel vers word.


Edit
Bonjour. Ton sujet est trop vague. Afin de pouvoir éventuellement servir à d'autres, il est nécessaire qu'il soit explicite.
"[VBA-W]Conserver mise en forme et lien vers Excel" aurait été plus mieux bien... Pour corriger, tu as le bouton "Editer" en haut et à droite.
Conseils gracieusement offerts par ouskel'n'or
kasjacques est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/03/2006, 17h46   #2
Responsable Visual Basic
 
Avatar de bbil
 
Inscription : juin 2003
Messages : 11 773
Détails du profil
Informations personnelles :
Âge : 45
Localisation : France, Ariège (Midi Pyrénées)

Informations forums :
Inscription : juin 2003
Messages : 11 773
Points : 16 849
Points : 16 849
Envoyer un message via Skype™ à bbil
et le code vba ? sous excel ou Word ?
bbil est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/03/2006, 12h43   #3
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 928
Points : 11 928
La mise en forme, dans Word, dépendra toujours de la taille du tableau Excel inséré...
Code :
1
2
3
4
5
6
7
    Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
        wdInLine, DisplayAsIcon:=False
    Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend ' sélectionne ton tableau
    With selection  'redimensionnement du tableau dans la page
         .InlineShapes(1).LockAspectRatio = msoTrue 'pour conserver le rapport hauteur/largeur de ton tableau
         .InlineShapes(1).Width = 503.15 'pour redimensionner à 17,75 cm en largeur
    End with
Permet, dans word, de coller, avec liaison, une plage de cellule sélectionnée et copiée dans Excel, puis de la redimensionner.

Citation:
Placement:=wdInLine
rend le tableau solidaire d'une ligne (l'empêche de "flotter" dans la page.

Tu dis

A+
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 18h41.


 
 
 
 
Partenaires

Hébergement Web