Discussion :

[byloute]

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

[Yves_VBA]

Bonjour,

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

Yves