Lancer une macro en faisant intervenir un autre fichier

[Fredrennes]

Hello,


Je souhaite effectuer une macro entraînant un échange de données entre 2 fichiers.

La macro marche impec si les 2 fichiers sont ouverts mais si l'un d'entre eux est fermé, il y a Bug....

Comment traduire le windows("nomdufichier.xls").activate pour que la macro fonctionne également avec ce fichier fermé ?

Merci de votre aide.

Cdlt

Fred

 

[Tcho!]

Ca se trouve je répond complétement à côté !!!
As-tu essayé avec deux feuilles (dont l'une est caché) plutôt qu'avec deux fichiers ??

 

[Fredrennes]

Hello,

Impossible car il s'agit de 2 fichiers déjà très lourds.

Cdlt

Fred

 

[Lexikalacon]

Salut , voici de "Boursicot "

'récupérer des données d'un classeur fermé par OLE
'(sur une idée de Boursicot, mpfe)
'attention : bien qu'invisible dans l'interface Excel le classeur
'est cependant ouvert par la méthode GetObject,
'il faut penser à le fermer après usage.

Sub test()
Dim Chemin$, NomFich$
Dim classeur As Workbook
Dim base As Range

Chemin = "d:\"
NomFich = "testado.xls"
Set classeur = GetObject(Chemin & NomFich)
Set base = classeur.Sheets(1).Range("a1")
MsgBox base.Value
'on vérifie que le classeur est bien ouvert
'Workbooks(NomFich).Windows(1).Visible = True
'ou
'classeur.Windows(1).Visible = True
'MsgBox "coucou"
'on le ferme
Workbooks(NomFich).Close False
'ou
'classeur.Close False
End Sub