Probleme avec each sheets

Bonjour tout le monde,

Je sollicite votre aide pour un problème que je rencontre dans mon code VBA.
Mon objectif est de transférer des données contenues dans plusieurs feuilles de mon classeur Excel (qui ont toutes la même forme) vers un autre classeur Excel. Lorsque je lance mon code, toutes les données sont correctement transférées. Le problème survient lorsque toutes les feuilles du classeur sont passées à la "moulinette". Un message d'erreur apparait car mon code ne détecte pas correctement qu'il n'y a plus de feuilles dans le classeur. Voici le bout de code qui pose problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Set WBfirst = ActiveWorkbook ' Ouverture du fichier Excel. Il s'appelle New 'Workbooks.Open ("D:\Documents and Settings\...\New.xls") If MsgBox("Après avoir cliquer sur Oui, veuillez selectionner le fichier Excel New.xls; sinon cliquer sur non.", vbYesNo, "Recherche du fichier New") = vbYes Then Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Workbooks.Open Filename:=Nom_Fichier End If Else Exit Sub End If Set WBsecond = ActiveWorkbook   WBfirst.Activate         For Each sht In Worksheets Debug.Print sht.Name If sht.Name <> "Telecommande" Then sht.Select 'Sélection de old WBfirst.Activate

---

Voici le message d'erreur :
"Erreur d’exécution '1004' :
La méthode Select de la classe Worksheet a échoué."


Avez vous déjà rencontré ce problème ? Est-ce que cela vient de ma boucle each sheet ? Connaissez vous une solution à apporter ?

Merci d'avance pour vos réponses !!!

Bonjour,

Code:

---

1 2 3 4

for i = 1 to Sheets.Count msgbox Sheets.Item(i).name next

---

Merci pour ta réponse rapide, cependant je ne vois pas comment intégrer ce code. J'ai essayé plusieurs choses mais je rencontre toujours des problèmes :

J'ai fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Set WBfirst = ActiveWorkbook ' Ouverture du fichier Excel qui sera à la fin importé dans Matrisk. Il s'appelle New 'Workbooks.Open ("D:\Documents and Settings\VXWC192\Bureau\Mission 18\New.xls") If MsgBox("Après avoir cliqué sur Oui, veuillez selectionner le fichier Excel New.xls; sinon cliquer sur non.", vbYesNo, "Recherche du fichier New") = vbYes Then Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Workbooks.Open Filename:=Nom_Fichier End If Else Exit Sub End If Set WBsecond = ActiveWorkbook WBfirst.Activate           'application du code à toutes les feuilles   for i = 1 to Sheets.Count   ... 'mon code de copie/colle des données ... next end sub

---

Je ne comprends pas pourquoi mon code de copie/colle ne s'applique que dans une feuille. Il ne se passe rien pour les autres feuilles. Petite précision : mes feuilles de mon classeur où les données sont présentes n'ont aucun nom en commun : par exemple : feuille1, ancien, nouveau, perte, gain.

Re,

Tu peux nous montrer plus de code dans ta boucle for ?

Citation:

---

for i = 1 to Sheets.Count

...
'mon code de copie/colle des données
...
next

---

Oui bien sûr :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

Set WBfirst = ActiveWorkbook ' Ouverture du fichier Excel. Il s'appelle New 'Workbooks.Open ("D:\Documents and Settings\...\New.xls") If MsgBox("Après avoir cliqué sur Oui, veuillez selectionner le fichier Excel New.xls; sinon cliquer sur non.", vbYesNo, "Recherche du fichier New") = vbYes Then Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Workbooks.Open Filename:=Nom_Fichier End If Else Exit Sub End If Set WBsecond = ActiveWorkbook WBfirst.Activate     For Each sht In Worksheets Debug.Print sht.Name If sht.Name <> "Telecommande" Then sht.Select           'Sélection du premier classeur WBfirst.Activate ' 1. Copie de la feuille i Cells.Copy WBsecond.Activate Range("C4").Select ' 2. Création de la feuille Alpha dans le second classeur (New). Set sh = Sheets.Add sh.Name = "alpha" ' 3. Collage de la feuille copiée du premier classeur dans Alpha Cells.PasteSpecial i = 173 ' 4. Copie des différents éléments dans les bonnes colonnes pour l'importation finale. Cells(14, 7).Copy Cells(i, 5).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Cells(17, 6).Copy Cells(i, 13).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   If (Cells(i, 13) = "avéré") Then Cells(i, 13) = 1 Else Cells(i, 13) = 0 End If   Rows(i).Copy Sheets("Data").Select j = Range("A65536").End(xlUp).Row j = j + 1 Rows(j).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   '6. Suppression de la feuille Alpha qui n'est plus utile Sheets("alpha").Delete   '7. Fermeture et sauvegarde ' Workbooks("New.xls").Close savechanges:=True   End If WBfirst.Activate Next

