Faire un copier-coller depuis Excel vers Word via une macro ?
Adoc5
- Messages postés
- 53
- Date d'inscription
- lundi 3 mai 2004
- Statut
- Membre
- Dernière intervention
- 1 octobre 2007
- Messages postés
- 2
- Date d'inscription
- jeudi 24 juin 2004
- Statut
- Membre
- Dernière intervention
- 4 juillet 2005
A voir également:
- Exporter données excel vers word vba
- Macro excel vers word - Meilleures réponses
- Macro excel word - Meilleures réponses
- [VBA] copie graphique Excel vers Powerpoint (incorporer classeur - Forum - VBA Office (Excel, Word ...)
- [Catégorie modifiée VB6 -> VBA] export donnée project vers excel en vba ✓ - Forum - Visual Basic 6
- Exporter de données Excel vers access en ADO ✓ - Forum - Visual Basic
- Importer données excel vers mysql - Forum - PHP
- Importer données excel vers mysql php - Forum - PHP
10 réponses
Meilleure réponse
- Messages postés
- 699
- Date d'inscription
- mercredi 19 février 2003
- Statut
- Membre
- Dernière intervention
- 13 mai 2011
Tu peux transférer la macro Word sous Excel, en préfixant chaque action faite dans Word par le appWord., ou docWord.
Fanny
Fanny
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
217 internautes nous ont dit merci ce mois-ci
- Messages postés
- 53
- Date d'inscription
- lundi 3 mai 2004
- Statut
- Membre
- Dernière intervention
- 1 octobre 2007
You're the best !!!! Merci beacoup !!!!
Cédric
:)
Cédric
:)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
217 internautes nous ont dit merci ce mois-ci
- Messages postés
- 699
- Date d'inscription
- mercredi 19 février 2003
- Statut
- Membre
- Dernière intervention
- 13 mai 2011
Bonjour,
Pour ce faire, il faut dans un premier temps
cocher dans Outils->Références la librairie Microsoft Word
Puis il faut que tu ouvres Word ainsi que ton document, que tu copies ton graphe Excel (grâce à son nom), et le coller dans Word :
Voilà, en espérant t'avoir aidé
Fanny
Pour ce faire, il faut dans un premier temps
cocher dans Outils->Références la librairie Microsoft Word
Puis il faut que tu ouvres Word ainsi que ton document, que tu copies ton graphe Excel (grâce à son nom), et le coller dans Word :
'Déclaration des variables
Dim DocWord As word.Document
Dim AppWord As word.Application
Set AppWord = New word.Application
'Ouvre le document Word
Set DocWord = AppWord.Documents.Open("d:\user\essai.doc", ReadOnly:=False)
'Création du graphique et sa copie
'Ne prends que la copie :)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B6")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("Classeur1").Activate
'ICI tu copies ton graphe
ActiveSheet.ChartObjects("Graphique 1").Copy
'Désactivation des messages d'alerte
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
'Collage du graphe dans Word
DocWord.Range.PasteSpecial
Application.CutCopyMode = False
'Sauvegarde du document Word
DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit
Voilà, en espérant t'avoir aidé
Fanny
- Messages postés
- 53
- Date d'inscription
- lundi 3 mai 2004
- Statut
- Membre
- Dernière intervention
- 1 octobre 2007
Merci beaucoup Fanny,
J'ai essayé et ça marche jusqu'à DocWord.Range.PasteSpecial. A partir de là ça plante.
Quand tu écris "cocher dans Outils->Références la librairie Microsoft Word", je n'ai pas trouvé à quoi ça correspondait. Dois-je le faire dans Excel ? (J'ai une version américaine, ceci peut avoir un impact sur le code généré par VB...?)
Merci d'avance.
@+
:)
J'ai essayé et ça marche jusqu'à DocWord.Range.PasteSpecial. A partir de là ça plante.
Quand tu écris "cocher dans Outils->Références la librairie Microsoft Word", je n'ai pas trouvé à quoi ça correspondait. Dois-je le faire dans Excel ? (J'ai une version américaine, ceci peut avoir un impact sur le code généré par VB...?)
Merci d'avance.
@+
:)
- Messages postés
- 53
- Date d'inscription
- lundi 3 mai 2004
- Statut
- Membre
- Dernière intervention
- 1 octobre 2007
J'y avait pensé mais dès que je génère un nouveau fichier word, la macro permettant de placer correctement le graphe disparait. Je ne sais pas comment sauvegarder cette macro pour qu'elle soit dispo pour n'importe quel fichier Word. Et deuxième chose, à partir d'Excel, je ne sais pas comment appeler une macro word.
C'est vrai que l'idée est bonne mais je suis handicapé par mon manque de connaissances en VBA.
Cédric
:)
C'est vrai que l'idée est bonne mais je suis handicapé par mon manque de connaissances en VBA.
Cédric
:)
- Messages postés
- 2
- Date d'inscription
- jeudi 24 juin 2004
- Statut
- Membre
- Dernière intervention
- 4 juillet 2005