Liaison Excel et Powerpoint VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Liaison Excel et Powerpoint VBA

latthieu

Bonjour tout le monde,

Après plusieurs recherche je me résous à poster ici.

Voila, je cherche à copier automatiquement un tableau excel dans un powerpoint. Le problème c'est que ce tableau doit pouvoir être modifiable par quelqu'un qui ouvre le powerpoint.

J'arrive, en jouant sur les options du Shapes.PasteSpecial à cpier mon tableau soit en image (et donc non modifiable) soit en tableau lié (qui ouvre l'excel quand on souhaite le modifier).

Voici mon code:

Code :

'Sélection des données du premier tableau
Sheets("Données préremplies (A)" ).Select
Range("B4:H20" ).Select
Selection.Copy
'Ouverture du ppt et sélection du slide 4
Set objApp = CreateObject("PowerPoint.Application" )
With objApp
.Activate
.Presentations.Open Filename:="\\\\plouf.ppt", ReadOnly:=msoFalse
.ActivePresentation.Slides(4).Select
.ActivePresentation.Slides(4).Shapes.PasteSpecial(ppPasteDefault, link:=True).Select
End With

Quelqu'un a une idée ? Merci d'avance !

Message cité 1 fois

Publicité

SuppotDeSaTante

Aka dje69r

latthieu a écrit :

J'arrive, en jouant sur les options du Shapes.PasteSpecial à cpier mon tableau soit en image (et donc non modifiable) soit en tableau lié (qui ouvre l'excel quand on souhaite le modifier).

Bah si tu y arrives, c'est quoi la question ? :??:

Message édité par SuppotDeSaTante le 24-06-2011 à 16:11:57

---------------
Soyez malin, louez entre voisins !

latthieu

Salut,

Le truc c'est que le tableau doit être modifiable facilement sans passer par Excel.

Et ce que j'arrive à faire, c'est soit le copier en image (et donc non modifiable) soit le copier en tant qu'objet lié à mon document d'Excel. Or, ce document doit être, pas soucis de confidentialité, pas transmis via le powerpoint.

latthieu

Personne n'a d'idée ?

Je suis vraiment bloqué dessus...

SuppotDeSaTante

Aka dje69r

Desolé, mais je ne comprends pas ton souci. Qu'y a t il de confidentiel dans un fichier Excel lié ou inseré en image dans ppt que tu transmets...?

---------------
Soyez malin, louez entre voisins !

latthieu

Bon, j'ai finalement réussi, je poste donc ma solution pour que cela serve aux suivant...

Code :

Sub myPaste()
'La Presentation est ouverte et la référence à PowerPoint activée
Dim PPApp As PowerPoint.Application
Set PPApp = GetObject(Class:="Powerpoint.Application" )
PPApp.ActiveWindow.ViewType = ppViewSlide
PPApp.ActivePresentation.slides(4).Select
'EXCEL CODE
Sheets("Données préremplies (A)" ).Select
Range("B4:H20" ).Select
Selection.Copy
'POWERPOINT CODE
PPApp.ActiveWindow.View.Paste
End Sub

kiki29

Salut, tu pourrais alléger

Sheets("Données préremplies (A)" ).Select
Range("B4:H20" ).Select
Selection.Copy

Sheets("Données préremplies (A)" ).Range("B4:H20" ).Copy

sans oublier

Set PPApp = Nothing

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

latthieu

Merci des conseils !!

:??: Petite question : pourquoi vider la variable à la fin ? En faisant end sub, il n'y a pas toutes les variables qui se vident automatiquement ?

Message édité par latthieu le 06-07-2011 à 10:09:31

M49B92

Bonjour latthieu,dje69r et kiki29 et les autres... le post est vieux mais je tente quand même!

Voilà j'ai absolument le même problème que toi: je souhaite copier des tableaux Excel 2010 vers Powerpoint 2010 en version modifiable directement sur Powerpoint mais en conservant le format source Excel (chose qui ne fonctionne pas avec ton code latthieu...).

J'ai quasisment tout essayé...sans avoir véritablement trouvé...la meilleure solution étant le collage avec lien Excel...[Pres.Slides(NbSlide).Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse].

Mais le problème que j'ai avec ce collage c'est la qualité du tableau qui n'est pas très bonne (surtout si je veux l'agrandir par exemple, modifier la police) puis imprimer mes diapos...

En fait ce que je voudrais c'est le code VBA d'un "simple" collage : conserver la mise en forme source(S) (que l'on peut faire manuellement..)mais pour Excel et Powerpoint 2010.

Si quelqu'un a une solution je suis preneur!

Merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Liaison Excel et Powerpoint VBA

Sujets relatifs
exporter données vers feuilles excel	VBA, creer et ecrire un fichier text (.txt) depuis un macro
Allocation VBA	[VBA] comparaison entre 2 lignes successives
VBA : Erreur de syntaxe dans un champs Word	[RE]Excel : Macro : Lien vers la deuxième feuille quelque soit son nom
Macro Excel pour transformer les cellules enrichis en html	Excel : Nom copie de feuille 1= contenu plusieurs cellules feuille 1
problème (opérateur manquant) dans Requete SQL sous Excel VBA
Plus de sujets relatifs à : Liaison Excel et Powerpoint VBA

Page générée en 0.043 secondes