Discussion :

[djulegnome]

Bonjour

Je dois traiter plusieur fichiers Excel avec des fonctions de recherches de caract�res, de la concat�nation et des calculs. Evidemment chaque classeur contient plusieurs feuilles � traiter. Et mes users ajoutent une feuille chaque mois....
Donc avec un nom diff�rent.

Pour �viter de taper 10 000 lignes de codes, je voudrais savoir si il ya un moyen de traiter un classeur en une fois, sans lui sp�cifier le nom des feuilles?

Ca m'�viterait de faire une fonction qui vient lire le nom de chaque feuille pour d�terminer la derni�re....

A moins que je puisse uniquement traiter la derni�re feuille en date?
Mais ca non plus, je sais pas comment on fait.

[illight]

tu peux parcourir toutes tes feuilles si tu veux en faisant une boucle, en faisant une sorte de :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
dim i as integer
dim f as worksheet
for i = 1 to worksheets.count
set f = worksheets(i)
---code a effectuer sur chaque feuille
next i

[ouskel'n'or]

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RelireToutesLesFeuilleDeTousLesClasseurs()
    For Each LeClasseur In Application.Workbooks
        If LCase(LeClasseur.Name) <> "perso.xls" Then
            For Each LaFeuille In Workbooks(NomClasseur).Worksheets
                MsgBox LaFeuille.Name
                With Workbooks(LeClasseur.Name).Worksheets(LaFeuille.Name)
                     MsgBox Cells(2, 1).Value
  '***** C'est là que tu mets ton code s'il est le même pour toutes les feuilles ***
                End With
            Next LaFeuille
        End If
    Next LeClasseur
End Sub

Tu dis

A+


Profites-en pour ajouter le tag VBA-E et modifier ton ent�te, tous ceux qui posent des questions sont d�butant en quelque chose

[djulegnome]

tu peux parcourir toutes tes feuilles si tu veux en faisant une boucle, en faisant une sorte de :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
dim i as integer
dim f as worksheet
for i = 1 to worksheets.count
set f = worksheets(i)
---code a effectuer sur chaque feuille
next i

en gros, � chaque tour de boucle, je me sers de f pour me positionner sur la bonne feuille? c'est ca que tu veux dire?

parce qu'� la rigueur, si je peux directement r�cup�rer la valeur de worksheets.count, mon probl�me est r�gl�.

par contre, ce que j'ai du mal � comprendre c'est comment je vais pouvoir me servir de cette info....

ets ce qu'un truc de ce genre la ca peut marcher:

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
dim i as integer
dim f as worksheet
dim v as string

for i = 1 to worksheets.count
set f = worksheets(i)
---code a effectuer sur chaque feuille
v= worksheets(f).cells(1,3)
next i

[djulegnome]

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RelireToutesLesFeuilleDeTousLesClasseurs()
    For Each LeClasseur In Application.Workbooks
        If LCase(LeClasseur.Name) <> "perso.xls" Then
            For Each LaFeuille In Workbooks(NomClasseur).Worksheets
                MsgBox LaFeuille.Name
                With Workbooks(LeClasseur.Name).Worksheets(LaFeuille.Name)
                     MsgBox Cells(2, 1).Value
  '***** C'est là que tu mets ton code s'il est le même pour toutes les feuilles ***
                End With
            Next LaFeuille
        End If
    Next LeClasseur
End Sub

Tu dis

A+

La j'avoue que j'ai pas tout compris.....
c'est quoi ce perso.xls que tu compare?
et les leclasseur, la feuille m'embrouille pas mal....

dsl

[ouskel'n'or]

Illight, relis la question :

Je dois traiter plusieur fichiers Excel avec des fonctions de recherches de caract�res, de la concat�nation et des calculs. Evidemment chaque classeur contient plusieurs feuilles � traiter

[jimbololo]

djulegnome � �crit :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
 
dim i as integer
dim f as worksheet
dim v as string
 
for i = 1 to worksheets.count
set f = worksheets(i)
---code a effectuer sur chaque feuille
v= worksheets(f).cells(1,3)
next i

vu que f est d�clar�e comme worksheet, je pense que tu peux faire :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
 
v = f.cells(1,3)

maintenant je ne sais pas si se que tu as �cris marche

[ouskel'n'or]

Le perso.xls, qu'on place dans \Program Files\Microsoft Office\Office\XlOuvrir\ est un fichier masqu� dans lequel chaque utilisateur peut ins�rer des macros lui permettant de personnaliser "son" application Excel.
Et comme il est masqu�, si tu mets ce code, il est ignor�.
Tu peux remplacer �a par une gestion d'erreur au cas o� un fichier masqu� serait ouvert, avec on error resume next puis if err = 0 then

Tu dis

[ouskel'n'or]

jimbololo, m�me conseil qu'� illight relis la question :

Je dois traiter plusieur fichiers Excel avec des fonctions de recherches de caract�res, de la concat�nation et des calculs. Evidemment chaque classeur contient plusieurs feuilles � traiter

A+

[djulegnome]

vu que f est d�clar�e comme worksheet, je pense que tu peux faire :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
 
v = f.cells(1,3)

maintenant je ne sais pas si se que tu as �cris marche

du moment que la variable est d�clar�e correctement ca marche, reste � savoir si en utilisant f comme ca, ca fonctionne....

[jimbololo]

jimbololo, m�me conseil qu'� illight relis la question :

je reprenais juste le code de djulegnome, mais c'est vrai que j'ais pas trop lu se qu'il voulait vraiment faire

[djulegnome]

Le perso.xls, qu'on place dans \Program Files\Microsoft Office\Office\XlOuvrir\ est un fichier masqu� dans lequel chaque utilisateur peut ins�rer des macros lui permettant de personnaliser "son" application Excel.
Et comme il est masqu�, si tu mets ce code, il est ignor�.
Tu peux remplacer �a par une gestion d'erreur au cas o� un fichier masqu� serait ouvert, avec on error resume next puis if err = 0 then

Tu dis

je veux pas �tre d�sagr�able mais j'ai toujours pas compris....
J'ai pas de r�pertoire \Program Files\Microsoft Office\Office\XlOuvrir\
ca commence mal pour que je vois de quoi tu veux parler...

en m�me temps que j'�crivais ca, j'ai eu une illumination.
ca y est j'ai compris ton test de perso.xls!!

je vais bosser le reste maintenant.

merki

Ps: je met pas encore r�solu parce que je suis pas sur...

[djulegnome]

c'est bon j'ai tout compris, j'ai test� et tout.
c'est nikel, merki!