IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Création de document ppt en fonction d'une liste


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Avril 2008
    Messages
    55
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 55
    Par défaut Création de document ppt en fonction d'une liste
    Bonjour à tous,
    Je crée actuelement des documents excel en fonction d'une liste.
    Je souhaiterais rajouter à ce code, la création de documents Ppt.
    Meme chose que pour ce code je voudrais qu'ils prennent le nom de la cellule en "G". J'ai un fichier nommé "base.ppt", qui doit etre copier X fois en fonction de la liste en "G".
    Mais je ne connais pas le code pour créer des ppt en copiant collant X fois, le fichier base.ptt et en changeant son nom.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Option Explicit
     
    Sub CreationFichiers()
    Dim J As Long
    Dim Nom As String
     
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      With Sheets("Nomenclature")
        For J = 3 To .Range("G" & Rows.Count).End(xlUp).Row
          Nom = .Range("G" & J)
          Sheets(Array("Nomenclature", "BDD", "G3")).Copy
          With ActiveWorkbook
            .Sheets("G3").Range("A1") = Nom
            .Sheets("G3").Name = Nom
            .Sheets("Nomenclature").DrawingObjects.Delete
            .SaveAs ThisWorkbook.Path & "\" & Nom
            .Close
          End With
        Next J
      End With
      MsgBox "Création fichier terminée"
    End Sub

  2. #2
    Membre confirmé
    Inscrit en
    Avril 2008
    Messages
    55
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 55
    Par défaut
    Avec ce fichier pour aide.
    La colonne avec les villes étant dynamique.
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Réponses: 5
    Dernier message: 14/03/2014, 16h20
  2. [AC-2007] Création d'un schéma en fonction d'une table
    Par kekeoo dans le forum IHM
    Réponses: 19
    Dernier message: 04/09/2012, 11h16
  3. [AC-2007] Création d'état en fonction d'une liste déroulante
    Par Wanaka dans le forum IHM
    Réponses: 2
    Dernier message: 01/10/2009, 00h02
  4. choisir un fichier .js à éxécuter en fonction d'une liste
    Par bikerman dans le forum Général JavaScript
    Réponses: 16
    Dernier message: 10/04/2006, 14h48
  5. Comment rappeler une fonction dans une liste déroulante
    Par strogos dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 05/05/2005, 23h54

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