Bonjour à tous,
 
J'ai cette macro qui fonctionne sur Excel 2007, mais qui bug sur Excel 2003. Je ne sais pas pourquoi. Pouvez vous m'aider? Cette macro a pour but de filtrer des données selon le mois de départ et de fin indiqués dans un autre onglet.
 
Merci beaucoup
 
Sub autofilter()
 
numMonthStart = Sheets("Period" ).Range("B2" ).Value
numMonthEnd = Sheets("Period" ).Range("B3" ).Value
 
Sheets("GMTD Cumul" ).Select
Rows("1:1" ).Select
Application.CutCopyMode = False
Selection.autofilter
Selection.autofilter Field:=15
Selection.autofilter Field:=15, Criteria1:=">=" & numMonthStart, Operator:=xlAnd, _
Criteria2:="<=" & numMonthEnd
 
End Sub  
 
A noter que l'erreur affiché est :
 
 
Erreur d'exécution '1004' :
 
La méthode AutoFilter de la classe Range a échoué

le problème est corrigé. CEPENDANT un nouveau vient d'apparaitre si vous pouviez m'aider concernant celui-ci :  
 
J'ai un fichier de travail dont la macro fonctionne très bien sur Excel 2007, cependant en voulant tester sa compatibilité à la version antérieur d'excel, nil y a certain dont un tableau croisé dynamique qui ne se lance pas. Voici la partie qui pose problème (en gras et rouge).
 
Pouvez vous me renseigner à ce sujet? En vous remerciant d'avance.
 
Rem On sélectionne les données dans la feuille GMTD S1 et on créé le tableau croisé dynamique dans la feuille TCD
Sheets("GMTD Period" ).Select
Cells.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:= _
"GMTD Period!R1C1:R65536C36", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="TCD!R3C1", TableName:="Tableau croisé dynamique", _
DefaultVersion:=xlPivotTableVersion10
Sheets("TCD" ).Select
Cells(3, 1).Select