Problème de copie de feuille

[Jo]

J'ai un problème en VBA, j'essaie de recopier une feuille à un endroit précis, mais la méthode échoue, erreur 1004 (la méthode Copy de la classe Worksheet a échoué). Voici le code :

If FirstOP = True Then
FirsOP = False
If Support_pays.Choix_support.Text = "ROANNAIS" Then
Worksheets(1).Visible = True
Worksheets(1).Select
'Worksheets(2).Visible = False
Else
Worksheets(2).Visible = True
Worksheets(2).Select
'Worksheets(1).Visible = False
End If
Else
' Création de la feuille si elle n'est pas existante
'
If Support_pays.Choix_support.Text = "ROANNAIS" Then
Worksheets("Facture Roannais").Copy Before:=Sheets("Produits")
Else
Worksheets("Facture Mag").Copy Before:=Worksheets("Produits")
End If

Merci de me dépanner

 

[Ti]

Normalement cette macro devrait fonctionner. N'aurais-tu pas protégé ton classeur, ce qui expliquerait l'erreur 1004.

 

[Jo]

Non, le classeur n'est pas protégé. Je vais essayer de faire un nouveau classeur avec juste une feuille, un bouton et une macro simple de copie. Je te tiens au courant.

 

[Jo]

J'ai essayé sur un autre PC avec Office 97, même résultat ! Par contre,
Worksheets.add fonctionne, il n'y a que copy qui ne marche pas !

 

[Ti]

essaie de faire un test avec l'enregistreur de macros. Tu te places sur ta feuille "Facture Roannais" par ex., tu cliques sur l'onglet puis tu fais "déplacer ou copier" et enfin tu coches l'option "créer une copie". Tu verras bien le code que ça te donne.
En tout cas, sur Excel 2000, copy fonctionne sans prob.

 

[Jo]

Ok ! Avec cette méthode ça marche. Je n'ai pas le temps de pousser plus loin pour l'instant, mais je vais revoir tout ça bientôt. Merci Ti