Ouverture d'un classeur excel qui ne s'execute pas

Bonjour à tous,

J'ai un problème. Dans un fichier excel que j'utilise, lors de l'exécution d'un macro, j'ouvre un autre fichier excel qui me sert de base de donnée dans le but d'y enregistrer des informations de le refermer.

Code:

---

1 2	Set BDD = Workbooks.Open("\\corp.novocorp.net\frch\nnp_project\VIALS_CHARTRES\06 Execution Vial\06-Filling\28 - Indicateurs de production\6-Documents BCO\BDD\BDD BCO.xlsm", ReadOnly:=False) BDD_LastRow = BDD.Worksheets("BDD").Range("A1").End(xlDown).Row

---

Le Code est tout simple, mais quand la macro se lance, 9 fois sur 10 j'ai une erreur dans l'exécution de la seconde ligne car mon classeur BDD ne s'est pas ouvert. La ligne s'est exécute sans m'envoyer de rapport d'erreur, mais sans ouvrir le classeur demandé.
Parfois quand j'exécute le code étape par étape, mon classeur BDD s'ouvre, mais la majorité du temps non.
Le chemin de mon classeur est bon, ce classeur se trouve sur le réseau de l'entreprise mais j'ai accès au réseau à chaque fois que je lance la macro.

Avez vous une idée de ce qui pourrait expliquer que mon classeur BDD ne s'ouvre pas alors que la première ligne de mon code ne renvoie aucune erreur?

D'avance un grand merci pour votre aide.

Citation:

---

Envoyé par ArtistePeintredu44

Avez vous une idée de ce qui pourrait expliquer que mon classeur BDD ne s'ouvre pas alors que la première ligne de mon code ne renvoie aucune erreur?

---

Bonjour,
N'aurais-tu pas dans ton code avant cette ligne (ou dans une autre macro lancée avant celle-ci), une gestion d'erreur à base de "On Error Resume Next" non réitialisé à 0 ?

Essaye ceci pour voir si ça change:

Code:

---

1 2 3 4 5

on error goto 0 application.displayalerts =true Set BDD = Workbooks.Open("\\corp.novocorp.net\frch\nnp_project\VIALS_CHARTRES\06 Execution Vial\06-Filling\28 - Indicateurs de production\6-Documents BCO\BDD\BDD BCO.xlsm", ReadOnly:=False) BDD_LastRow = BDD.Worksheets("BDD").Range("A1").End(xlDown).Row

---

Bonjour,

Merci pour ton message, non je n'ai pas de telle gestion d'erreur dans mon code.
J'ai collé les lignes que tu m'as envoyé, l'erreur reste la meme bloc with non defini car ma variable BDD est vide.

Dans ce cas je ne comprend pas pourquoi tu n'as pas de message d'erreur, peut-être quelqu'un de plus expérimenté que moi aura la réponse.

Citation:

---

Envoyé par ArtistePeintredu44

Le Code est tout simple, mais quand la macro se lance, 9 fois sur 10 j'ai une erreur dans l'exécution de la seconde ligne car mon classeur BDD ne s'est pas ouvert.

---

C'est clairement pas l'idéal mais tu peux essayer de boucler tant que le fichier n'est pas ouvert

Code:

---

1 2 3 4 5

do while bdd is nothing and i<1000 set bdd = ... i=i+1 loop

---

(le i est là pour éviter une boucle infini)

edit: précise ta version d'Excel ça a peut-être son importance.

je venais de tester la meme chose sans le i et c'est la boucle infinie

Est-tu sur qu'il n'y a personne d'autre sur le fichier quand tu l'ouvre ?
Normalement avec le displayalerts = true, il devrait te l'indiquer si non, mais on ne sait jamais.
Si tu enlève Readonly=false, il se passe quoi ?

Oui il n'y a personne d'autre sur le fichier, et quand j'enlève le Readonly = false cela ne change rien...

Bonjour,

ton classeur met combien de temps à s'ouvrir ?

pour moi ton problème vient du fait qu'il essaye d'aloué ta BDD alors qu'il a pas fini de s'ouvrir

il faut mettre un délais genre :

Code:

---

Application.Wait Now() + 0.00002

---

ou encore

avec Timer