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:
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