Discussion :

[merlinus3000]

Bonjour à tous,

J'ai réussi à faire un fichier Excel grâce à plusieurs sujets lancés sur le forum.

Maintenant, je souhaiterais automatiser certaines taches.

J'ai repris les codes de :

http://excel.developpez.com/faq/?page=Powerpoint

Afin de : reprendre un graphique et l'insérer dans une présentation PowerPoint, et j'ai repris une deuxième partie de code, afin de copier un tableau et l'insérer dans la même présentation.

La première partie fonctionne, mais dès que je rajoute le deuxième code (ligne 46 à 57), cela bug sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    .Slides(2).Shapes.Paste

Quelle partie dois-je revoir ?

Et l'objectif final du code et là où je souhaite votre aide, serait d'utiliser la liste déroulante se trouvant dans l'onglet "Récapitulatif", dans la cellule A2, afin de faire défiler ligne par ligne, et créer un fichier PowerPoint pour chaque ligne.

Est-ce réalisable ?

Le fichier est attaché, et compressé, car je n'ai pas pu uploader le fichier .xlsm

Merci pour votre aide sur ce sujet épineux à mes yeux.

[merlinus3000]

J'ai revu le code de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    'copie la plage de cellules dans la feuille Excel active
    Recap.Range("A4:M7").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(2).Shapes().PasteSpecial ppPasteEnhancedMetafile
 
    With .Slides(2).Shapes(.Slides(2).Shapes.Count)
        .Name = "monTableau" 'Renomme l'objet collé
        .Left = 50 'position horizontale dans le slide
        .Top = 400 'position verticale dans le slide
        .Height = 300 'hauteur
        .Width = 600 'largeur
    End With

Ca fonctionne, mais l'image générée du tableau ne s'étend pas, et reste petite sur la présentation.

Y a-t-il moyen de parer à cela ?