Version imprimable
Bonjour,
je cherche désepérément comment insérer une plage de cellules excels dans un document word.
L'important est de conserver le format des cellules dans le document word.
En attachement un exemple créé manuellement par insertion de l'image du tableau.
Merci pour votre aide.
Godz.:king:
Bonjour
Voici un exemple qui colle une plage avec liaison au point d'insertion du document actif de Word. (Il faut au préable que Word soit ouvert et que, dans le projet VBA d'excel, la référence à la librairie de Word soit cochée).
L'enregsitreur de macros sous Word permet de visualiser facilement le code à générer dans Excel...Code:
2
Ok?
Salut Pierre, (on est presque voisins, je suis à Baelen) :yaisse2:
merci pour ta réponse mais je calle encore un peu.
Je ne sais pas comment déterminer/établir le point d'insertion dans Word.
Voici mon code actuel :
Quand j'essaie ce code, le range excel est bien intégré mais au début du document.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
J'ai enregistré une macro dans Word pour me positionner sur un signet à l'endroit voulu, mais je ne sais pas comment exécuter cette macro via excel.
Comment dois-je faire pour me positionner à cet endroit dans mon document word ?Code:
2
3
4
5
6
7
8
9
10
11
Et ensuite, comment puis-je mettre à jour (ou delete) ce paste-special avec les données du record excel suivant sans devoir rouvrir le fichier word de base ? (je fais du mail merge).
Merci beaucoup pour ton aide. :mouarf:
Godzestla.
Salut voisin... ;)
Le plus simple est d'utiliser un objet Document issu de la librairie Word.
Les objets Bookmarks disposent de la propriété Range (à ne pas confondre avec l'objet Range d'Excel...) et cet objet Range dispose de la méthode PasteSpecial.
Dès lors, tu peux t'inspirer du code suivant, qui mémorise le document "bonjour.doc" (qui doit être ouvert, sinon, il faut l'ouvrir, à la main ou par vba) et qui place respectivement aux signets Excel et Excel1 les plages B10:C20 et F6:H16
[EDIT] Je précise, au vu de ton code (issu de l'enregistreur?) qu'il n'est pas nécessaire et/ou utile de sélectionner les plages que tu souhaites copier. Tu peux les adresser directement, ce qui est plus rapide et donne un code plus lisible. Dans le code que je donne, tu verras que je ne sélectionne pas les plages. J'utilise directement les propriétés et méthodes d'objets RangeCode:
2
3
4
5
6
7
8
9
10
[/EDIT]
Ok?
Waw, :yaisse2:
c'est juste ce qu'il me fallait. Merci pour la précision et la cohésion.
Il me manque juste encore un truc pour que :
* soit le pasteSpecial suivant ecrase le précédent (mailmerge oblige).
* soit éviter de devoir rouvrir le .doc initial à chaque record excel afin d'accéler le code.
Est-ce possible ?
Merci. :mouarf:
Dans la mesure où tu insères ton tableau comme un caractère, tu peux te servir de la position du signet pour supprimer le caractère qui suit le signet considéré
Et tu peux boucler sur les signets qui te servent à insérer tes tableauxCode:mondoc.Bookmarks("excel").Range.Start + 1).Delete
Génial.
Merci Beaucoup.
Pour Info,
l'instructionne fonctionnait pas (syntax error). Pas possible de lui faire avaler .Start+1 ou alors je n'ai jamais trouvé où intégrer la parenthèse ouvrante manquante.Code:
2
J'ai fait comme ceci et cela fonctionne très bien.
Encore merci. :yaisse2:Code:
2
3
4
5
6
7
8
9'Remove Inserted Contents at "Target" bookmark With WordDoc.Bookmarks("Target") bookstart = .Start Bookend = .End End With Set Myrange = WordDoc.Range(Start:=bookstart, End:=Bookend) Myrange.Delete
Thierry.
Désolé...
J'ai loupé mon recopiage
Le bon code était
en ayant adapté au nom de ton objet "Document Word"...Code:WordDoc.Characters(WordDoc.Bookmarks("excel").Start + 1).Delete
L'avantage de ce code est qu'il ne déplace pas le point d'insertion dans le document Word.
Encore désolé... :oops:
Merci et pas de soucis,
je vais adapter comme tu le recommande. C'est plus léger.
Bonne journée.