Macro VBA pour importer des données d'Excel dans un PPT

Bonjour à tous,

Afin d'automatiser un Reporting hebdomadaire, j'ai essayé de créer une macro me permettant d'importer des valeurs d'un tableur Excel dans un slide PPT.

Voici un exemple de mon fichier Excel :

capture

et voici mon code actuel :

excel

Actuellement j'arrive a compter le nombre de lignes de mon tableau, pour savoir le nombre de slides que je vais devoir créer car une ligne = une slide

Voici mon point bloquant :

Par exemple sur la ligne 2, qui correspondra à ma 1 ère slide de présentation, je copie la cellule A2 à un endroit précis puis je souhaiterais copier la cellule B2 à un autre endroit, puis la cellule C2 à un autre endroit et ainsi de suite (pour cela il me suffit de réécrire la même fonction mais avec des coordonnées géographiques différentes) mais ensuite je n'arrive pas à passer à la slide suivante pour copier les cellules de la ligne du dessous au même endroit dans l'espace. J'ai l'impression qui me manque une boucle sur la position de ma cellule, enfin voila je bloque depuis un moment sur ca...

Si vous avez une solution je suis preneur, merci d'avance :)

Hello,

Voici à mettre avant ta boucle j :

ActivePresentation.Slides(1).Select

et pendant ta boucle j :

ActivePresentation.Slides(j).Select

à tester

Merci pour ta réponse Rag, mais cela ne fonctionne toujours pas

Je vous joins ce que j'ai essayé de produire mais ca ne fonctionne toujours pas.. Je m'en sors pas..

nouvelle capture

Pourtant pour moi je vois les choses comme ca :

1- je me place sur la slide j,

2- j'insere la zone de texte

3- je selectionne ma premiere cellule que j'insère dans la zone de texte

4- je passe à la slide suivante

5- j'insère la cellule situé sur la ligne du dessous à la précédente

et ainsi de suite

Une idée svp ?

capture 2

Mise à jour, j'arrive désormais à afficher plusieurs données successives mais elles sont toutes présente dans chaque slide, et non une dans une seule slide ..

Rechercher des sujets similaires à "macro vba importer donnees ppt"