Probleme macro passage de excel 2000 a 2003

[j.h.a]

bonjour,

voila j'ai crée une macro simple que vous pouvez voir si dessous mais voila nous somme passé a excel 2000 a excel 2003 et rien ne passe losque je lence la macro.

merci d'avance de votre aide.

Private Sub CommandButton1_Click()
On Error Resume Next
If Err <> 0 Then
Worksheets("Modèle2 (2)").Delete
Worksheets("Modèle1 (2)").Delete
End If
Worksheets("Modèle1").Copy before:=Worksheets("Modèle1")
Worksheets("Modèle1 (2)").Name = (Worksheets("controle").Range("a1"))

Worksheets("Modèle2").Copy before:=Worksheets("Modèle1")
Worksheets("Modèle2 (2)").Name = (Worksheets("controle").Range("a2"))

On Error Resume Next
Worksheets("Modèle1 (2)").Select
If Err <> 0 Then
Else
MsgBox "les Feuilles existe déja veuillez cliquer 2 fois sur supprimer après avoir cliqué sur OK"

Worksheets("Modèle2 (2)").Delete
Worksheets("Modèle1 (2)").Delete


End If

End Sub

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

bonjour a tous

voila je ne trouve pas si vous avez idée un jour je serai heureux de le savoir sinon pas de problème moi j'abdique car je bosse pour une entreprise pouris voila se qui me réponde lorsque j'ai signaler le problème a l'informatique.

""Nous n’assurons aucun support en ce qui concerne Excel.
Les macros crées dans Excel par les utilisateurs sont de leur responsabilité"".

merci de votre interet et joyeuse fête.

 

[PascalXLD]

Re : Probleme macro passage de excel 2000 a 2003

Re

Bon perso pas de problème

Je viens de refaire le test avec 2003 et j'ai bien 2 feuilles de créées

1 qui s'appelle "sem 52" et l'autre "51-52-53"

Verifies sinon dans VBE outils > references si tu n'as pas des references notées manquantes et dans ce cas là décoches-les