---

Donc je fais :
Lancement de mon code depuis le fichier WBfirst. J'ouvre mon second classeur nommé new (WBsecond). Je reviens dans mon premier classeur. Boucle sur les feuilles de mon classeur. Je copie la feuille 1, j'ouvre mon second classeur. Je crée une feuille alpha. Sur cette feuille, je colle mes données. Je copie/colle mes données dans la ligne i de manière organisée. Une fois que toutes les données que je souhaite sont copiées/collées dans la ligne i, je copie cette ligne et je la colle dans ma feuille data (présente dans le classeur new à la base), à la suite des données déjà entrées. Je supprime ma feuille alpha. Je repars dans mon premier classeur (boucle) dans ma seconde feuille. Je réitère les étapes précédentes.
...
Jusqu'à ce que tout soit importé.
Enfin je ferme mon classeur en enregistrant (code mis en pause pour l'instant, tant que ça fonctionne pas correctement : étape 7 ).

Re,

Il y a un truc que j'ai du mal à comprendre (j'ai peut-être regardé trop vite) :

A l'étape 3, tu copies les données dans "alpha" et ensuite, tu fais un Sheets("alpha").Delete

Oui c'est ça.

Je crée dans mon second classeur une feuille alpha sur laquelle je colle la première feuille de mon premier classeur. Je copie / colle les données de manière ordonnée sur cette feuille alpha à la ligne 173 (i) (ligne qui est toujours vide). Je copie cette ligne que je colle dans ma feuille data. Une fois la ligne copiée, je supprime la feuille alpha. Je reviens sur mon premier classeur, je copie la seconde feuille. Je reviens sur mon second classeur. Je re-crée une feuille alpha et c'est reparti : copie/colle en ligne i ...

Re,

Cette ligne affiche bien le noms de toutes les feuilles ?

Code:

---

1 2	Debug.Print sht.Name

---

Code:

---

Debug.Print sht.Name

---

Je ne comprends pas totalement à quoi sert cette ligne. D'après ce que j'ai compris avec cette ligne de code on se place sur le nom (le titre) de la feuille de mon classeur. Ensuite avec la suite du code, on cherche à savoir si le titre de la feuille est différent du mot "Telecommande". Un mot pris de manière arbitraire car je ne pense pas qu'une personne appellerait sa feuille de ce nom là. Du coup je passe en revue l'ensemble des feuilles de mon classeur une à une. sht.select permet de sélectionner la feuille en "activation".

Suite du code :

Code:

---

1 2 3 4

For Each sht In Worksheets Debug.Print sht.Name If sht.Name <> "Telecommande" Then sht.Select

---

Bonjour,

un bon code est sans Select !

Lire l'aide VBA intégrée de la méthode Range.Copy - et son exemple - et aussi ceci pour moins de souci …

Merci pour ta réponse Marc-L. Le problème est que je viens de passer une semaine sur mon code que je dois rendre d'ici demain matin. Je n'aurai pas le temps de tout reprendre. Je dois faire avec ce que j'ai, d'autant plus que tout fonctionne excepté le message d'erreur à la fin . "L'importation" et l'agencement des données marche parfaitement.
Une idée du comment résoudre le problème "Erreur d’exécution '1004' :
La méthode Select de la classe Worksheet a échoué. " ?

La prochaine fois que j'aurais ce type de problème à traiter, j'utiliserai ton code qui est bien plus rapide :)

Précision : le code que j'ai mis n'est qu'une partie de mon code total concernant le déplacement des données. Il y a un peu plus de 50 parties à copier / coller !

Ne reste alors que le décodage manuel :

en mode pas à pas (via la touche F8) vérifier les valeurs des variables de la ligne déclenchant l'erreur …

Bonne continuation !

ahhhhhhh le pas à pas, que c'est pas ch***, mais qu'est-ce que c'est pratique :mrgreen:

Par contre, peux-tu nous dire sur quelle ligne ça plante dans ton code ?

Le problème survient au niveau de

Code:

---

sht.Select

---

En pas à pas le problème survient à la toute fin, une fois que toutes les feuilles sont passées. Il n'en reste plus à traiter. Excel ne détecte pas le fait qu'il n'y en a plus et tente de sélectionner une feuille supplémentaire (qu'il n'y a donc pas).

CQFD : Select à proscrire donc !

Bonjour,
Finalement on me laisse un peu plus de temps pour finir mon projet VBA (quelques heures). Des idées sur comment résoudre mon problème ?