anthony999c
XLDnaute Nouveau
Bonjour à tous et toutes,
je me trouve confronté pour mon travail à avoir un fichier excel avec macro fonctionnant correctement sous office 2010 mais pour les utilisateurs en version 2007 ca se complique.
Pour faire simple, dans un fichier je souhaites importer des données contenues dans un autre classeur qui sert de base. Ses données sont filtrées à l'aide d'un formulaire puis de variables et ensuite de la fonction autofilter. Le tout fonctionnant très bien sur mon pc en 2010 et sur lequel j'ai écris le code. Donc la où je me cogne la tête dans le mur c'est ici :
	
	
	
	
	
		
Les variables sont en string.
Si quelqu'un à une idée du problème que rencontre 2007 et que 2010 ne rencontre pas je serais ravi de connaître sa solution.
Cordialement.
Anthony
	
		
			
		
		
	
				
			je me trouve confronté pour mon travail à avoir un fichier excel avec macro fonctionnant correctement sous office 2010 mais pour les utilisateurs en version 2007 ca se complique.
Pour faire simple, dans un fichier je souhaites importer des données contenues dans un autre classeur qui sert de base. Ses données sont filtrées à l'aide d'un formulaire puis de variables et ensuite de la fonction autofilter. Le tout fonctionnant très bien sur mon pc en 2010 et sur lequel j'ai écris le code. Donc la où je me cogne la tête dans le mur c'est ici :
		Code:
	
	
	If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
        ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=1, Criteria1:=eppoteaux
        ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=2, Criteria1:=structureplancher
        ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=3, Criteria1:=hsp
        ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=4, Criteria1:=plafond
        ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=5, Criteria1:=isolation
        ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=6, Criteria1:=sousface
        ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=7, Criteria1:=plancher
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("H2:U" & lastrow).SpecialCells(xlCellTypeVisible).Copy
	Les variables sont en string.
Si quelqu'un à une idée du problème que rencontre 2007 et que 2010 ne rencontre pas je serais ravi de connaître sa solution.
Cordialement.
Anthony