Bonjour,
Je suis nouveau sur le forum , j'espère que je m'y prends correctement.
Voilà , je vous expose mon problème:
J'ai crée une petite macro sous powerpoint (version 2000) qui utilise la fonction "With Application.FileSearch".
Malheureusement , cette macro ne fonctionne plus sous la version 2007 de powerpoint.
La raison est que la fonction filesearch n'existe plus.
J'ai bien essayé de trouver une solution avec ClasseFileSearch qu'on utilise sous excel 2007 mais je n'arrive pas à la faire fonctionner correctement sous powerpoint (sans doute que cette fonction supplémentaire n'est pas disponible sous powerpoint 2007).
Cette macro a pour but d'importer toutes les images au format jpeg dans la présentation powerpoint contenant la macro.
Elle va chercher les images dans le dossier en cours grâce à une fonction que j'appelle "chemin_courant".
Je vous livre le code ci-dessous.
Quelqu'un peut-il m'aider ?
Cordialement
Yann
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59 *************************************************** Sub import () 'Cette macro a pour but d'importer toutes les images au format jpeg dans la présentation powerpoint contenant la macro. Elle va chercher les images dans le dossier en cours grâce à une fonction que j'appelle "chemin_courant" test = ActivePresentation.Slides.Count If test = 0 Then ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(SlideIndex + 1, Layout:=ppLayoutBlank).SlideIndex Dim fichier_courant As Presentation Dim sheetact As Slides Set fichier_courant = ActivePresentation Set sheetact = ActivePresentation.Slides With Application.FileSearch .NewSearch .LookIn = (chemin_courant) .SearchSubFolders = False .FileName = "*.jpg" .MatchTextExactly = True If .Execute() > 0 Then For i = 1 To .FoundFiles.Count ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=.FoundFiles(i), LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=72, Top:=54, Width:=576, Height:=432).Select ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(SlideIndex + 1, Layout:=ppLayoutBlank).SlideIndex Next End If End With End Sub **************************************************** Function chemin_courant() As String 'fonction pour chercher le dossier en cours Dim fichier As Presentation Set fichier = ActivePresentation ChDir (fichier.Path) chemin_courant = fichier.Path End Function
Partager