souhaterais savoir comment copier VBA de Excel à Power point...

Le
Olivier B
>>>>>>>>>>>>>>>>>>>>>>>>>>>>

VBA de Excel à Power point

### Je veux que chaque contenu de mes feuilles de calcul soit copié dans une
nouvelle diapositive d'un powerpoint.

Je pense bien à quelques outils à mettre en oeuvre :

usedrange dans Excel pour copier

Mais ensuite c'est la grande intérrogation, car je ne suis pas familier des
échanges inter-applications VBA.

J'ai une bonne idée du déroulement du code mais je ne sais pas concrètement
lier et faire fonctionner tout ça


-

J'ai un peu regardé du côté des codes VBA POWERPOINT et voilà les étapes du
code :

## Démarrer Powerpoint depuis Excel et prendre le contrôle de powerpoint

Peut-être

PowerPoint.Application

## Ensuite on crée un nouveau fichier

Presentations.Add WithWindow:=msoTrue

'puis on y applique un TEMPLATE (optionnel je pense pouvoir me débrouiller
avec un ActivePresentation.ApplyTemplate FileName:="C:blablabla.pot"

## On ajoute une nouvelle feuille

ActiveWindow.View.GotoSlide
Index:¬tivePresentation.Slides.Add(Index:=2,
Layout:=ppLayoutText).SlideIndex

#On termine par un copier-coller objet feuille de calcul excel

code ??????

Pour copier depuis Excel, aucun problème car j'utiliserai la méthode
.usedrange

mais pour coller ensuite dans powerpoint, là je n'ai aucune idée !!!



# Et une mise en forme qui convient aux formats de la diapo



With ActiveWindow.Selection.ShapeRange

.Left = 120

.Top = 139.875

.Width = 480

.Height = 260.125

End With



#On finirait par sauvegarder la présentation

ActivePresentation.SaveAs FileName:="blabla.ppt"

-
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pascal
Le #4391491
Bonjour,
Va voir de ce côté là
http://www.technicland.com/malpolitus.swf


"Olivier B" écrit dans le message de news:































VBA de Excel à Power point...

### Je veux que chaque contenu de mes feuilles de calcul soit copié dans
une
nouvelle diapositive d'un powerpoint.

Je pense bien à quelques outils à mettre en oeuvre :

usedrange dans Excel pour copier

Mais ensuite c'est la grande intérrogation, car je ne suis pas familier
des
échanges inter-applications VBA.

J'ai une bonne idée du déroulement du code mais je ne sais pas
concrètement
lier et faire fonctionner tout ça...


-------------------------------------------

J'ai un peu regardé du côté des codes VBA POWERPOINT et voilà les étapes
du
code :

## Démarrer Powerpoint depuis Excel et prendre le contrôle de powerpoint

Peut-être

PowerPoint.Application

## Ensuite on crée un nouveau fichier

Presentations.Add WithWindow:=msoTrue

'puis on y applique un TEMPLATE (optionnel je pense pouvoir me débrouiller
avec un ActivePresentation.ApplyTemplate FileName:="C:blablabla.pot"

## On ajoute une nouvelle feuille

ActiveWindow.View.GotoSlide
Index:¬tivePresentation.Slides.Add(Index:=2,
Layout:=ppLayoutText).SlideIndex

#On termine par un copier-coller objet feuille de calcul excel

code ??????

Pour copier depuis Excel, aucun problème car j'utiliserai la méthode
.usedrange

mais pour coller ensuite dans powerpoint, là je n'ai aucune idée !!!



# Et une mise en forme qui convient aux formats de la diapo



With ActiveWindow.Selection.ShapeRange

.Left = 120

.Top = 139.875

.Width = 480

.Height = 260.125

End With



#On finirait par sauvegarder la présentation

ActivePresentation.SaveAs FileName:="blabla.ppt"

-------------------------------------------


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000733-0, 11/04/2007
Analyse le : 13/04/2007 13:43:44
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000733-0, 11/04/2007
Analyse le : 13/04/2007 13:45:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





























Publicité
Poster une réponse
Anonyme