Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

copié VBA de Excel à Power point...

1 réponse
Avatar
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:=ActivePresentation.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"

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

1 réponse

Avatar
Jac
Bonjour Olivier,

si les données sont toujours dans le(s) même(s) classeur(s), tu pourrais
copier dans XL et coller avec liaison dans PPT.
De cette façon, ton PPT serait toujours à jour des données XL.

Si tu veux conserver les données d'une certaine date, après avoir ouvert le
PPT, tu supprimes les liaisons.

C'est tout.

Jac

"Olivier B" <benardo974(supprimer contenu des parenthèses)@hotmail.com> a
é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"

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