test si fichier ouvert

P

philippe

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
314 644
Messages
2 111 528
Membres
111 189
dernier inscrit
Laurent.