Discussion :

[awa123]

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

[gnain]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 For i = 1 To xlBook.Worksheets.Count
    Set xlSheet = xlBook.Sheets(xlBook.Worksheets(i).Name)
    MsgBox xlSheet.Range("A1")
 
 Next