bonjour à tous,

le code suivant permet de manipuler un classeur en masqué
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
 
Sub MaSub()
 
'Ouvrir le classeur dont on a besoin avec tout le chemin...
Set xlBook = xlApp.Workbooks.Open("LeNomDufichier.xls")
Set xlSheet = xlBook.Sheets("Feuil1") ' si on veut utiliser une feuille en particulier
 
'Pour vérifier que tout fonctionne bien
MsgBox xlSheet.Range("C8")
 
'Important en quittant le programme ou quand on n'en a plus besoin (pas nécessairement ici...)
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
 
End Sub
moi je voudrais boucler sur tous les onglets, du coup j'ai testé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For Each xlSheet In xlBook
 
 
MsgBox xlSheet.Range("A8")
 
Next xlSheet
mais c'est pas bon, si vous pouvez me suggérer quelque chose

Merci d'avance