Filtre de PowerPoint à excel fonctionne pas e mode diaporama

Filtre de PowerPoint à excel fonctionne pas e mode diaporama - Carte mère - Hardware

Marsh Posté le 14-04-2016 à 10:56:50    

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

Reply

Marsh Posté le 14-04-2016 à 10:56:50   

Reply

Marsh Posté le 14-04-2016 à 11:01:42    

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

Reply

Marsh Posté le 21-04-2016 à 12:38:35    

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.

Reply

Marsh Posté le 21-04-2016 à 12:41:10    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed