Actualiser un Classeur

Bonjour, me revoici

Dans le même répertoire j'ai créé un classeur A et un classeur B

Dans le classeur B j'ai "collé avec liaison" les données d'une feuille du classeur A

Dans le classeur B j'ai créé un bouton de MaJ qui lance cette commande:

ActiveWorkbook.UpdateLink Name:="U:\classeurA.xls", Type:=xlExcelLinks

Voici ou ça coince.... Deux cas de figure:

1 / lorsque le classeur A est fermé

Si j'ouvre le classeur B il se met à jour correctement.

Si je clique sur le bouton MaJ la commande s'effectue sans pb.

2 / lorsque le classeur A est ouvert

Si j'ouvre le classeur B il se met à jour correctement.

Si je clique sur le bouton MaJ ça plante au niveau de la ligne citée plus haut avec ce message:

Erreur d'exécution '1004': La méthode 'UpdateLink' de l'objet'_Workbook' a échoué

Comment régler ce problème ?

Car le but est de laisser le classeur B ouvert en permanence, mais de s'assurer qu'il est bien à jour avant de l'utiliser (d'où le bouton MaJ). Par contre, le classeur A peut être ouvert ou fermé, je ne le maitrise pas....

J'espère ne pas avoir été trop brouillon...

Merci de votre aide

bonjour,

ca peux t'aider, voila une macro qui vérifie si classeur A est ouvert

et en fonction tu peux choisir ce que tu veux faire , si il est ouvert fait ca

si il est fermé va l'ouvrir

Sub macro1()

Dim lWorkbook As Workbook
    Dim lFound As Boolean

    lFound = False
    For Each lWorkbook In Workbooks
        If lWorkbook.Name = "ClasseurA.xls" Then
            lFound = True
            Exit For
        End If
    Next

    If lFound Then
    'ici ecrit ce que tu veux faire si le classeur A est ouvert
     '   Windows("ClasseurB.xls").Activate   exemple pour le test
    '    Sheets("feuil1").Select
   ' Range("A1") = 1

else
'ici mets ce que tu veux faire si classeur a est fermé
    End If

End Sub

voila a+

Merci, ça fonctionne, je vais arriver a faire quque chose