Excel chgmt classeur via vb (copier 1 ver 2)

Bonjour,

j'ai beau manier le code dans tout les sens, je n'arrive pas à obtenir ce que je veux..Auriez-vous une idée??

En faite je dispose de 3 classeurs :

--> test.xls
--> A.xls
--> B.xls

Le classeur test.xl contient une macro qui s'exécute au démarrage, qui ouvre la boite de commande 'ouvrir"

J'ouvre dans un premier temps A.xls, puis j'ouvre à nouveau une autre boite de commande 'ouvrir' afin d'ouvrir le classeur B.xls. Le souci est que je voudrais reselectionner le classeur A.xls.

En effet je veux exporter des données du classeur A vers B, les deux doivent alors être ouvert mais cela ne marche pas.

Voici mon code :

Private Sub Workbook_Open()

Dim var1, var2, adres1, adres2, varfeuil As String


var1 = Application.GetOpenFilename
Workbooks.Open (var1)
adres1 = ActiveWorkbook.Name
varfeuil = ActiveSheet.Name

var2 = Application.GetOpenFilename
Workbooks.Open (var2)
adres2 = ActiveWorkbook.Name

rep = InputBox("saisir le nom de la feuille : (sous la forme 'NomAnnée')")

Workbooks(adres2).Sheets(rep).Select
Workbooks(adres2).WindowState = xlMinimized

Worksheets(varfeuil).Range("B3").Select
while
[...]
wend
End Sub

Voila, il me met une erreur mais ne me donne pas de ligne, mais je pense qu'elle vient de la ligne en gras puisque en effet je demande d'afficher un autre classeur que celui actif.

Merci d'avance

Necro27