Bonjour à tous,
J'ai fait un petit programme qui ouvre un fichier excel via PowerPoint, le but est d'utiliser les noms des slides et des shapes afin de faire un filtre dans le fichiers excel, j'ai fait de sorte que les noms correspondent à mes filtres . Alors mon problème quand j’exécute le programme en hors diaporama en F5 ou pas à pas ça fonctionne, bien-sur la forme est sélectionné. Mais quand je passe en mode Diaporama la séquence d'ouverture ce passe bien mais pas les filtres ! Je n'arrive pas et ne comprends pas pourquoi.
Merci d'avance pour les réponses.
Voici le programme:
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 Sub FiltresExcel() Dim N1Diapo As String Dim N2Forme As String Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") With xlApp .Workbooks.Open FileName:="D:\***\Base" .Visible = True End With N1Diapo = ActiveWindow.Selection.SlideRange.Name N2Forme = ActiveWindow.Selection.ShapeRange.Name With xlApp.ActiveSheet .Protect DrawingObjects:=False, Contents:=False, Scenarios:=False ' desActive la protection de la feuille .Range("$A$5:$W$3228").AutoFilter Field:=1, Criteria1:="1" .Range("$A$5:$W$3228").AutoFilter Field:=2, Criteria1:=N1Diapo .Range("$A$5:$W$3228").AutoFilter Field:=3, Criteria1:=N2Forme End With End Sub
Partager