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

[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