Méthode SaveAs fonctionne sous Excel 2003 mais pas sous 2000...

Question

Bonjour tout le monde !

Un petit problème avec la méthode SaveAs et la boîte de dialogue associée...
La ligne suivante fonctionne sous VBA avec Excel 2003 (et 2007), mais ne fonctionne plussous Excel 2000 :

         Application.Dialogs(xlDialogSaveAs).Show ("NouveauProjet.xls")

Pour info cette ligne est appelée par un click_bouton dans une UserForm, et j'obtiens une " Erreur d'exécution '91' " sans que la boîte de dialogue ne souvre.
J'ai testée la formule suivante, trouvée sur ce forum, pour le cas où la référence "Microsoft Excel Object Library" ne soit pas cochée (elle l'est, d'ailleurs) : 

          Application.Dialogs(5).Show ("NouveauProjet.xls")

Et visiblement ça ne change rien  !!!
Impossible non plus de trouver une solution alternative.

Merci d'avance pour toute ébauche de solution !

hebus16 · Answer

Salut,

  je peux pas vérifier vu que je n'ai plus le 2000 mais regarde si ta fonction ne renvoie pas un objet ... j'ai des doutes mais vu le numéro d'erreur ... il considère qu'un objet n'est pas définit ....

un petit F1 sur le show ou sur le Dialogs devrait t'en dire plus ...

bon courage

cs_Pajak · Answer

Petite précision : je n'ai pas Excel 2000 non plus ! (bientôt sans aucun doute...)

Je travaille à distance sur 2003, et les utilisateurs de la macro sur 2000...
Chez moi cela fonctionne, et chez eux non !
Il faut savoir qu'avant cette petite ligne supplémentaire, tout marchait très bien chez eux.

Question : "Comment est-il possible qu'un objet soit manquant (erreur 91) dans Excel 2000 et pas dans Excel 2003, sachant d'après une source extérieure que cette commande fonctionne sous Excel 2000 ???"

- Ca ne vient a priori pas d'Excel 2000 puisque la commande est ok.
- Ca ne vient a priori pas des références associées à cette méthode puisqu'on peut contourner avec Dialogs(5).
- Ca ne vient a priori pas des lignes de code puisque ça tourne sur Excel 2003.

- Eh ben, je suis mal moi.

hebus16 · Answer

ah dans le doute, un truc stupide... il est possible que tes utilisateurs de ta macro n'aient pas ton NouveauProjet.xls 

 Application.Dialogs(5).Show ("NouveauProjet.xls")

genre qu'ils aient renommé ton fichier ^^ truc simple mais qui peut énerver

cs_Pajak · Answer

Hé béé...

Ce peut être la bonne piste en effet...
"NouveauProjet.xls" est sensé être le nom du fichier par défaut affiché dans la boîte dialogue Enregistrer Sous.

J'ai l'impression que "NouveauProjet.xls" ne convient pas pour le nom par défaut sous Excel 2007, et qu'il faut plutôt écrire "NouveauProjet" tout court...
En revanche, sous Excel 2003, "NouveauProjet.xls" tout comme "NouveauProjet" fonctionnent et affichent "NouveauProjet" dans le nom par défaut.

Est-ce qu'une âme charitable aurait le temps d'infirmer/confirmer cette supputation sous Excel 2000 ??

cs_Pajak · Answer

Je ne sais pas éditer mes messages !...

Du coup je reviens sur mon post précédent : 

En effet les nouvelles extensions étaient en cause pour Excel 2007, il suffisait de renseigner ".xlsm" ou ".xlsx" et non pas ".xls"...

A priori donc, mon problème ne vient pas de l'affichage du nom par défaut sous Excel 2000.

Zut.

Merci tout de même Hebus16, mais l'argument "NouveauProjet.xls" définit simplement le nom du fichier à enregistrer par défaut dans la boîte de dialogue.
En aucun cas l'utilisateur n'a besoin de "posséder" ce fichier...

hebus16 · Answer

Essaye ça ... je suis pas convaincu mais on ne sait jamais 

Dim WB_SAUVE as Workbook

Set WB_SAUVE = Application.Dialogs(5).Show ("NouveauProjet.xls")

là je vais commencer par manquer d'idée ... sans le système ça va être chaud

cs_Pajak · Answer

Au temps pour moi !

Je viens d'installer enfin Excel 2000, et ... ça marche !

Bon du coup ça ne me fait que moyennement rire ; parce que j'imaginerais bien un problème d'installation incomplète d'Excel chez mes utilisateurs, où alors des références pas au rendez-vous... Je pense que la seule solution restante consiste à aller voir directement sur leurs bécanes...

Merci pour ton aide Hebus, je posterai la solution d'ici quelques jours j'espère...

hebus16 · Answer

... ça sent les postes foireux où les users pas capable d'utiliser ta macro .... moi j'ai connu ça depuis je veux plus les voir :p fais attention on commence comme ça et on finit asocial mdr

Méthode SaveAs fonctionne sous Excel 2003 mais pas sous 2000...

8 réponses

Votre réponse

Discussions similaires