test si fichier ouvert

[philippe]

Bonjour

Je reçois des fichiers par mail et je dois enregistrer les dates d'arrivées des fichiers dans un fichier AA. J'ai une macro qui le fait très bien mais je voudrais l'améliorer un peu. En fait, si le fichier A n'est pas ouvert, il faut que la macro l'ouvre. J'ai écrit ceci (inspiré par un post de Thierry) :

Sub Enregistrement dossier()

On Error Resume Next
Windows("AA").Activate

If err = 0 Then
Workbooks.Open Filename:= _
"c:\documents\AA.xls"
else
.............
End If

END SUB

Le problème est que le test "if err = 0" ne se fait pas. Pourquoi ?

Merci beaucoup

Philippe

 

[Valérie]

Bonjour tout le monde,

Le problème est que l'erreur générée par Windows("AA").Activate n'est pas la 0 mais la 9

Donc ton code doit tester l'Err=9 et non pas 0

Bonne fin de matinée
Valérie