Bonjour,
Je suis débutant en VBA
Je cherche un bout de code me permettant de faire les actions suivantes. J'ai dans un même répertoire plusieurs classeurs et j'aimerais :
- Que Excel calcule le nombre de feuilles de chaque classeur contenu dans ce répertoire et insère la valeur dans la prochaine cellule disponible de la colonne A a partir de la cellule A12 (des infos sont saisies de A1 a A12
-Que Excel report le nom du classeur en face du nombre de feuilles dans la colonne B a partir de la cellule B12 (exemple nombre de feuilles en A18; nom du classeur en B18)
Merci
Voici le code que j'ai commencé a écrire mais celui ci beug
Je suis débutant en VBA
Je cherche un bout de code me permettant de faire les actions suivantes. J'ai dans un même répertoire plusieurs classeurs et j'aimerais :
- Que Excel calcule le nombre de feuilles de chaque classeur contenu dans ce répertoire et insère la valeur dans la prochaine cellule disponible de la colonne A a partir de la cellule A12 (des infos sont saisies de A1 a A12
-Que Excel report le nom du classeur en face du nombre de feuilles dans la colonne B a partir de la cellule B12 (exemple nombre de feuilles en A18; nom du classeur en B18)
Merci
Voici le code que j'ai commencé a écrire mais celui ci beug
Code:
Sub CLASSEUR()
Dim wbk As Excel.Workbook
fold_up = ThisWorkbook.Path
For Each wbk In fold_up
Sheets("feuil1").Select
Range("A12").Select
Range(Selection, Selection.End(xlToDown)).Select
Selection = Workbook.Sheets.Count
Next wbk
End Sub
Dernière édition: