OVH Cloud OVH Cloud

Erreur d'execution 1004...

4 réponses
Avatar
Scual
Voilà mon problème:
j'ai une macro qui permet d'importer un fichier texte etc...
Tout se passe à merveille lorsque j'ouvre le fichier contenant la macro à
partir d'excel (c'est une macro qui s'exécute automatiquement à l'ouverture
du fichier).
Par contre, lorsque j'ouvre le fichier directement (par double clic sur son
icone, i.e. sans ouvrir excel au préalable), j'ai une erreur d'execution
1004, et lorsque j'utilise le debugger, l'erreur pointée est :
.Refresh BackgroundQuery:=False
J'ai bien essayé de passer en True, de le commenter, bref de bidouiller, de
trouver des solutions sur le net mais queneni!
Si vous avez une idée, elle est la bienvenue !
Merci d'avance :-)

4 réponses

Avatar
MichDenis
Bonjour Scual,

As-tu essayé l'événement "Activate" à l'intérieur du module de la feuille où les données doivent s'afficher ?

Obtiens-tu la même erreur, si tu utilises l'événement "Activate" dans le ThiWorkbook ?


Salutations!



"Scual" a écrit dans le message de news:

Voilà mon problème:
j'ai une macro qui permet d'importer un fichier texte etc...
Tout se passe à merveille lorsque j'ouvre le fichier contenant la macro à
partir d'excel (c'est une macro qui s'exécute automatiquement à l'ouverture
du fichier).
Par contre, lorsque j'ouvre le fichier directement (par double clic sur son
icone, i.e. sans ouvrir excel au préalable), j'ai une erreur d'execution
1004, et lorsque j'utilise le debugger, l'erreur pointée est :
.Refresh BackgroundQuery:úlse
J'ai bien essayé de passer en True, de le commenter, bref de bidouiller, de
trouver des solutions sur le net mais queneni!
Si vous avez une idée, elle est la bienvenue !
Merci d'avance :-)
Avatar
Scual
As-tu essayé l'événement "Activate" à l'intérieur du module de la feuille
où les données doivent s'afficher ?

Merci pour ta réponse! Bon, j'ai toujours le même problème, mais je ne suis
pas sûr d'avoir fait ce que tu me proposes.
Voilà ce que j'ai fait :
Sub auto_open()
ThisWorkbook.Activate
... (je n'ai rien changé au reste)

Obtiens-tu la même erreur, si tu utilises l'événement "Activate" dans le ThiWorkbook ?
J'obtiens la même erreur, au même endroit, c'est à dire sur le:

.Refresh BackgroundQuery:úlse
Peut être que je n'ai pas saisi la commande tel qu'il le faudrait ? Ou bien
doit-on chercher une autre solution ??

Salutations!

Avatar
MichDenis
Bonjour Scrual,

| Sub auto_open()
| ThisWorkbook.Activate
| ... (je n'ai rien changé au reste)


Je crois que l'on ne sait pas compris.

Ouvre le module de la feuille où tu as placé ton QueryTable, dans le haut de ce module, dans la liste déroulante de
gauche, tu choisis Worksheet et dans la liste déroulante de droite, tu choisis l'événement Activate ... et tu copies ta
procédure là ! Pour les besoins du test, tu dois désactiver ta procédure Auto_Open ou simplement lui attribuer un autre
nom.

Je t'avais aussi suggéré d'essayer l'événement "Activate" qui se situe dans le ThisWorkbook.

Est-ce plus clair ?


Salutations!



"Scual" a écrit dans le message de news:

As-tu essayé l'événement "Activate" à l'intérieur du module de la feuille
où les données doivent s'afficher ?

Merci pour ta réponse! Bon, j'ai toujours le même problème, mais je ne suis
pas sûr d'avoir fait ce que tu me proposes.
Voilà ce que j'ai fait :
Sub auto_open()
ThisWorkbook.Activate
... (je n'ai rien changé au reste)

Obtiens-tu la même erreur, si tu utilises l'événement "Activate" dans le ThiWorkbook ?
J'obtiens la même erreur, au même endroit, c'est à dire sur le:

.Refresh BackgroundQuery:úlse
Peut être que je n'ai pas saisi la commande tel qu'il le faudrait ? Ou bien
doit-on chercher une autre solution ??

Salutations!

Avatar
Scual
Merci encore pour ta réponse, mais cela ne résout pas mon problème.
Ouvre le module de la feuille où tu as placé ton QueryTable, dans le haut de ce module, dans la liste déroulante de
gauche, tu choisis Worksheet et dans la liste déroulante de droite, tu choisis l'événement Activate ... et tu copies ta
procédure là !
Alors quand je double-clique dans le module où j'ai placé mon QueryTable,

dans le haut du module, je n'ai que (Général) dans la liste déroulante de
gauche, et dans la liste déroulante de droite, je n'ai que le nom de mes
macros.
J'ai essayé en double-cliquant dans ThisWorkbook, là j'ai Workbook et
(général) dans la liste de gauche et dans la liste de droite j'ai le
'Activate'. J'ai copié l'intégralité de ma procédure, en enlevant le sub
auto_open, mais j'ai toujours la même erreur et au même endroit. (rem. tests
effectues sur Excel2000 et 2003).
J'ai essayé une autre méthode, en utilisant le fait que cela marche quand
excel est déjà ouvert. J'ai créé une macro qui ouvre le fichier qui contient
la macro, et toujours la même erreur !!!!
Je ne sais plus que faire ... :-(
Si tu as une autre idée ???
Salutations