cs_dadou20
Messages postés26Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention27 juin 2007
-
11 mai 2007 à 21:23
Polack77
Messages postés1098Date d'inscriptionmercredi 22 mars 2006StatutMembreDernière intervention22 octobre 2019
-
12 mai 2007 à 16:24
Salut a tous ,
voici le code que j'ai réalisé pour copier le graphe (MSCHART) qui se situe dans la form1 dans word. ce code permet de copier le graphe et je peux le trouver sur paint en faisant Ctrl-V. mais j'arrive pas a l'avoir dans word
<!-- BEGIN TEMPLATE: bbcode_code -->
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Set DocWord = AppWord.Documents.open("c:\pfe\results.doc", ReadOnly:=False)
Polack77
Messages postés1098Date d'inscriptionmercredi 22 mars 2006StatutMembreDernière intervention22 octobre 20191 12 mai 2007 à 16:24
Bon tout d'abor merci de mettre un titre plus explicite que "aide svp" met plutôt "problème pour coller un graph dans Word" Merci.
Heeeee, ton objectif c'est quois? Collé le graph dans document "c:\pfe\results.doc" dans Word?
Si ou la ligne de code qui fais ça est (du moin pour collé un graph Excel) :
DocWord.Selection.PasteAndFormat (0) 'wdPasteDefault = 0
Pour savoir où collé il faux que tu positione la selection (tu dois aussi pouvoir le faire par objet range)
exemple (pour te positioné au début du document) :
DocWord.Paragraphs(1).Range.Select
DocWord.Selection.MouveLeft
Si ça ne marche pas je repasserais lundi (de tout façon je n'ai pas visual basic avant)
Je ne comprand pas ce que tu veut dire par : "j'arrive pas a l'avoir dans word"
Porcois fais tu ça :
AppWord.ActiveWindow.Visible = True
DocWord.ActiveWindow.Selection.Font.name = "Arial"
DocWord.ActiveWindow.Selection.TypeTextText:= "Salut"
DocWord.ActiveWindow.Selection.TypeParagraph
DocWord.ActiveWindow.Selection.TypeParagraph