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

Et donc tu penses que c'est un problème de hardware ?

Bonjour , désolé je n'avais pas vu la réponse.
Je ne penses pas que ce soit un problème de hardware et je n'est aucune idée . J'aimerais via PowerPoint ouvrir un fichier excel (ce que j'arrive ) et par le biais de variable de PowerPoint exécuter les filtres sur Excel.

Oups je viens de m'apercevoir que je ne suis pas dans le bon forum  
Désolé j'ai pas l'habitude des forum