Erreur d'execution 1004
Résolu
Mistral_13200
Messages postés
649
Statut
Membre
-
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Erreur d'execution 1004
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
5 réponses
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
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
Bonjour,
Je suppose que l'erreur se produit sur cette patie du code :
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.
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.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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).
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).
