ouverture automatique de fichiers

[Micke-31]

Bonsoir le forum,

J'ai mis ce code dans plusieurs fichiers, qui me permet d'ouvrir plusieurs fichiers,
Le problème est que lorsque un des fichier est déjà ouvert, il me génére l'erreur 1004 j'ai essayé avec on error goto, sans succès, est il possible d'éviter cette erreur


Private Sub Workbook_Open()
Workbooks.Open Filename:= _
"C:\Documents and Settings\--------\---------\--------\--------\wwww.xls"
End Sub

Merci à tous pour vos réponses

 

[JORDAN]

Re : ouverture automatique de fichiers

Bonjour Micke

Peut être avec : On error resume next

 

[Micke-31]

Re : ouverture automatique de fichiers

Bonsoir Jordan,

Merci pour ta réponse, mais hélas toujours erreur 1004

Je crois me souvenir qu'il y a pas mal de temps javais résolu ce problème mais si on pratique pas régulièrementon on oubli et Excel est tellement monstrueux

Mais je suis sur qu'il y a une solution

Merci encore

 

[job75]

Re : ouverture automatique de fichiers

Bonsoir Micke, Jordan,

Normalement si le fichier est déjà ouvert et qu'il n'a pas été modifié depuis son ouverture, Workbooks.Open le rouvre sans message...

S'il a été modifié, un message demande si l'on veut l'ouvrir, et il y a erreur si l'on répond non. Si l'on répond oui, le fichier est rouvert et les modifications sont perdues.

Pour éviter de rouvrir le fichier déjà ouvert :

Private Sub Workbook_Open()
On Error Resume Next
If IsError(Workbooks("wwww.xls").Name) Then Workbooks.Open Filename:= _
"C:\Documents and Settings\--------\---------\--------\--------\wwww.xls"
End Sub

A+

A+

 

[Micke-31]

Re : ouverture automatique de fichiers

Bonsoir,

Merci pour vos réponses qui m’ont permis de douter de mon code, et de trouver l’erreur qui en fait venait d’une autre macro, séparément elles fonctionnaient et je n’avais pas d’erreur
Le principal est le résultat

Merci encore