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

 

[RENAUDER]

Re : Probleme macro passage de excel 2000 a 2003

Bonjour,

Sans fichier c'est difficile...

 

[bqtr]

Re : Probleme macro passage de excel 2000 a 2003

Bonjour j.h.a

Ta macro fonctionne sous Excel 2003.
Le problème vient peut-être du bouton qui lance la macro.

Il doit être créer avec :
Affichage/Barres d'outils/Boîtes à Outil Contrôles

Le code doit se trouver dans le module de code de la feuille où il y a le bouton. (click droit sur l'onglet de la feuille puis visualiser le code)

A+

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

bonjour,

oui j'ai essaillé de la lancé depuis visual basik idem rien

merci encore

Ps. precision la macro foncitionne avec excel 2000 mais pas avec excel 2003

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

Bonjour,

Sans fichier c'est difficile...

ok je vous l'ai envoyé

meilleur salutation

 

[jeanpierre]

Re : Probleme macro passage de excel 2000 a 2003

Bonsoir le fil,

En dessous de ce post, Options avancés si besoin, Gérer les pièces jointes, rechercher ou parcourir sur ton disque, selectionné et Uploader....

Merci de Zipper le fichier avant, préférable, enfin pour moi, et moins lourd pour tous. (-de 48Ko)

Bonne soirée.

Jean-Pierre

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

bonjour,

voici le fichier en piéce jointe

meici encore

 

[PascalXLD]

Re : Probleme macro passage de excel 2000 a 2003

Bonsoir

tu entends quoi par ne fonctionne pas

Elle bug ou rien ne se passe

Tu as peut-être tout simplement un niveau de sécurité haut avec excel2003 et ta macro n'est pas activée

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

alors il ne se passe rien et le niveau de securité n'est pas trop elevé.

merci encore de votre aide

 

[PascalXLD]

Re : Probleme macro passage de excel 2000 a 2003

alors il ne se passe rien et le niveau de securité n'est pas trop elevé.

merci encore de votre aide

Il faut que ton niveau de sécurité soit sur moyen

Si c'est très élevé ou éleve tout court tu n'auras pas tes macros en service

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

oui je sais vous pouvez voir le fichier sur le message precedent.

merci encore

 

[PascalXLD]

Re : Probleme macro passage de excel 2000 a 2003

perso testé avec 2003 et ça se lance

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

perso testé avec 2003 et ça se lance

vous voulez dire que les deux page son créer ?????

bon alors d'ou ca peux venir c'est notre excel qui foire.

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

bonjour,

j'ai regarder de plus prés et ma macro s'arete a la ligne

Worksheets("Modèle1").Copy Before:=Worksheets("Modèle1")

franchement je n'y comprem plus rien

 

[j.h.a]

Re : Probleme macro passage de excel 2000 a 2003

bonjour,

voila j'ai dotre teste j'ai recreé une macro en utilisent le sitème crée une nouvelle macro idem la macro s'arrete a la deuxième ligne

qui est Sheets("Modele1").Copy Before:=Sheets(1)

pourrait il avoir une fonction dans excel qui empeche de faire des copy par macro ?????

merci encore de votre aide


Sheets("Modele1").Select
Sheets("Modele1").Copy Before:=Sheets(1)
Sheets("Modele1 (2)").Select
Sheets("Modele1 (2)").Name = "Sem 1"
Sheets("Modele2").Select
Sheets("Modele2").Copy Before:=Sheets(2)
Sheets("Modele2 (2)").Select
Sheets("Modele2 (2)").Name = "0-1-2"
Sheets("controle").Select