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:
 
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 Filtre de PowerPoint à excel fonctionne pas e mode diaporama