Prblm echange classeur selon ordre

[HERBERT]

Bonjour le forum, il est tôt je sais... Un peu tôt pour se torturer l'esprit, mais en fait moi je ne dors plus...

Voila pourquoi:

J'ai 2 classeurs
Je lance classeur1 (et une macro lance automatiquement le classeur2)

Dans mon classeur1 jai :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('R6:R13')) Is Nothing Then

Dim i As Integer

i = Range('r6').Value

Range('S6').Value = Workbooks('classeur2.xls').Worksheets(1).Range('C' & i).Value

End If
End Sub


Et ca ne marche pas !!!!!


PAR CONTRE

si j ouvre manuellement le classeur2 AVANT le classeur1, ca marche...

??? Comprend pas tout là ?!

Quelqu'un peut m'éclairer ? Voire résoudre mon probleme (car en effet j aimerais bien gardet le classeur1 ouvert avant le classeur2..)

Merci pour vos lumières !!!

A+

 

[dg62]

Bonjour Herbert

A voir !

c'est le classeur 2 qui devient actif à son ouverture, le classeur 1 a perdu la main ?


Il faudrait voir ta macro

 

[HERBERT]

Re dg62, forum,

Bah ma macro je te l'ai écrite dans mon 1er message... Faut il que je rajoute un

Workbooks('classeur2').Activate

???

Merci a toi dg62 pour cette réponse...

 

[dg62]

re

je ne vois rien qui ouvre le classeur 2 dans la macro.

Workbooks.Open Filename:='D:\\Mes documents\\classeur2.xls'

il faut ouvrir classeur2

Private Sub Workbook_Open()
Workbooks.Open Filename:='D:\\Mes documents\\classeur2.xls'

End Sub

 

[HERBERT]

Dg62, forum

Excusez du temps de réponse, mais je reviens sur ce fil car le probleme se pose de nouveau...

Dg62, la commande d'ouverture du classeur2 se fait dans le workbook_open du classeur1

Une petite idée pour le probleme du placement ???

Merci a tous ceux qui se pencheront sur mon prblem...