Erreur d'execution 1004

Résolu/Fermé
Mistral_13200 Messages postés 634 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 mars 2024 - 10 mars 2009 à 09:37
Le Pingou Messages postés 12045 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 25 avril 2024 - 10 mars 2009 à 17:18
Bonjour à tous,

J’ai développé un classeur, avec Excel 2002, dans lequel il y a plusieurs feuilles. Une seule de ces feuilles est visible à la fois. Pour passer d’une feuille à l’autre j’ai implanté des boutons auxquels j’ai associé des macros.
Cela fonction parfaitement bien sur mon PC et sur d’autres fonctionnant avec Excel 2007.
Par contre sur un PC équipé d’Excel 97 quand depuis la feuille « Bordereau » je clic sur le bouton de retour j’ai le message « Erreur d’exécution 1004. Erreur définie par l'application ou par l'objet » et je ne comprends pas pourquoi. Ci-dessous la macro liée à ce bouton.

'Trie du bordereaux dans l'ordre des N°.
ActiveSheet.Unprotect ("xxxxxx") 'Enlève la protection de la feuille.
Range("D28:G107").Select 'Zone de la feuille à trier.
Selection.Sort Key1:=Range("D28"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect ("xxxxxx") 'Remet la protection.
Range("D28").Select ' Retour en D28.
'Retour au menu.
Sheets("Menu").Visible = True ' Affiche la feuille menu.
Sheets("Bordereau").Select
ActiveWindow.SelectedSheets.Visible = False

Quelqu’un peut-il m’aider ?
D’avance merci
Mistral

5 réponses

Le Pingou Messages postés 12045 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 25 avril 2024 1 427
10 mars 2009 à 10:10
Bonjour,
Pouvez-vous préciser sur quelle ligne de code l'erreur se produit (est color en jaune !).
0
Mistral_13200 Messages postés 634 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 mars 2024 4
10 mars 2009 à 12:02
Merci pour cette réponse,
Dès que j'aurais l'info je la communiquerais.
Je viens d'envoyer une version de mon classeur, sans PW sur VBA, et en demandant de communiquer
la ligne au se produit l'erreur.
Je vous tiens au courant.
Mistral
0
Le Pingou Messages postés 12045 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 25 avril 2024 1 427
10 mars 2009 à 14:23
Bonjour,
Je suppose que l'erreur se produit sur cette patie du code :
Selection.Sort Key1:=Range("D28"), Order1:=xlAscending, Header:=xlNo, _ 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal 

Dans se cas il s'agit de l'instruction "DataOption1:=xlSortNormal " qui n'est pas disponible en version 97; vous pouvez la supprimer sans problème.
0
Mistral_13200 Messages postés 634 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 mars 2024 4
10 mars 2009 à 16:25
Tout d'abord merci de vous interesser a mon problème.

J'ai modifié en tenant compte de votre remarque. J'attends le résultats de la part de la personne qui a ce problème vu que moi je n'ai pas cette version d'Excel.
Par contre je me demande a quoi peut servir cette instruction "DataOption1:=xlSortNormal " puisque même en l'ayant supprimée chez moi, tout continue à fonctionner normalement.
Pouvez-vous m'éclairer sur le sujet?
D'autre part, comment cela se fait-il que Microsoft n'assure pas la compatibilité d'une version avec les version précédentes. Un fabricant n'a-t-il pas une obligation?

Dans tous les cas merci pour votre aide.
Cordialement.
Mistral
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou Messages postés 12045 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 25 avril 2024 1 427
10 mars 2009 à 17:18
Bonjour Mistral_13200,
Concernant : "DataOption1:=xlSortNormal " ---> Indique comment trier le texte de la plage spécifiée dans Key1 ; ne s'applique pas au tri des tableaux croisés dynamiques.
Pour xlSortNormal : Trie les données numériques et textuelles séparément.
Pour xlSortTextAsNumbers : Traite le texte comme des données numériques pour le tri.

Concernant : D'autre part, comment cela se fait-il que Microsoft n'assure pas la compatibilité d'une version avec les versions précédentes.
Attention ce paramètre a été introduit après la version 97 voir 2000, s’il se trouve dans le code il ne peut pas être reconnu par la version 97 se qui est correct (il ne s’agit pas de la version précédente dans se cas).
0