1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    janvier 2017
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chef de projet en SSII
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : janvier 2017
    Messages : 1
    Points : 1
    Points
    1

    Par défaut Copie slides entre présentations

    Hello

    Premier post ici pour un appel à l'aide.
    J'ai besoin de fusionner des slides provenant de plusieurs préz dans une seule cible.
    L'idée est de parser tous les fichiers d'un répertoire et dans chacun, copier un slide donné et de l'ajouter dans la préz cible.

    Qq'un a une idée du code qui saura me dépanner ?

    Merci d'avance et à plus

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 319
    Points : 27 141
    Points
    27 141

    Par défaut

    Salut,

    tu peux parcourir l'ensemble des slides de ta presentation en cours avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For Each sld In ActivePresentation.Slides
    pour dupliquer une slide :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set newSlide = ActivePresentation.Slides(1).Duplicate
    pour copier d'une presentation a une autre :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub Piou()
    Dim pres1 As PowerPoint.Presentation, pres2 As PowerPoint.Presentation
    Set pres1 = Application.ActivePresentation
    Set pres2 = Application.Presentations.Add        ' nouvelle presentation
    pres1.Slides(1).Copy
    pres2.Slides.Paste pres2.Slides.Count + 1
    End Sub
    a adapter bien sur
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 319
    Points : 27 141
    Points
    27 141

    Par défaut

    En complement, solution issue de la
    http://powerpoint.developpez.com/faq...-A#InsertDiapo
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

Discussions similaires

  1. [Prototype] Faire un slide entre plusieurs div
    Par creusois dans le forum Bibliothèques & Frameworks
    Réponses: 7
    Dernier message: 07/12/2009, 14h28
  2. Copie BINAIRE entre zOs et Unix
    Par Kyle Katarn dans le forum z/OS
    Réponses: 1
    Dernier message: 09/07/2009, 14h30
  3. Copie fichier entre seveurs
    Par RideKick dans le forum Réseau/Web
    Réponses: 2
    Dernier message: 02/04/2008, 18h49
  4. copie des entrées mysql
    Par nocoment dans le forum PHP & MySQL
    Réponses: 11
    Dernier message: 01/06/2007, 13h16
  5. [VBA Excel] - Copie données entre feuilles
    Par mimic50 dans le forum VBA Access
    Réponses: 1
    Dernier message: 27/11/2006, 14h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo