Boucle vba qui ouvre des fichiers avec noms variables

Boucle vba qui ouvre des fichiers avec noms variables - VB/VBA/VBS - Programmation

Marsh Posté le 28-03-2011 à 12:45:40    

Bonjour,  
 
J'ai un fichier qui doit prélever des informations dans plusieurs autres fichiers excel, et les mettre dans plusieurs pages (une par fichier).  
Mon fichier "mère" est composé de 15 onglets, et doit ouvrir 15 fichiers qui sont tous dans un même répertoire.  
 
Pour chaque onglet, il doit prélever des informations dans le fichier portant le nom de la cellule A1 du-dit onglet.  
J'imagine que le code devrait ressembler à ça mais je pense que je suis à coté de la plaque au niveau de la syntaxe :  
 
Sub_boucle()  
 
Windows("Classeur mère.xls" ).Activate
 
For Each feuille In Worksheets  
feuille.Activate  
Range("A1" ).Select  
 
Workbooks.Open Filename:= "Z:\"&selection.value".xls"  
[..manip de recherche de valeur.]  
Next feuille  
 
 
C'est sur cette partie variable du nom que porte ma question  
Merci beaucoup,  
Guillaume

Reply

Marsh Posté le 28-03-2011 à 12:45:40   

Reply

Marsh Posté le 28-03-2011 à 14:10:18    

Au lieu de

Workbooks.Open Filename:= "Z:\"&selection.value".xls"  


Essayer

Workbooks.Open Filename:= "Z:\" & selection.value & ".xls"  

Reply

Marsh Posté le 28-03-2011 à 17:24:36    

Merci Olivthill ,
Ca fonctionne niquel.
 
Par contre j'ai une deuxième question dans la foulée.
A la fin de ma boucle je souhaiterai fermer la feuille en question et la procédure :
Range'("A1" ).select
Windows(" & Selection.Value & " ).Close  
ne fonctionne pas.
 
tu aurais une idée par hasard ?
 
Merci beaucoup
guillaume

Reply

Sujets relatifs:

Leave a Replay

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