Discussion :

[ArtistePeintredu44]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[halaster08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ArtistePeintredu44]

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.

[halaster08]

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ArtistePeintredu44]

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

[halaster08]

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 ?