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

VBA PowerPoint Discussion :

Utiliser un fichier dans le répertoire courant


Sujet :

VBA PowerPoint

  1. #1
    Membre actif
    Utiliser un fichier dans le répertoire courant
    Bonjour,

    J'ai trouvé le programme ci-dessous sur ce site pour récupérer les slides d'un fichier secondaire, dans un fichier secondaire.
    Or, mes fichiers étant sur des NAS, est-il possible de remplacer "C:\" par le répertoire courant du fichier ?
    C'est-à-dire mettre mes 2 fichiers PPT dans le mes répertoires, sans tenir compte du chemin d'accès.


    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
    Sub RECUP_PROJETS_P1()
    'expression.InsertFromFile(FileName, Index, SlideStart, SlideEnd)
    'Cet exemple montre comment insérer les diapositives 1 à 4 provenant
    'de "maPresentation2.ppt", à la suite de la diapositive 2 dans la présentation "maPresentation1.ppt"
     
    Sub InsereDiapositives()
    Dim pptDoc As Presentation
     
    Set pptDoc = Application.Presentations.Open(FileName:="C:maPresentation1.ppt")
     
    'expression.InsertFromFile(FileName, Index, SlideStart, SlideEnd)
    'Cet exemple montre comment insérer les diapositives 1 à 4 provenant
    'de "maPresentation2.ppt", à la suite de la diapositive 2 dans la présentation "maPresentation1.ppt"
    pptDoc.Slides.InsertFromFile "C:maPresentation2.ppt", 2, 1, 4
    End Sub


    Merci à toutes et tous

  2. #2
    Nouveau membre du Club
    Bonjour,

    tu peux utiliser ChDrive et ChDir pour te positionner dans le bon lecteur et dans le bon répertoire.

    Yves