Tester si 1 fichier est ouvert

Salut le Forum!!!

J'ai une procédure qui me permet de tester si mon fichier BordereauLivraison1 est ouvert. Mais depuis qu'elle est dans mon programme, Excel plante régulièrement!!!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub TestOuvertureBordereauLivraison()   On Error Resume Next Workbooks("BordereauLivraison1").Activate 'Activation du fichier If Err <> 0 Then 'si activation génère erreur alors le fichier est fermé On Error GoTo 0 Else 'sinon le fichier est ouvert Workbooks("BordereauLivraison1").Close False 'Fermeture du fichier sans enregistrement On Error GoTo 0 End If   End Sub

---

Quelqu'un y verrait-il une erreur 8O

@+ JeanValjean

Bonjour,

Ton classeur se nomme BordereauLivraison1.xls

+1

C'est comme de rien que ton Windows n'est pas paramétré pour afficher les extensions de fichiers dont le type est connu... dans l'Explorateur de Windows, menu Outils, Options... onglet Affichage. Désactive l'option Masquer les extensions des fichiers dont le type est connu. Tu verras alors que tes fichiers Ms Office sont enregistrés avec leur extensions et qu'il ne faut donc pas les ignorer lors de la programmation.

Salut zazaraignée!!!

Pour mes options, elles sont bien comme tu le précises...

Salut Fring!!!

Mon fichier bordereauLivraison1 est issu d'un modèle de doument de la manière suivante :

Code:

---

Workbooks.Add Template:="R:\Modèle de documents\Production\BordereauLivraison.xltx" 'Ouverture Modèle de document

---

Et ce fichier est créé sans extension .xlsx...

Je pensais plutôt que le problème rencontré provenait de la gestion d'erreur :(

bonsoir,

Citation:

---

Envoyé par Jeanvaljean44

S.... Mais depuis qu'elle est dans mon programme, Excel plante régulièrement!!!! ...

---

Pas plus de précision sur l'erreur?

Si je comprend bien (ce qui n'est pas gagné...) ce que Jean veut faire, c'est fermer le classeur (issu du modèle) si celui-ci est ouvert. Ca devrait donner un truc du genre

Code:

---

1 2 3 4

Sub TestOuvertureBordereauLivraison() On Error Resume Next Workbooks("BordereauLivraison1").Close End Sub

---

Et qui dit que le bon de livraison en question aura bien le numéro 1 ? et pas 2 ou 3... ?

De plus, il me semble que le code et les commentaires ne sont pas cohérents.

Code:

---

1 2 3 4 5 6 7

Workbooks("BordereauLivraison1").Activate 'Activation du fichier If Err <> 0 Then 'si activation génère erreur alors le fichier est fermé On Error GoTo 0 Else 'sinon le fichier est ouvert Workbooks("BordereauLivraison1").Close False 'Fermeture du fichier sans enregistrement On Error GoTo 0 End If

---

Si l'activation du fichier génère une erreur alors le fichier est fermé... avec le code :

Code:

---

On Error GoTo 0

---

... ?? 8O
Sinon le fichier reste ouvert... avec le code :

Code:

---

Workbooks("BordereauLivraison1").Close False

---

:aie:

J'sais pas, mais j'y vois comme un problème. Déjà l'utilisation de

Code:

---

On Error Resume Next

---

et ensuite

Code:

---

On Error Goto 0

---

...

Resume Next équivaut ni plus ni moins à ignore l'erreur s'il te plaît et continue j'attraperai le numéro de l'erreur quelque part, ce que tu sembles avoir compris, alors que Goto 0 est plutôt archaïque et obsolète. Et puis, elle est où la ligne numéro zéro ?

Refais ton algo sur papier. Ça devrait t'aider à démêler la logique de tout ça.

[Edit] Je me relis (ça m'arrive parfois) et je vois que j'ai l'air impatiente (ça aussi, ça m'arrive parfois). C'est pourquoi je viens de modifier le paragraphe qui précède celui-ci. L'original était un peu déplacé. Si tu l'as lu avant que je corrige, je m'en excuse et oublie ce que j'avais écrit. Sans rancune.

Citation:

---

Envoyé par zazaraignée

Et qui dit que le bon de livraison en question aura bien le numéro 1 ? et pas 2 ou 3... ?

---

Excellente remarque :king:

Salut à tous!!!!

Bon je suis désolé, j'ai tourné autour de la question un bon moment moi aussi!

Le problème venait finalement de ma procédure Workbook_BeforeClose appelée juste après ma procédure Sub TestOuvertureBordereauLivraison...

Merci encore pour tout :oops:

@+ Jeanvaljean