ouverture d'un classeur ne se faisant pas Fermé

Question

Bonjour à tous,

sous VBA d'Excel97 j'ai:

- écrit une macro (peu importe qu'elle soit dans Workbook_Open, ou pas (cela ne change rien) que j'ai nommée  "Mise à jour.xls"

Sub Workbook_Open()
    Workbooks.Open FileName:=ThisWorkbook.Path & "	est.xls"
    Workbooks("test.xls").Close False
End Sub

- cette macro en appelle une autre "test.xls"

Sub workbook_open() 'dans le thisworkbook évidemment
Call ouverture
End Sub
--------------
Sub ouverture()
Dim i As Integer
Workbooks.Open FileName:=ThisWorkbook.Path & "\données.xls", ReadOnly:=True
MSG "bonjour"
For i = 1 To 10000 'temporisation
Next i
Workbooks("données.xls").Close False
End Sub

Cette dernière doit ouvrir un classeur"données.xls" qui ne s'ouvre pas provocant une erreur
 bien évidemment quand je veux le fermer

Si la macro "ouverture" est dans un module,"données.xls" ne s'ouvre pas non plus
Par contre, si je lance directement "test .xls" aucun problème, "données.xls" s'ouvre bien.

"données.xls" est un fichier vide aucune macro et rien sur "Feuil1"

J'aimerai comprendre le pourquoi du comment.... Merci par avance

f894009 · Answer

Bonjour,
Votre code marche en Excel2007, mais doit aussi marcher en Excel97(!!!!!!!)…….Normalement les evenements WorkBook/WorkSheets sont Private Sub
mais ca marche aussi sans Private
'classeur mise a jour ThisWorkbook
Private Sub Workbook_open()
    Workbooks.Open Filename:=ThisWorkbook.Path & "	est.xls"
    Workbooks("test.xls").Close False
End Sub

'classeur Test dans ThisWorkbook
Private Sub Workbook_open() 'dans le thisworkbook ?videmment
    Call ouverture
End Sub

'classeur Test dans ThisWorkbook ou un module
Sub ouverture()
    Dim i As Integer
    Workbooks.Open Filename:=ThisWorkbook.Path & "\donn?es.xls", ReadOnly:=True
    MsgBox "bonjour"
    For i = 1 To 10000 'temporisation
    Next i
    Workbooks("donn?es.xls").Close False
End Sub

mick9111 · Answer

Merci beaucoup d'avoir répondu, et aussi d'avoir mis mes lignes de code dans une fenêtre plus adéquat (chose que je ne sais pas faire).

Quoi qu'il en soit pour les Private ou pas, cela ne fonctionne toujours pas. Le fichier "données" ne s'ouvre pas et donc bien évidemment une erreur à la ligne pour le fermer.

Ouverture d'un classeur ne se faisant pas

2 réponses

Discussions similaires