Excel vers Word

Signaler
Messages postés
29
Date d'inscription
mardi 11 janvier 2005
Statut
Membre
Dernière intervention
25 janvier 2005
-
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
-
Bonjour,

Je voudrais créer une macro qui me copie soit un tableau soit un graphique et me le colle dans un document word ...

Quelqu'un connaît la manipulation ?

Merci

Poussin 38

2 réponses

Messages postés
1
Date d'inscription
vendredi 26 mars 2004
Statut
Membre
Dernière intervention
19 janvier 2005

Bonjour,
Cette macro te permet de selectionner la zone à envoyer vers word

Sub CopiePlageAutoExcelWord()
Dim PlageACopier As Range
Dim AppWord As Object
'Sheets("NomFeuille").Activate
If WorksheetFunction.CountA(Cells) > 0 Then
On Error Resume Next
Set PlageACopier = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
On Error GoTo 0
If PlageACopier Is Nothing Then Exit Sub
'Automatique à partir de A1 jusqu'à la fin
'Set PlageACopier = Range("A1", Cells.Find("*", , , , , xlPrevious))
Else
MsgBox "La feuille ne contient pas de données"
Exit Sub
End If
Set AppWord = CreateObject("Word.Application")
PlageACopier.Copy
With AppWord
.Visible = True
.documents.Add
'.documents.Open Filename:="C:\ajeter\docAOuvrir.doc"
.Selection.Paste
End With
'ActiveWorkbook.Save
'Application.Quit
End Sub


Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
28
bonsoir

tu trouveras quelques exemples dans le lien ci dessous
( cliques une 2eme fois sur le lien si un message d'erreur s'affiche )

http://www.excel-downloads.com/html/French/phpwiki/index.php?pagename=MichelXldsuite

bonne soiree
michel