Bonjour
je débute en VBA. je cherche à créer une macro VBA excell qui :
Renvoie la valeur d'une cellule d'une liste de fichiers présent ds un répertoire. (Par exemple extraire la valeur de la cellule A9 de tous les fichiers présents ds le répertoire Clisting).
Merci d'avance pour votre aide.
 
François

Bonjour,  
 
Voilà ce que j' ai fait :  
 
For i = 1 To Workbooks.Count 'Compte le nombre de classeur ouvert
ComboBox1.AddItem Workbooks(i).Sheets(1).Range("A1" ) 'Dans une liste déroulante, inscrit la valeur de chaque cellule A1 de chaque classeur ouvert dénombré
Next 'fin de boucle
 
Ca devrait marcher avec ça...

je tiens deja à te remercier d'avoir pris la peine de répondre à mon méssage. Je vais être un peu difficile (je m'étais mal  expliquer je pense). J'aimerai que la macro copie  dans une série de cellule B1:B15, la valeur contenue dans une cellule (h5 par exemple) dans tous les classeurs présents dans le répertoire (Cmesdocs). Si la macro pouvait aussi recopier le nom du fichier correspondant à la valeur collé ça serait le pied
Pour résumé:
Pour chaque classeur du répertoire Cmesdocs:
A copier :le contenu de la cellule H5
A Coller dans une autre feuille d'un autre classeur : le contenu de la cellule H5 et le nom de fichier d'où provient la cellule.
Merci d'avance.
françois

Bonjour,  
 
Je te fais un nouveau code, cependant, pour plus de faciliter, j' ai préférer stocker le nom et la valeur des cellules des fichiers dans deux liste déroulante (Combobox1 et Combobox2) :
 
With Application.FileSearch   ' Rechercher un fichier
.LookIn = "C:\mes documents"  'dans C:\mes documents
.Filename = ""   'nom inconnu
.SearchSubFolders = False  'ne pas chercher dans les sous fichiers
.FileType = msoFileTypeExcelWorkbooks  'Type de fichier excel
.Execute  
For i = 1 To .FoundFiles.Count  'Faire une boucle comptant le nombre de fihcier trouver
Workbooks.Open Filename:=.FoundFiles(i) 'Ouvrir ses fichier
Workbooks("Classeur1" ).Sheets(1).ComboBox1.AddItem ActiveWorkbook.Sheets(1).Range("A1" )   'Combobox1 à un nouvel item correspondant à la valeur de la cellule A1 (H5 dans ton exemple) du ficier ouvert
Workbooks("Classeur1" ).Sheets(1).ComboBox2.AddItem ActiveWorkbook.Name 'Combobox2 a un nouvel item qui correspond au nom du fichier ouvert
ActiveWorkbook.Close  'Clore le fichier ouvert
Next i    
End With
 
Voilà, ensuite, tu peux toujour faire un programme retranscrivant les valeur contenu dans chaque liste dans des cellules. Et utiliser la méthode Clear pour vider ta liste.