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!