Discussion :

[Jeanvaljean44]

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 :

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

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

@+ JeanValjean

[fring]

Bonjour,

Ton classeur se nomme BordereauLivraison1.xls

[zazaraignée]

+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.

[Jeanvaljean44]

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 :

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

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

[JackOuYA]

bonsoir,

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

Pas plus de précision sur l'erreur?

[fring]

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 :

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

1
2
3
4
Sub TestOuvertureBordereauLivraison()
On Error Resume Next
Workbooks("BordereauLivraison1").Close
End Sub

[zazaraignée]

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 :

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

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 :

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

On Error GoTo 0

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

Code :

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

Workbooks("BordereauLivraison1").Close False

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

Code :

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

On Error Resume Next

et ensuite

Code :

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

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.

[fring]

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

Excellente remarque

[Jeanvaljean44]

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

@+ Jeanvaljean