VBA-E comment exécuter un code sur un classeur complet?

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.

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

Code:

---

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

---

Code:

---

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 ;)

Citation:

---

Envoyé par illight

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

Code:

---

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:

---

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

---

Citation:

---

Envoyé par ouskel'n'or

Code:

---

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:oops:

Illight, relis la question :

Citation:

---

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

---

Citation:

---

djulegnome à écrit :

Code:

---

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:

---

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

---

maintenant je ne sais pas si se que tu as écris marche :?

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

jimbololo, même conseil qu'à illight ;) relis la question :

Citation:

---

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+

Citation:

---

Envoyé par jimbololo

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

Code:

---

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....

Citation:

---

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 :oops:

Citation:

---

Envoyé par 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

---

je veux pas être désagréable mais j'ai toujours pas compris....:oops:
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!!:lol:

je vais bosser le reste maintenant.

merki

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

c'est bon j'ai tout compris, j'ai testé et tout.
c'est nikel, merki!:mrgreen: