Méthode worksheets.copy : excel stop

Version imprimable

Bonjour,

J'ai un problème avec la méthode worksheets.copy dans excel.
J'ai une feuille nommée "R1" qui est une feuille de résultats vierge. En début de traitement, je supprime la feuille "Résultats1" et puis je copie la feuille "R1" en "Résultats1". Par la suite, j'affiche les différents résultats dans cette dernière feuille.
Tout fonctionnait jusqu'à maintenant mais voilà qu'une collègue qui utilise le fichier excel sous Windows XP SP2 et office 2003 n'arrive plus à traiter les données : excel stoppe à la ligne

Code:

Worksheets("R1").Copy after:=Worksheets(Worksheets.Count)

sans afficher aucune erreur. J'ai essayé en mettant à la place

Code:

ThisWorkbook.Worksheets("R1").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

ou encore

Code:

Worksheets("R1").Copy after:=Worksheets(1)

mais rien ni fait. Je ne vois vraiment pas ce que je pourrais faire d'autre. J'ai fait une recherche sur msdn et je n'ai rien trouvé de concluant. Quelqu'un aurait-il une idée ?

Voilà le code complet de la fonction qui pose problème.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Function maz_résultats() ' supprime la feuille résultats1 If (sheetexists("Résultats1") = True) Then Application.DisplayAlerts = False Worksheets("Résultats1").Visible = True Worksheets("résultats1").Delete Application.DisplayAlerts = True End If ' copie la feuille R1 en Résultats1 Worksheets("R1").Visible = True Worksheets("R1").Activate Worksheets("R1").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = "Résultats1" Worksheets("R1").Visible = False End Function

20/12/2006, 23h16
ouskel'n'or

Code:

Sheets("Feuil1").Copy after:=Worksheets(ThisWorkbook.Worksheets.Count)

Si ton code n'est pas dans le classeur dont tu copies une feuille, remplace ThisWorkbook par
Workbooks("NomFichier").Worksheets.Count)
Explication sur la raison pour laquelle ton code ne fonctionne pas : l'endroit où tu places ta feuille se trouve après une feuille, pas après un classeur. D'autre part count concerne le nombre de feuilles que tu as dans ton classeur, pas dans une feuille ;)
A+

Edit
Une autre chose : Utiliser une fonction sans récupérer quoi que ce soit ne sert à rien. Une sub ferait aussi bien l'affaire.

salut. j'ai utilisé ton code de cette maniere puisque je n'ai pas cette fonction sheetexist
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub maz_résultats() 'supprime la feuille résultats1 'If (sheetexists("Résultats1") = True) Then Application.DisplayAlerts = False Worksheets("Résultats1").Visible = True Worksheets("résultats1").Delete Application.DisplayAlerts = True 'End If ' copie la feuille R1 en Résultats1 Worksheets("R1").Visible = True Worksheets("R1").Activate Worksheets("R1").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = "Résultats1" Worksheets("R1").Visible = False End Sub
et ma foi il fonctionne normalement. il y a un truc qui m'échappe. comment sait tu qu'il s'arrete sur cete ligne si tu n'as aucun message d'erreur? tu en as forcement un. en général, le code ne se modifie pas tout seul, donc cherche peut etre plus du coté du nom et de la présence des feuilles R1 et résultats. verifie l'orthographe et la casse. si tu a deux classeur ouverts, verifie qu'il ne colle pas la feuille r1 a un autre endroit. ça serais la seule explication pour que le code s'execute sans message d'erreur et reste invisible pour toi

ouskel, tu es infiniment plus fort que moi dans la matiere, mais je ne comprend pas ce que tu dis

Code:

dixit : Explication sur la raison pour laquelle ton code ne fonctionne pas : l'endroit où tu places ta feuille se trouve après une feuille, pas après un classeur

dans la ligne

Code:

Worksheets("R1").Copy after:=Worksheets(Worksheets.Count)

dans cette ligne moi je lis copie after la feuille(4) si tu as 4 feuilles dans le classeur et ça m'a l'air tout a fait correct

21/12/2006, 09h49
agro

Pour répondre à ta question alsimbad, lorsque l'on lancait les traitements on avait juste la feuille R1 qui s'affichait sans qu'aucun message d'erreur n'apparaisse. J'ai alors mis un point d'arrêt au début de la procédure maz_résultats et j'ai fais du pas à pas. J'ai remarqué que le programme stoppait après être passé sur la ligne

Code:

Worksheets("R1").Copy after:=Worksheets(Worksheets.Count)

La feuille R1 est visible, les feuilles R1(2) et Résultats1 n'existent pas et je n'ai pas d'autre classeur ouvert.

ouskel, je ne travaille qu'avec un seul classeur Excel et qui plus est le code fonctionne car çà plante juste sur 2 PC alors que le programme fonctionne parfaitement sur une vingtaine d'autres PC.
21/12/2006, 09h58
SilkyRoad

bonjour

la fonction maz_résultats est lancée depuis une autre procédure?
si oui, est ce que cette procédure contient une ligne style

Code:

On Error Resume Next

michel
21/12/2006, 10h06
agro

Effectivement, la fonction maz_résultats est lancée depuis une autre procédure (en fait le clic sur le bouton traitement) mais il n'y a pas de gestion d'erreur dans cette procédure. De toute façon, j'ai testé en modifiant les options de récupération d'erreur pour que le débogeur arrête sur toutes les erreurs.
21/12/2006, 12h24
ouskel'n'or

As-tu essayé

Code:

Sheets("Feuil1").Copy after:=Worksheets(ThisWorkbook.Worksheets.Count)

Car cette syntaxe fonctionne aussi bien sur VBA97 que 2003 ;)
A+
21/12/2006, 14h44
agro

Je m'excuse ouskel mais je ne vois pas ce qui change entre

Code:

Sheets("Feuil1").Copy after:=Worksheets(ThisWorkbook.Worksheets.Count)

et

Code:

Worksheets("R1").Copy after:=Worksheets(1)

Qui plus l'application fonctionne sur certains ordi avec office 2003 et çà fonctionnait chez ma collègue jusqu'il y a 2-3 semaines...
21/12/2006, 17h51
alsimbad

personellement, je ne vois pas du tout. manifestement le code n'est pas en cause. tu devrais peut etre essayer de faire ces manip manuellement pour voir si le excel de ce pc n'a pas quelque raté, un virus ou quelque chose du genre, peut etre meme essayer de reinstaller excel. je ne vois que ça.
bon courage
21/12/2006, 18h41
ouskel'n'or

Citation:

Envoyé par alsimbad

personellement, je ne vois pas du tout. manifestement le code n'est pas en cause.

+1
As-tu essayé sur un classeur tout neuf, chez ta collègue ? Avec l'une ou l'autre de toutes les solutions proposées ?
Bonne chance. Mais dis-nous si tu trouves ;)
22/12/2006, 08h35
agro

alsimbad, j'ai fait toutes les étapes manuellement et çà passe sans problèmes. ouskel, je n'ai pas testé avec un nouveau classeur vide : je lui ai juste envoyé une nouvelle copie du classeur au cas où il y aurait une merde dans le classeur qu'elle utilise. Mais çà n'a rien changé.

Merci pour toutes vos réponses, je vous tiens au courant où cas où je trouve finallement d'où vient le problème.
22/12/2006, 20h25
alsimbad

oui, tiens nous au courant, on est pas a l'abris. tu peux peut-etre essayer aussi de mettre une autre commande que copie after, juste pour voir si c'est pas cette fonction qui est en cause. on sait jamais, peut etre une bibliotheque absente sur son ordi.
amuse toi bien